自己寫 Excel 函式

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

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

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

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

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