Excel中使用VBA制作一個惡作劇小程序的操作方法
時間:
曉生931由 分享
Excel中使用VBA制作一個惡作劇小程序的操作方法
excel中使用vba制作一個惡作劇小程序,具體的操作是怎么樣進行的?今天,學(xué)習(xí)啦小編就教大家在Excel中使用VBA制作一個惡作劇小程序的操作方法。
Excel中使用VBA制作一個惡作劇小程序的操作步驟如下:
首先我們打開一個工作樣表作為例子。
使用alt+f11組合快捷鍵進入vbe編輯器,插入一個新模塊,并在模塊中輸入以下代碼:
Option Explicit
Sub 惡作劇()
Dim Num%
Num = InputBox("選擇1-5任意一個數(shù)字測試你的性格")
MsgBox (Choose(Num, "宅", "腐", "妖", "艷", "man"))
End Sub
我們聲明了一個變量Num為整數(shù)型,并將其賦值為輸入值,并且提示是輸入1-5之間任意一個數(shù)字。
然后在選取之后,我們使用msgbox將其結(jié)果顯示出來,這里我們使用choose函數(shù)來做選擇,并給出對應(yīng)的1-5的選項。
這里我們沒有對輸入的數(shù)字進行驗證,如果輸入小于1,或者是大于5的數(shù)字,那么choose函數(shù)會因為數(shù)字下標(biāo)超出而報錯。
6所以我們必須對Num變量的輸入值進行一個限制,限制的方法可以使用if函數(shù)對Num變量值進行判斷,如果出現(xiàn)錯誤則顯示錯誤并且退出過程。
If Num < 1 Or Num > 5 Then MsgBox ("輸入錯誤")
If Num < 1 Or Num > 5 Then Exit Sub
Excel中使用VBA制作一個惡作劇小程序的操作相關(guān)文章: