Hücre İçine Belirlene Sayı Kadar Harf Yazdırma

[srhtky90]

Arkadaşlar Benzetim Dersi İçin Excel'de Makro Çalışması Yapıyorum
sayfanın içinde koda bakarsanız az çok anlarsınız zaten
ancak atşlar kısmına her elde gelen yazıları Y turaları T olarak yazdırmak istiyorum bunu nasıl yapabilirim

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub YaziTura()
    Dim i, j, ys, ts As Integer
    Dim rs As Double
    Dim bx As Double
    Dim tas As Long
    
    i = InputBox("Toplam Oyun Sayısı Değerini Giriniz")
    Range("A2:E" & Rows.Count).ClearContents
    Range("ı1").Value = i
    tas = 0
    
    For j = 1 To i
        ys = 0
        ts = 0
            Cells(j + 1, 1).Value = j
        Do While Abs(ys - ts) < 3
            rs = Rnd()
            If rs < 0.5 Then
                ys = ys + 1
            Else
                ts = ts + 1
            End If
        Loop
        
        Cells(j + 1, 3).Value = ys
        Cells(j + 1, 4).Value = ts
        tas = ys + ts
        Cells(j + 1, 5).Value = tas
        
        If Cells(j + 1, 2).Value = "" Then
            Cells(j + 1, 2).Value = "Y" & ys
        Else
            Cells(j + 1, 2).Value = Cells(j + 1, 2).Value & " / " & "Y" & ys
        End If
        
        If Cells(j + 1, 2).Value = "" Then
            Cells(j + 1, 2).Value = "T" & ts
        Else
            Cells(j + 1, 2).Value = Cells(j + 1, 2).Value & " / " & "T" & ts
        End If
    Next j
End Sub