大家好，雨雨來為大家解答以上問題，整人小程序視頻，整人小程序很多人還不知道，現(xiàn)在讓我們一起來看看吧！

【資料圖】

今天給大家分享一下在excel中用vba制作惡作劇小程序的方法。很好，值得學習。請大家推薦一下，一起學習！

步驟

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

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

選項顯式

Sub惡作劇()

維度數(shù)量%

Num=InputBox("從1到5中選擇任意數(shù)字來測試您的角色")

MsgBox (Choose(Num，"宅"，"腐"，"妖"，"顏"，"人"))

末端接頭

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

4.然后，在選擇之后，我們使用msgbox來顯示結(jié)果。這里我們用choose函數(shù)進行選擇，給出相應的1-5個選項。

5.這里，我們不驗證輸入的數(shù)字。如果輸入的數(shù)字小于1或大于5，choose函數(shù)將報告錯誤，因為數(shù)字的下標超過了。

6.因此，我們必須限制Num變量的輸入值。限制方法可以使用if函數(shù)來判斷Num變量的值。如果有錯誤，它將顯示錯誤并退出進程。

如果數(shù)字1或數(shù)字5，則MsgBox("輸入錯誤")

如果數(shù)字1或數(shù)字5，則退出Sub

以上是excel vba編程制作惡作劇小程序的介紹。操作很簡單。你學會了嗎？希望能對大家有所幫助！

本文講解到此結(jié)束，希望對大家有所幫助。

標簽：

關(guān)鍵詞：