VBA：作作亂數也可以當序號產生器玩玩

要產生亂數，在EXCEL中，可以用亂數的函數RND或RANDBETWEEN來產生，

在VBA中其實也可以依樣畫葫蘆作出亂數的效果。

來看看~~

例如想做一個"數字組合-英文字母-數字組合"的流水號(序號)

怎搞呢!!

EXCEL亂數函數RandBetween，可透過設定資料上下限來界定亂數資料範圍。

ASC碼則是可以透過數字控制要出現數字或英文字母。

CHR函數則是輸入ASC碼來產生資料。

程式碼：

A = WorksheetFunction.RandBetween(1, 9) & WorksheetFunction.RandBetween(1, 9) & "-" &   CHR(WorksheetFunction.RandBetween(65, 90)) & Chr(WorksheetFunction.RandBetween(65, 90)) & "-" &  Chr(WorksheetFunction.RandBetween(65, 90)) & Chr(WorksheetFunction.RandBetween(65, 90))

執行結果

如何不重複產生呢!!

就每次產生完再檢查一次已產生的，重複就再次產生即可