Harf, Karakter, Sayı Şifre Üretme

Harf, Karakter, Sayı Şifre Üretme

SORULAR:

http://www.excelgurusu.com/harf-sayi-sifre-uretme/

Burada yanıtını verdiğim soruyla ilgili olarak, bazı istekler geldi. Bunlar;

  1. Sizin Verdiğiniz çözümde İngilizce harf ve 10 rakam için geçerlidir. Daha çok harf ve karakter olsa nasıl olacak?
  2. Daha çok harf ve karakteri bir hücrede belirleyerek oradan almasını istesek nasıl olacak?

ÇÖZÜM:

Birincisi için Kod:

Function RSH_A(say As Integer)

Dim harf As String

krk = “ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZXW0123456789!^?<>@&/(){}[]\*-+$%#”

Dim i As Integer

For i = 1 To say

Randomize

sira = Int((Len(krk

RSH_A = RSH_A & Mid(krk, sira, 1)

Next i

End Function

——————————————————————————————————

İkincisi için Kod:

Function RSH_B(say As Integer)

Dim krk As String

krk = Range(“A1″).Value

Dim i As Integer

For i = 1 To say

Randomize

sira = Int((Len(krk) * Rnd) + 1)

RSH_B = RSH_B & Mid(krk, sira, 1)

Next i

End Function

 

Dosya:

sifre-uretme2

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>