大家好，雨雨來為大家解答以上問題，整人小程序視頻，整人小程序很多人還不知道，現(xiàn)在讓我們一起來看看吧！

今天給大家分享一下在excel中用vba制作惡作劇小程序的方法。很好，值得學(xué)習(xí)。請(qǐng)大家推薦一下，一起學(xué)習(xí)！

步驟

1.首先我們打開一個(gè)工作樣表作為例子。

2.使用alt f11組合鍵進(jìn)入vbe編輯器，插入一個(gè)新模塊，并在模塊中輸入以下代碼：

選項(xiàng)顯式

Sub惡作劇()

維度數(shù)量%

Num=InputBox('從1到5中選擇任意數(shù)字來測(cè)試您的角色')

MsgBox (Choose(Num，'宅'，'腐'，'妖'，'顏'，'人'))

末端接頭

3.我們聲明一個(gè)變量Num是一個(gè)整數(shù)，并將其賦為輸入值，提示是輸入1到5之間的任意數(shù)字。

4.然后，在選擇之后，我們使用msgbox來顯示結(jié)果。這里我們用choose函數(shù)進(jìn)行選擇，給出相應(yīng)的1-5個(gè)選項(xiàng)。

5.這里，我們不驗(yàn)證輸入的數(shù)字。如果輸入的數(shù)字小于1或大于5，choose函數(shù)將報(bào)告錯(cuò)誤，因?yàn)閿?shù)字的下標(biāo)超過了。

6.因此，我們必須限制Num變量的輸入值。限制方法可以使用if函數(shù)來判斷Num變量的值。如果有錯(cuò)誤，它將顯示錯(cuò)誤并退出進(jìn)程。

如果數(shù)字1或數(shù)字5，則MsgBox('輸入錯(cuò)誤')

如果數(shù)字1或數(shù)字5，則退出Sub

以上是excel vba編程制作惡作劇小程序的介紹。操作很簡(jiǎn)單。你學(xué)會(huì)了嗎？希望能對(duì)大家有所幫助！

本文講解到此結(jié)束，希望對(duì)大家有所幫助。

　　免責(zé)聲明：本文由用戶上傳，與本網(wǎng)站立場(chǎng)無關(guān)。財(cái)經(jīng)信息僅供讀者參考，并不構(gòu)成投資建議。投資者據(jù)此操作，風(fēng)險(xiǎn)自擔(dān)。 如有侵權(quán)請(qǐng)聯(lián)系刪除！