excel中利用VBA生成一列隨機(jī)字符串 代碼

Excel中利用VBA生成一列隨機(jī)字符串 代碼

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

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

Sub MakeRandomString()Dim J As IntegerDim K As IntegerDim iTemp As IntegerDim sNumber As StringDim RandomStr(1 To 100, 1 To 1) As StringDim bOK As BooleanRandomizeFor J = 1 To 100sNumber = ""For K = 1 To 12DoiTemp = Int((122 – 48 + 1) * Rnd + 48)Select Case iTempCase 48 To 57, 65 To 90, 97 To 122bOK = TrueCase ElsebOK = FalseEnd SelectLoop Until bOKbOK = FalsesNumber = sNumber & Chr(iTemp)Next KRandomStr(J, 1) = sNumberNext JRange("A1:A100").Value = RandomStrEnd Sub

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

For K = 1 To 12

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

For K = 1 To 10

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

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。