第1.17例 InputBox函數
一、題目:
要求編寫(xiě)一段代碼,運用InputBox函數,用戶(hù)輸入一定范圍的數值并返回結果。
二、代碼:
Sub 示例_1_17()
Dim Msg$,bt$, Default$, MyValue,aa
Msg ="輸入一個(gè)10到25之間的數值:"
bt ="InputBox 函數示例"
Default ="10" ' 設置缺省值。
100:
MyValue = InputBox(Msg,bt, Default)
If MyValue < 10 Or MyValue > 25Then
aa =MsgBox("輸入數值超出范圍,請重新輸入或者退出。", 1)
If aa<> vbOK Then Exit Sub
GoTo100
Else
MsgBox "你輸入的是" & MyValue
End If
End Sub
三、代碼詳解
1、Sub 示例_1_17():宏程序的開(kāi)始語(yǔ)句。宏名為示例_1_17。
2、Dim Msg$, bt$, Default, MyValue,aa :變量Msg、Default和bt聲明為字符串數據類(lèi)型,其它的沒(méi)有顯式聲明,都為可變型數據類(lèi)型。
3、Msg = "輸入一個(gè)10到25之間的數值:" :設置提示信息,把字符串賦給變量Msg。
4、bt = "InputBox 函數示例" :設置標題,把字符串賦給變量bt。
5、Default = "10" :設置缺省值,把字符串賦給變量Default。
6、MyValue = InputBox(Msg,bt, Default) :通過(guò)InputBox函數顯示信息、標題及缺省值,把函數返回值賦給變量MyValue。
7、If MyValue < 10 Or MyValue > 25Then :如果InputBox函數返回的數值小于10或者大于25,那么執行下面的語(yǔ)句。
8、aa = MsgBox("輸入數值超出范圍,請重新輸入或者退出。",1) :如果InputBox函數返回的數值超出了范圍,顯示一個(gè)消息框,消息框里面的第2個(gè)參數是1,表示消息框上有兩個(gè)按鈕:“確定”和“取消”按鈕。并把消息框返回的結果賦給變量aa。
9、If aa <> vbOK Then ExitSub :如果用戶(hù)按了消息框上的“取消”按鈕,就退出本程序。
10、GoTo100 :如果用戶(hù)按了消息框上的“確定”按鈕,就轉而從行號100開(kāi)始執行代碼。
11、MsgBox "你輸入的是 " &MyValue :如果用戶(hù)輸入了符合要求的數值,按了回車(chē)鍵或者“確定”按鈕,消息框顯示用戶(hù)輸入的值。
InputBox 函數
在一對話(huà)框來(lái)中顯示提示,等待用戶(hù)輸入正文或按下按鈕,并返回包含文本框內容的字符串。
語(yǔ)法
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile,context])
InputBox 函數的語(yǔ)法具有以下幾個(gè)命名參數:
Prompt 必需的。作為對話(huà)框消息出現的字符串表達式。Prompt 的最大長(cháng)度大約是 1024個(gè)字符,由所用字符的寬度決定。如果 Prompt 包含多個(gè)行,則可在各行之間用回車(chē)符 (Chr(13))、換行符 (Chr(10))或回車(chē)換行符的組合 (Chr(13) & Chr(10)) 來(lái)分隔。
Title 可選的。顯示對話(huà)框標題欄中的字符串表達式。如果省略Title,則把應用程序名放入標題欄中。
Default 可選的。顯示文本框中的字符串表達式,在沒(méi)有其它輸入時(shí)作為缺省值。如果省略Default,則文本框為空。
其它參數省略,請參見(jiàn)Excel幫助文件。
本站僅提供存儲服務(wù),所有內容均由用戶(hù)發(fā)布,如發(fā)現有害或侵權內容,請
點(diǎn)擊舉報。