今天小編為大家分享excel中使用vba制作一個(gè)惡作劇小程序方法，很不錯(cuò)，值得大家學(xué)習(xí)，推薦過(guò)來(lái)，一起來(lái)學(xué)習(xí)吧！

步驟

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

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

Option Explicit

Sub 惡作劇()

Dim Num%

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

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

End Sub

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

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

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

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

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

If Num < 1 Or Num > 5 Then Exit Sub

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