今天為大家分享excel中使用vba制作一個惡作劇小程序方法，很不錯，值得大家學(xué)習(xí)，推薦過來，一起來學(xué)習(xí)吧!

　　步驟

　　1、首先我們打開一個工作樣表作為例子。

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

　　Option Explicit

　　Sub 惡作劇()

　　Dim Num%

　　Num = InputBox("選擇1-5任意一個數(shù)字測試你的性格")

　　MsgBox (Choose(Num， "宅"， "腐"， "妖"， "艷"， "man"))

　　End Sub

　　3、我們聲明了一個變量Num為整數(shù)型，并將其賦值為輸入值，并且提示是輸入1-5之間任意一個數(shù)字。

　　4、然后在選取之后，我們使用msgbox將其結(jié)果顯示出來，這里我們使用choose函數(shù)來做選擇，并給出對應(yīng)的1-5的選項。

　　5、這里我們沒有對輸入的數(shù)字進(jìn)行驗證，如果輸入小于1，或者是大于5的數(shù)字，那么choose函數(shù)會因為數(shù)字下標(biāo)超出而報錯。

　　6、所以我們必須對Num變量的輸入值進(jìn)行一個限制，限制的方法可以使用if函數(shù)對Num變量值進(jìn)行判斷，如果出現(xiàn)錯誤則顯示錯誤并且退出過程。

　　If Num < 1 Or Num > 5 Then MsgBox ("輸入錯誤")

　　If Num < 1 Or Num > 5 Then Exit Sub

　　以上就是excel vba編程制作一個惡作劇小程序方法介紹，操作很簡單的，大家學(xué)會了嗎?希望能對大家有所幫助!

總結(jié)

以上是生活随笔為你收集整理的excel如何使用vba编程制作一个恶作剧小程序(VBA如何编写一个恶作剧)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。