Soru Rastgele 6 haneli metin üretme hk.

[balanar]

Merhaba,

Yaklaşık 1500 tane rastgele

Harflerden ve rakamlardan karışık olmalı

Örneğin:


4E5C1A
DA54FC
ZA94QC

nasıl yapabiliriz

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

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

 

[balanar]

Teşekkürler hocam

 

[dost]

Merhaba ,

Alternatif olsun:

=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)))

NOT1: =CHAR(CHOOSE(RANDBETWEEN(1;2);RANDBETWEEN(48;57);RANDBETWEEN(65;90))) rastgele sayı veya büyük harf üretir.
NOT2: =CHAR(CHOOSE(RANDBETWEEN(1;3);RANDBETWEEN(48;57);RANDBETWEEN(65;90);RANDBETWEEN(97;123))) rastgele sayı, küçük harf veya büyük harf üretir.

 

[52779]

Selamlar,
Formülle çözüme alternatif olarak

=TABAN(RASTGELEARADA(1;2176782335);36;6)

 

[TURKOLOG]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

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

Peki Hocam 1500 tane değil de
Kod her çalıştığında sadece D2'ye rastgele kod yazmak istersek kodu nasıl revize edebiliriz .

 

[Korhan Ayhan]

#5 nolu mesajdaki formülün makro hali işinize yarayabilir.

Option Explicit

Sub Test()
    Range("D2") = Evaluate("=BASE(RANDBETWEEN(1,2176782335),36,6)")
End Sub

 

[TURKOLOG]

Teşekkür ederim Koray Hocam