Yalnız Mesajı Göster
Eski 25-04-2012, 14:58  
ffff7
 
ffff7 kullanıcısının avatarı
 
Giriş: 08/01/2007
Şehir: İzmir
Mesaj: 147
Excel Vers. ve Dili:
2003 Xp Türkçe İngilizce
Varsayılan

Bir başkası..

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SifreOlustur()
Dim a As Integer, c, b As String

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 10
b = ""
  For k = 1 To 4
atla1:
  a = Fix(Rnd * 1000)
  If a < 32 Or a > 255 Then GoTo atla1
  If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
  Next
Cells(l, "A") = b
Next

End Sub
ffff7 Çevrimdışı   Alıntı Yaparak Cevapla