錦子老師

齊秀瑛：「晚安，錦子老師，我想要在Excel自訂一個函數能隨機產生天干地支字串。」

錦子老師：「這是我的一種作法，請參考：

按ALT+F11鍵開啟VBA視窗。

點取「插入 > 模組」指令，新增Module1模組。

輸入下列程序：

Function RandString(N As Long) As String

  Dim X As Long, Y As Long, M As Long, S As String, SOU As String

  SOU = "甲乙丙丁戊己庚辛壬癸子丑寅卯辰巳午未申酉戌亥"

  M = Len(SOU)

  For X = 1 To N

    Y = 1 + Int(M * Rnd())

    S = S & Mid(SOU, Y, 1)

  Next X

  RandString = S

End Function

如果我們要隨機取3個字元，則點取任一儲存格輸入公式：

=RandString(3)

結果如下圖。

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

部落格相關範例