Rastgele harf

[muratgunay48]

Arkadaşlar, sayın hocalarım, belki size basit gelecek ama A1'den A29'a kadar. Harfleri rastgele nasıl yazdırabilirim. Yaptım aslında ama mükerrer oluyor. Her harf sadece 1 kere olacak. 29 satır olacak. Yardımcı sütun da kullandım. Mükerrer harf oluyor.
Teşekkür ederim. Saygılarımla.

 

[Muzaffer Ali]

Merhaba.
Kod ile işinizi görürse

Sub Test()
    Dim Harfler As String
    Dim Bak As Integer
    Dim Rastgele As Integer

    Harfler = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"

    For Bak = 1 To 29
        Rastgele = Int((Len(Harfler) * Rnd) + 1)
        Cells(Bak, 1).Value = Mid(Harfler, Rastgele, 1)
        Harfler = Left(Harfler, Rastgele - 1) & Mid(Harfler, Rastgele + 1)
    Next
End Sub

 

[Korhan Ayhan]

Ofis 365 için deneyebilirsiniz..

=SIRALAÖLÇÜT(PARÇAAL("ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ";SIRALI(29);1);RASGDİZİ(29))

 

[muratgunay48]

Merhaba.
Kod ile işinizi görürse

Sub Test()
    Dim Harfler As String
    Dim Bak As Integer
    Dim Rastgele As Integer

    Harfler = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"

    For Bak = 1 To 29
        Rastgele = Int((Len(Harfler) * Rnd) + 1)
        Cells(Bak, 1).Value = Mid(Harfler, Rastgele, 1)
        Harfler = Left(Harfler, Rastgele - 1) & Mid(Harfler, Rastgele + 1)
    Next
End Sub

Hocam çok teşekkür ederim. Bu yeğenim için di? Onun dersi için.
Peki hocam, sağa gitmesi için nereyi değiştirmem gerek? Cells'i Row yaptım olmadı.

 

[muratgunay48]

Ofis 365 için deneyebilirsiniz..

=SIRALAÖLÇÜT(PARÇAAL("ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ";SIRALI(29);1);RASGDİZİ(29))

Hocam, çok teşekkür ederim
Emeğinize sağlık

 

[Korhan Ayhan]

Eski sürümler için yardımcı sütun ile çözümüde ekledim. Farklı çözümlerde gelebilir..

 

[muratgunay48]

Eski sürümler için yardımcı sütun ile çözümüde ekledim. Farklı çözümlerde gelebilir..

Hocam olağanüstü, emeğinize sağlık.

 

[muratgunay48]

Ofis 365 için deneyebilirsiniz..

=SIRALAÖLÇÜT(PARÇAAL("ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ";SIRALI(29);1);RASGDİZİ(29))

Hocam ne denedimse bozuldu. Sağa doğru gitmesi için hangi değişikliği yapmam gerek. Size zahmet hocam.

 

[Korhan Ayhan]

Yatay dizilim için ekteki örneği inceleyebilirsiniz.

 

[muratgunay48]

Yatay dizilim için ekteki örneği inceleyebilirsiniz.

Çok çok teşekkür ederim hocam. Emeğinize sağlık. Var olun.