Určitě dalo.
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Generování hesla
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Generování hesla 
Zaslal/a 14.3.2013 12:48
Ahoj,
jak by se dalo ve VBA vygenerovat náhodné heslo skládájící se z písmen a číslic? Vím, že je tady on line generátor, ale já bych to potřeboval ve VBA.
Děkuji
Uzamčeno - nelze přidávat nové příspěvky.Ve VBA nejlépe makrem.
Ještě je třeba vědět:
- kolik znaků
- písmena malá a i velká
- písmena bez diakritiky (to asi určitě)
- mohou se znaky opakovat
- a proč to dělat, když to co tu je funguje dobře.
citovat
Ještě je třeba vědět:
- kolik znaků
- písmena malá a i velká
- písmena bez diakritiky (to asi určitě)
- mohou se znaky opakovat
- a proč to dělat, když to co tu je funguje dobře.
citovat(14.3.2013 21:18)#012301
Ahoj.
Na "radu"
Pavluse jsem se pokusil něco vytvořit, ale chtěl bych ještě, aby neby pravidelně za sebou PísmenoČísloPísmenoČíslo. Šlo by to nějak vyřešit a hlavně jak?
Děkujicitovat
Na "radu"
Pavluse jsem se pokusil něco vytvořit, ale chtěl bych ještě, aby neby pravidelně za sebou PísmenoČísloPísmenoČíslo. Šlo by to nějak vyřešit a hlavně jak?Děkujicitovat
(14.3.2013 21:21)#012302
ještě kod
Sub Generator()
Dim NahCislo As Integer
Dim Pismena As String
Dim NahPismeno As String
Dim Kod As String
Pismena = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To 4
'generování náhodného čísla a přiřazení písmene
Max = 26
Min = 1
Randomize Timer
NahCislo = Int((Max - Min) * Rnd() + Min)
NahPismeno = Mid(Pismena, NahCislo, 1)
Kod = Kod & NahPismeno
'-------------------------------------
'generování náhodného čísla
Max = 9
Min = 1
Randomize Timer
NahCislo = Int((Max - Min) * Rnd() + Min)
Kod = Kod & NahCislo
Next i
MsgBox Kod
End Subcitovat
Sub Generator()
Dim NahCislo As Integer
Dim Pismena As String
Dim NahPismeno As String
Dim Kod As String
Pismena = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To 4
'generování náhodného čísla a přiřazení písmene
Max = 26
Min = 1
Randomize Timer
NahCislo = Int((Max - Min) * Rnd() + Min)
NahPismeno = Mid(Pismena, NahCislo, 1)
Kod = Kod & NahPismeno
'-------------------------------------
'generování náhodného čísla
Max = 9
Min = 1
Randomize Timer
NahCislo = Int((Max - Min) * Rnd() + Min)
Kod = Kod & NahCislo
Next i
MsgBox Kod
End Subcitovat
třeba tak
Příloha: 
12305_generat.zip (20kB, staženo 211x)
citovat12305_generat.zip (20kB, staženo 211x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články