Harf sayı karışık kod

[ElfBrcS]

ABCDEFGHIJKLMNOPRSTUVYZXW ve 0123456789 a kadar karışık harfler ve sayılar kendini tekrarlayabilir 10 haneli kod nasıl yazılır acaba?

Örneğin; EF0F2JSO9Y gibi.

 

[Merhum İdris SERDAR]

.

Aşağıdaki Kullanıcı Tanımlı Fonksiyonu kullanabilirsiniz.

Function SH()
   
    Dim i As Integer
 
    For i = 1 To 10
 
        If Int((2 * Rnd) + 1) = 1 Then
            SH = SH & Chr(Int((90 - 65 + 1) * Rnd + 65))
        Else
           SH = SH & Int((9 - 0 + 1) * Rnd + 0)
        End If
    Next i
 
  
End Function

Bir hücreye:

=SH()

yazmanız yeterli.


.

 

[Merhum İdris SERDAR]

.

Sayıyı sabit 10 değil de kendiniz ayarlamak isterseniz, aşağıdaki KTF'yi kullanabilirsiniz.

Function RSH(say As Integer)

Dim i As Integer
 
 For i = 1 To say
 
    If Int((2 * Rnd) + 1) = 1 Then
            RSH = RSH & Chr(Int((90 - 65 + 1) * Rnd + 65))
    Else
           RSH = RSH & Int((9 - 0 + 1) * Rnd + 0)
    End If
    Next i

End Function

Bir hücreye:

=RSH(10)

yazmanız yeterli.

.

 

[Asri]

Alternatif;

@İdris in kodunda değişiklik yapıldı.


'Kullanımı =RSH(5;"ABCDEFGH123456789")

Esnek dizi kullanımı sağlandı. Dizi uzunluğu önemli değil.

Function RSH(say As Integer, dizi As String)
 Dim i As Integer
 For i = 1 To say
    Randomize
    sira = Int((Len(dizi) * Rnd) + 1)
    RSH = RSH & Mid(dizi, sira, 1)
 Next i
End Function