DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
Dim Kr As Variant
Dim Bak As Integer
Dim Kelime As String
Dim Hane As Integer
Kr = Split("0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z", "-")
For Bak = 1 To 1500
Kelime = Empty
For Hane = 1 To 6
Kelime = Kelime & Kr(WorksheetFunction.RandBetween(1, UBound(Kr)))
Next
Cells(Bak, "A") = Kelime
Next
End Sub
=CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90)))&CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90)))&CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90)))&CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90)))&CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90)))&CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90)))
Peki Hocam 1500 tane değil deMerhaba.
Aşağıdaki kod ile yapabilirsiniz.
Kod:Sub test() Dim Kr As Variant Dim Bak As Integer Dim Kelime As String Dim Hane As Integer Kr = Split("0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z", "-") For Bak = 1 To 1500 Kelime = Empty For Hane = 1 To 6 Kelime = Kelime & Kr(WorksheetFunction.RandBetween(1, UBound(Kr))) Next Cells(Bak, "A") = Kelime Next End Sub
Option Explicit
Sub Test()
Range("D2") = Evaluate("=BASE(RANDBETWEEN(1,2176782335),36,6)")
End Sub