Rastgele arada ile simge çoğaltma

[mehmetaltin]

Rastgele arada ile sayı oluşturup oluşan sayı kadar otomatik imgeleri çoğaltabilir miyim?Örnek ektedir.


https://docs.google.com/spreadsheets/d/1IH1mMrJiwN30LYd2LYoeDRnWj3E5uN8K/edit?usp=sharing&ouid=111067043006256854833&rtpof=true&sd=true

 

[volki_112]

dosyanın kendisini direkt buraya yükler misiniz. Paylaşım siteleri açılmıyor maalesef

 

[ÖmerBey]

Merhaba,
Deneyiniz...

=YİNELE(E4;D4)

 

[mehmetaltin]

Oldu teşekkürler.Farklı rastgele oluşturduğum simgeleri nasıl büyük bir hücrede dağınık bir şekilde birleştirebilirim acaba?

 

[ÖmerBey]

METİNBİRLEŞTİR fonksiyonunu deneyiniz...

 

[systran]

Makro olarak aşağıdaki çözümü inceleyiniz. # ve $ karakterleri için yazılı. Açıklamaları okuyup, seçtiğiniz karakterlere göre düzenleyiniz.

Sub RastgeleKarakterBirleştir()
    Randomize Timer
    Dim ifade1 As String
    Dim ifade2 As String
    Dim birlesim As String
    Dim sonuc As String
    Dim uzunluk1 As Integer
    Dim uzunluk2 As Integer
    Dim i As Integer
    Dim rastgeleSira As Integer

    ' İlk rastgele uzunluk (5 ile 10 arasında)
    uzunluk1 = Int((6 * Rnd) + 5) ' 5 ile 10 arasında
    ' İkinci rastgele uzunluk (5 ile 10 arasında)
    uzunluk2 = Int((6 * Rnd) + 5) ' 5 ile 10 arasında

       
    ifade1 = Replace(Space(uzunluk1), " ", "#")  '# karakterini ilk uzunluk kadar tekrarla
    ifade2 = Replace(Space(uzunluk2), " ", "$")  '$ karakterini ikinci uzunluk kadar tekrarla
    birlesim = ifade1 & ifade2  'iki karakterin birleşmiş hali
    
   'Rastgele sırada birleştirme
    ptr = 1
    Do
        rastgeleSira = Int(((Len(birlesim) - 1) * Rnd) + 1)
        
        'Debug.Print ptr, Mid(birlesim, rastgeleSira, 1)
        sonuc = sonuc & Mid(birlesim, rastgeleSira, 1)
        birlesim = Left(birlesim, rastgeleSira - 1) & Mid(birlesim, rastgeleSira + 1)
        ptr = ptr + 1

    Loop Until Len(birlesim) <= 0
    
    MsgBox "Birleştirilen ifade: " & sonuc
End Sub