rastgele sayı ve harf birlikte

[acolkesen1]

Merhaba arkadaşlar,
Forumdaki örnekler arasında arama yaptım ancak uygun bir örnek bulamadım. 10 adet rastgele 4 haneli sayı ve harf karışık olarak üretmek mümkün müdür?
Örneğin; 3X65,F5L9 veya KL6U gibi. ilgilenen arkadaşlara şimdiden teşekkür ederim.

 

[Murat OSMA]

Deneyiniz;

Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer
    
    For i = 1 To 10
    For j = 1 To 4
        If j Mod 2 = 0 Then
            Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre
        Else
            Sifre = Int((9 * Rnd) + 1) & Sifre
        End If
    Next j
        Cells(i, "A") = Sifre
        Sifre = ""
    Next i
    
j = Empty: i = Empty: Sifre = vbNullString
 End Sub

 

[ffff7]

Bir başkası..

Sub SifreOlustur()
Dim a As Integer, c, b As String

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 10
b = ""
  For k = 1 To 4
atla1:
  a = Fix(Rnd * 1000)
  If a < 32 Or a > 255 Then GoTo atla1
  If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
  Next
Cells(l, "A") = b
Next

End Sub

 

[acolkesen1]

Merhaba Sayın Murat Osma,
Göderdiğiniz kod tam anlatmak istediğim gibi.. Çok teşekkür ederim. Esenkalın..

 

[acolkesen1]

Sayın ffff7 ye de ilgisi için teşekkürlerimi ileti rrrr im.

 

[Murat OSMA]

Rica ederim, iyi günler...

 

[kayrahan]

verilen bu bilgileri uygulamada yapamadım.excelde bu formulleri nasılyazacağım.


Sub SifreOlustur()
Dim a As Integer, c, b As String

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 10
b = ""
For k = 1 To 4
atla1:
a = Fix(Rnd * 1000)
If a < 32 Or a > 255 Then GoTo atla1
If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
Next
Cells(l, "A") = b
Next

End Sub

 

[kayrahan]

Deneyiniz;

Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer
    
    For i = 1 To 10
    For j = 1 To 4
        If j Mod 2 = 0 Then
            Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre
        Else
            Sifre = Int((9 * Rnd) + 1) & Sifre
        End If
    Next j
        Cells(i, "A") = Sifre
        Sifre = ""
    Next i
    
j = Empty: i = Empty: Sifre = vbNullString
 End Sub

bu kodu nasıl excelde uygulayacağımı biliemedim.yardımlarınızı bekliyorum

 

[kayrahan]

rastgele sayı ve harf üretme

bu kodu excelde nasıl uygulamasını yapacağımı bilemedim.yardımlarınız bekliyorum.

 

[PLİNT]

bu kodu excelde nasıl uygulamasını yapacağımı bilemedim.yardımlarınız bekliyorum.

Merhaba
Şifreleri nerede kullanacağınızı belirtmemişsiniz.
Denemek içinse;
Vba kod sayfasında bir İnsert/modül oluşturup kodları ekleyerek düğme veya butona atayın örnekteki gibi:
http://www.upturkey.com/download.php?file=186şifre yap.xls

 

[mars2]

İyi Günler;

Sub SifreOlustur()
Dim a As Integer, c, b As String

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 1
b = ""
For k = 1 To 4
atla1:
a = Fix(Rnd * 1000)
If a < 32 Or a > 255 Then GoTo atla1
If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
Next
Cells(l, "A") = b
Next

End Sub


sadece A stununda değil B ve c sutunlarının ilk satırlarında veya sayfa sonklarında farklı harf ve sayı üretmesini istiyorum .

Yardımlarınız beklemekteyim

 

[antonio]

....
sadece A stununda değil B ve c sutunlarının ilk satırlarında veya sayfa sonlarında farklı harf ve sayı üretmesini istiyorum .

Size önerilen kodları aşağıdaki şekilde kendi isteğinize uyarlayabilirsiniz.

Sub SifreOlustur()
Dim a As Integer, c, b As String
Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"
[COLOR="Red"][B]For d = 1 To 3[/B][/COLOR]
For l = 1 To 1
b = ""
For k = 1 To 4
atla1:
a = Fix(Rnd * 1000)
If a < 32 Or a > 255 Then GoTo atla1
If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
Next
Cells(l, d) = b
Next
[COLOR="Red"][B]Next d[/B][/COLOR]
End Sub

 

[mars2]

Sayın antonio;
Teşekkürler, istediğim gibi sizden küçük bir rica olabilir mi
b = ""
b = "-" işareti koyduğıumuzda A sutunun önüne de gelmektedir.
ilk (A) sutunda "-" işaretinin gelmemesi için ne yapılabilir.

 

[askm]

Cells(l, d) = b satırını Cells(l, d) = Mid(b, 2, 5) şeklinde değiştirin.

 

[mars2]

Sayın Askm;
İlginze teşekkürler, ancak
rastgele üretilen harf ve sayılar oluşan komminasyonlar arasına - işareti ile ayırmak istemekteyim
Örnek:
ABS54-lŞ78Ş-458YU-hu4l5 gibi olmasını düşünmekteyim.
İlk sutunda bulunan komminasyonun sol tarafına (ABS54-) - işaret olmaması (-ABS54-)gerekmektedir.
Veya Bir hücre komminasyon bir hücre - işaret olabilir.
Yardımlarınız için teşekkürler

 

[askm]

O zaman aşağıdaki gibi yazmanız gerekli.

Sub SifreOlustur()
Dim a As Integer, c, b As String
Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"
For d = 1 To 3
For l = 1 To 1
b = b & "-"
For k = 1 To 4
atla1:
a = Fix(Rnd * 1000)
If a < 32 Or a > 255 Then GoTo atla1
If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
Next
Cells(l, 1) = Mid(b, 2, Len(b) - 1)
Next
Next d
End Sub

 

[ahmedummu]

Elinize sağlık sayın askm.

 

[askm]

Rica ederim. Asıl kodun iskeletini oluşturan antonio ye teşekkür ederiz. Ben sadece isteğe göre kodda oynama yaptım. Kolay gelsin.

 

[mars2]

Sayın askm, antonio;

İlgi ve yardımlarınız teşekkürler.

 

[mars2]

Sasyın Ustatlar;
Konu hakkında yeniden yardımlarınız esirgememeniz dileğimle,
koda göre; her biri 4'li olmak üzere üç adet farklı rastgele sayı veya harften oluşan kombinasyon (şifre) vermekte, ancak son dörtlü şifrenin diğerlerinden farklı olarak 6'li gelmesini istemekteyim.

Örnek:
As42-45ğH-7k/d92