捐血一袋救人一命

2015年1月29日 星期四

自己寫 Excel 函式

以下是一個簡單的亂數密碼產生函式

首先您在 Excel ,按下 Alt-F11,開啟 Visual Basic,

image

然後選擇 “插入”→"模組”,把以下程式碼輸入,就完成一個函式 RandPwd()

imageimage

如果要使用它,就在 Cell 裡輸入 =RandPwd(8),該格就會產生一個8碼長度的亂數密碼

image

Public Function RandPwd(Num As Integer)

Dim Rand As String

Application.Volatile

Do

i = i + 1

Randomize

Rand = Rand & Chr(Int((85) * Rnd + 38))

Loop Until i = Num

RandPwd = Rand

End Function

反應:

0 意見: