Excel中使用VBA制作一個惡作劇小程序的操作方法

Excel中使用VBA制作一個惡作劇小程序的操作方法

　　excel中使用vba制作一個惡作劇小程序，具體的操作是怎么樣進行的?今天，學習啦小編就教大家在Excel中使用VBA制作一個惡作劇小程序的操作方法。

　　Excel中使用VBA制作一個惡作劇小程序的操作步驟如下：

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

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

　　Option Explicit

　　Sub 惡作劇()

　　Dim Num%

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

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

　　End Sub

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

　　然后在選取之后，我們使用msgbox將其結果顯示出來，這里我們使用choose函數來做選擇，并給出對應的1-5的選項。

　　這里我們沒有對輸入的數字進行驗證，如果輸入小于1，或者是大于5的數字，那么choose函數會因為數字下標超出而報錯。

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

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

　　If Num < 1 Or Num > 5 Then Exit Sub