ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Adıgüzel]

Merhaba yazdığım kodda bir yerde takıldım.

(E5)Hücrede yer alan 6 harf "ABCDEF" aşağıdaki hücrelere rassal bir şekilde dağılmalı.(F-K arası )İlk hücredeki harf ile de sondaki harf( Fve L'deki) aynı olmalı.

Daha sonra da (sağ üst köşedeki gibi) harflerin üstünde yer alan rakamların uygun harfin altına gelecek şekilde olan bir kodu yazamadım.

Yardımcı olabilir misiniz?

alıntı.JPG

[halily]

konumlar sabit mi değişken mi?
harf sayısı sabit mi değişken mi

[Adıgüzel]

konumlar sabit mi değişken mi?
harf sayısı sabit mi değişken mi

Konumlar ve harf sayısı ikisi de sabittir.

[Erkan Akayay]

Dosyanızdaki konumlara göre kodunuz

Kod: Tümünü seç

Sub test()

Dim harf As String, kelime As String, pozisyon As Integer, i As Integer, alan As Range

Randomize
kelime = "abcdef"
   
    For i = 1 To Len(kelime)
        harf = VBA.Mid(kelime, i, 1)
        pozisyon = VBA.Int((Len(kelime)) * VBA.Rnd + 1)
        Mid(kelime, i, 1) = VBA.Mid(kelime, pozisyon, 1)
        Mid(kelime, pozisyon, 1) = harf
    Next i
   
    dizi = (Split(UCase(StrConv(kelime, 64)), Chr(0)))
    dizi(UBound(dizi)) = dizi(0)
   
    Range("F7").Resize(, UBound(dizi) + 1) = dizi
   
    For j = 6 To 12
    Set alan = Range("K3:P3").Find(Cells(7, j).Value)
        Cells(8, j).Value = alan.Offset(-1, 0).Value
    Next
    Erase dizi: kelime = vbNullString: harf = vbNullString: i = Empty: j = Empty: pozisyon = Empty

End Sub

[Adıgüzel]

Çok teşekkür ederim.