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

【資料圖】

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

步驟

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

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

選項(xiàng)顯式

Sub惡作劇()

維度數(shù)量%

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

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

末端接頭

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

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

5.這里，我們不驗(yàn)證輸入的數(shù)字。如果輸入的數(shù)字小于1或大于5，choose函數(shù)將報(bào)告錯(cuò)誤，因?yàn)閿?shù)字的下標(biāo)超過了。

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

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

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

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

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

標(biāo)簽：

關(guān)鍵詞：