用EXCEL表格做的36選7歷史走勢圖中，如何不讓本次要選的號碼不與已開獎過的數字重復？

按鍵ALT+F11，則打開VBA代碼編輯器，

菜單中［插入］—［模塊］，粘貼以下代碼進去。

Function to36(a As Long)

n="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Do

If a < 36 Then n = Mid(n, a + 1, 1) & n: Exit Do

m = a Mod 36

n = Mid(n, m + 1, 1) & n

If a = 36 Then n = 1 & n: Exit Do

a = (a - m) / 36

Loop

End Function

2，在單元格中設置公式，並使用以上的自定義函數，

如在 A1中輸入100, B1中設置公式 =to36(A1) , 結果顯示為36進制的 2S

沒想到花了半天時間解開密碼，出來的居然是這些東西。＂章旭友非常失望的搖搖頭，但是眼睛依然緊盯著熒幕．