Генератор паролей

[pleezee]

При нажатие на кнопку генерируются пароли в столбце "A" в ячейках "от 1 до 10", из 7 символов, 2 и 5 символ в паролях - цифры, остальные - англ. буквы.

Нужно сделать так:

Если в столбце "B" появляется "1" то напротив в столбце "A" - пароль, в остальных случаях - пустота

Прощу помощи!


DIM Y, I
RANDOMIZE

FOR Y = 1 TO 10
Worksheets("Лист1").Range("A" & Y).Value = ""


FOR I = 0 TO 6
IF I = 1 OR I = 4 THEN
Worksheets("Лист1").Range("A" & Y).Value = Worksheets("Лист1").Range("A" & Y).Value + Chr(INT(10 * RND + 48))
ELSE
Worksheets("Лист1").Range("A" & Y).Value = Worksheets("Лист1").Range("A" & Y).Value + Chr(INT(26 * RND + 97))
END IF


NEXT I
NEXT Y



upup, очень срочно нужно =( выручайте

[EugeneS]

Dim Y, I
Randomize
For Y = 1 To 10
Worksheets("Лист1").Range("A" & Y).Value = ""
If Cells(Y, 2) = 1 Then
For I = 0 To 6
If I = 1 Or I = 4 Then
Worksheets("Лист1").Range("A" & Y).Value = Worksheets("Лист1").Range("A" & Y).Value + Chr(Int(10 * Rnd + 48))
Else
Worksheets("Лист1").Range("A" & Y).Value = Worksheets("Лист1").Range("A" & Y).Value + Chr(Int(26 * Rnd + 97))
End If
Next I
End If
Next Y

например, можно так