無聊的時候自己搞一個小程序抽簽,，試試手氣如何

我曾在重慶磁器口古鎮(zhèn)花了一元錢進行抽簽玩玩而已,，這個設計的人挺聰明,，無人值守，自己掃碼付款一元,，隨機抽簽,，這相當于一個微型印鈔機呀,，老板估計財務自由了。

其實這個也可以用Excel來編一個,，不過沒有抽簽的那種手感,，電子版的完全不一樣。

我在A列和B列編寫如下內(nèi)容,。

繪制一個按鈕,，如下效果

當你無聊的時候，就可以隨機抽簽,，試試手氣,，抽獎也是類似這樣做出來的。

按鈕里的代碼如下：

每次點擊一下,，隨機抽簽,。

代碼解釋一下：

Dim 語句為聲明數(shù)據(jù)類型

Randomize 語句確保每次打開文件隨機產(chǎn)生，沒有這一句,，每次打開文件點擊第一次出現(xiàn)的都是相同的,。

INT(最大-最小)*rnd+1)固定語句，可以獲取最小到最大隨機數(shù),。這里最大為第16行,，最小為第1行，所以16-1 ,。

Cells(myrow,1)為第1列隨機行,，cells(myrow,2)第2列隨機行。

Vbcrlf 換行顯示,。中間用&拼結(jié)一下,。

顯示如下效果

至此解釋完畢。