excel如何使用vba编程制作一个恶作剧小程序(VBA如何编写一个恶作剧)
今天為大家分享excel中使用vba制作一個惡作劇小程序方法,很不錯,值得大家學習,推薦過來,一起來學習吧!
步驟
1、首先我們打開一個工作樣表作為例子。
2、使用alt+f11組合快捷鍵進入vbe編輯器,插入一個新模塊,并在模塊中輸入以下代碼:
Option Explicit
Sub 惡作劇()
Dim Num%
Num = InputBox("選擇1-5任意一個數字測試你的性格")
MsgBox (Choose(Num, "宅", "腐", "妖", "艷", "man"))
End Sub
3、我們聲明了一個變量Num為整數型,并將其賦值為輸入值,并且提示是輸入1-5之間任意一個數字。
4、然后在選取之后,我們使用msgbox將其結果顯示出來,這里我們使用choose函數來做選擇,并給出對應的1-5的選項。
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
以上就是excel vba編程制作一個惡作劇小程序方法介紹,操作很簡單的,大家學會了嗎?希望能對大家有所幫助!
總結
以上是生活随笔為你收集整理的excel如何使用vba编程制作一个恶作剧小程序(VBA如何编写一个恶作剧)的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: centos7安装教程(Centos7)
- 下一篇: 消息称龙芯有意入局显卡市场,目前已完成通