日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

用下面的VBA代碼可以在A1:A100區(qū)域中生成由大小寫字母和數(shù)字組成的12位長(zhǎng)度的隨機(jī)字符串，從中挑選幾個(gè)作為密碼用還是不錯(cuò)的。

在Excel中按Alt+F11打開VBA編輯器，雙擊“工程”窗口中的某個(gè)工作表名稱，在右側(cè)的代碼窗口中輸入下列代碼：

Sub MakeRandomString()
Dim J As Integer
Dim K As Integer
Dim iTemp As Integer
Dim sNumber As String
Dim RandomStr(1 To 100, 1 To 1) As String
Dim bOK As Boolean
Randomize
For J = 1 To 100
sNumber = ""
For K = 1 To 12
Do
iTemp = Int((122 – 48 + 1) * Rnd + 48)
Select Case iTemp
Case 48 To 57, 65 To 90, 97 To 122
bOK = True
Case Else
bOK = False
End Select
Loop Until bOK
bOK = False
sNumber = sNumber & Chr(iTemp)
Next K
RandomStr(J, 1) = sNumber
Next J
Range("A1:A100").Value = RandomStr
End Sub

最后運(yùn)行代碼。如果要生成其他長(zhǎng)度的隨機(jī)字符串，將其中的

For K = 1 To 12

中的“12”改為其他數(shù)字即可，如：

For K = 1 To 10

即可生成10位長(zhǎng)度的隨機(jī)字符串。