Yalnız Mesajı Göster
Eski 14-02-2015, 16:10  
kayrahan
 
Giriş: 14/02/2015
Şehir: antalya
Mesaj: 3
Excel Vers. ve Dili:
2010
Varsayılan

verilen bu bilgileri uygulamada yapamadım.excelde bu formulleri nasılyazacağım.


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
kayrahan Çevrimdışı   Alıntı Yaparak Cevapla