Excel Rastgele sayı oluşturma

[MesuTR33]

Merhaba arkadaşlar forumda yeniyim.

Bir projem için Rastgele 5 Basamaklı Rakam[12345] rakamlar oluşturmam gerekiyor Excel ile bunu kolay yoldan yapılabiliyormuş excel de iyi değilim yardımcı olurmusunuz.

Şimdiden teşekkür ederim.

 

[dellerlim]

Merhaba, hoş geldiniz. Herhangi bir hücreye bu formülü yazarsanız her defasında size 5 basamaklı sayılar oluşturur.
=RASTGELEARADA(10000;99999)

 

[MesuTR33]

Merhaba, hoş geldiniz. Herhangi bir hücreye bu formülü yazarsanız her defasında size 5 basamaklı sayılar oluşturur.
=RASTGELEARADA(10000;99999)

Teşekkür ederim hocam. Bunu Rastgele harf olarak yapabilme şansımız varmıdır acaba. örnek: asdd zxcc asdk vocx czxv gibi

 

[dellerlim]

Bu dediğiniz formülle yapılıyor mu bilmiyorum ama VBA ile yapılmışı Murat Osma'nın forumda paylaştığı bir mesajda var.

Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer

For i = 1 To 10
For j = 1 To 5
If j Mod 1 = 0 Then
Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre

End If
Next j
Cells(i, "A") = Sifre
Sifre = ""
Next i

j = Empty: i = Empty: Sifre = vbNullString
End Sub

 

[hoguz2]

Teşekkür ederim hocam. Bunu Rastgele harf olarak yapabilme şansımız varmıdır acaba. örnek: asdd zxcc asdk vocx czxv gibi

formul olarak aynı formulu 5 kez birlestirerek yapilmis bir örnek

=DAMGA(TAMSAYI(S_SAYI_ÜRET()* 25 + 65))&DAMGA(TAMSAYI(S_SAYI_ÜRET()* 25 + 65))&DAMGA(TAMSAYI(S_SAYI_ÜRET()* 25 + 65))&DAMGA(TAMSAYI(S_SAYI_ÜRET()* 25 + 65))&DAMGA(TAMSAYI(S_SAYI_ÜRET()* 25 + 65))

VBA fonksiyon olusturarak yapilmis daha kullanisli baska bir ornek :

bir module asagidaki kodu kopyalayip yapsitirin sonra uretmek istediğiniz hucreye
=RandomizeF(5;5) formulunu yazin. yalniz ben denedim formulu direkt copy paste yapinca nedense bende olmuyor. formul yardım cubuguna tikayip acilan formul yardimcisi ile yazarsaniz calisiyor. calismazsa siz de oyle deneyin.

harf rakam ozel karakter karisik rakamlari degistirerek daha uzun ciktilar almak mumkun =RandomizeF(10;10) gibi


Public Function RandomizeF(Num1 As Integer, Num2 As Integer)
'Update 20131107
Dim Rand As String
Application.Volatile
getLen = Int((Num2 + 1 - Num1) * Rnd + Num1)
Do
i = i + 1
Randomize
Rand = Rand & Chr(Int((85) * Rnd + 38))
Loop Until i = getLen
RandomizeF = Rand
End Function

kaynak:
https://www.extendoffice.com/documents/excel/642-excel-generate-random-string.html#vba