Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   rastgele sayı ve harf birlikte (http://www.excel.web.tr/showthread.php?t=114901)

acolkesen1 25-04-2012 14:06

rastgele sayı ve harf birlikte
 
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 25-04-2012 14:32

Deneyiniz;
Kod:

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 25-04-2012 14:58

Bir başkası..

Kod:

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 25-04-2012 15:00

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

acolkesen1 25-04-2012 15:01

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

Murat OSMA 25-04-2012 18:49

Rica ederim, iyi günler...

kayrahan 14-02-2015 16:10

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 16-02-2015 15:15

Alıntı:

Murat OSMA tarafından gönderildi (Mesaj 626240)
Deneyiniz;
Kod:

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 16-02-2015 15:20

rastgele sayı ve harf üretme
 
bu kodu excelde nasıl uygulamasını yapacağımı bilemedim.yardımlarınız bekliyorum.

PLİNT 16-02-2015 15:38

Alıntı:

kayrahan tarafından gönderildi (Mesaj 797267)
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...6şifre yap.xls


Saat 01:04

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.