第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)擊舉報。
