✔ 最佳答案
由于考慮到Password不會是一個位, 可能是 6 - 12 位, 甚至更多
如用公式串連, 公式會非常長, 難以應用。
故建議用VBA 自訂函數, 代碼是:
Function PWX(dgt As Integer) As String
x = "0123456789abcdefghijklmnopqrstuvwxyz"
For i = 1 To dgt
pw = pw & Mid(x, Int(Rnd() * Len(x) + 1), 1)
Next
PWX = pw
End Function
在任何一格輸入:
=pwx(12)
馬上會顯示 1個 12位的password
=pwx(18)
馬上會顯示 1個 18位的password
如有部份數字/字母不想出現, 如 數字0,1,4; 字母 I, l, o z 等, 可在代碼中的x值內刪除
亦可重覆一些喜愛的字符, 增加其概率
如不懂VBA 或 password 只是一個位 或位數不多
建議 插入, 名稱, 定義
現有名稱輸入:pwy
參照到輸入: =mid("0123456789abcdefghijklmnopqrstuvwxyz",int(rand()*36+1),1)
在任何一格輸入:
=pwy
馬上會顯示 1個 1位的password
=pwy&pwy&pwy
馬上會顯示 1個 3位的password