第8課VBA輸入語(yǔ)句InputBox

1、第八課 輸入語(yǔ)句Inputbox上一節(jié)課講述了輸出語(yǔ)句Msgbox，它可以將某些信息輸出到屏幕上。本節(jié)課講述與之對(duì)應(yīng)的輸入語(yǔ)句。輸入語(yǔ)句主要Inputbox函數(shù)和Application.lnputbox方法，它們功能相近，不過后者更強(qiáng) 大。第8.1節(jié)Inputbox函數(shù)Inputbox函數(shù)是VBA中用于錄入數(shù)據(jù)的函數(shù)，它可在屏幕上創(chuàng)建一個(gè)輸入框，等待用戶 輸入字符。當(dāng)按下“確定”或者“取消”按鈕后可返回用戶錄入的String類型的文本或者空文本(當(dāng)按下“取消”鍵時(shí)是空文本)。Inputbox可為用戶提供數(shù)據(jù)錄入窗口，然后根據(jù)用戶錄入的字符決定下一步的操作。 例如下圖中，用戶的錄入信息決定程序的

2、計(jì)算方式，這是典型的inputbox應(yīng)用。圖1以錄入值確定計(jì)算方式8.1.1 Inputbox函數(shù)的語(yǔ)法Inputbox的具體語(yǔ)法如下：In putBox(prompt, title , default , xpos , ypos , helpfile, con text)其中第一參數(shù)是必選參數(shù)，其余參數(shù)為可選參數(shù)。各參數(shù)的詳細(xì)解釋見下表:表1 Inputbox的參數(shù)詳解部分描述Prompt作為對(duì)話框消息出現(xiàn)的字符串表達(dá)式。prompt的最大長(zhǎng)度大約是 1024個(gè)字符，由所用字符的寬度決定Title顯示對(duì)話框標(biāo)題欄中的字符串表達(dá)式。如果省略title，則把應(yīng)用程序名放入標(biāo)題欄中Default顯

3、示文本框中的字符串表達(dá)式，在沒有其他輸入時(shí)作為默認(rèn)值Xpos數(shù)值表達(dá)式，成對(duì)岀現(xiàn)，指定對(duì)話框的左邊與屏幕左邊的水平距離。如果省略xpos，則對(duì)話框會(huì)在水平方向居中Ypos數(shù)值表達(dá)式，成對(duì)出現(xiàn)，指定對(duì)話框的上邊與屏幕上邊的距離。如果省略ypos，則對(duì)話框被放置在屏幕垂直方向距下邊大約三分之一的位置Helpfile字符串表達(dá)式，識(shí)別幫助文件，用該文件為對(duì)話框提供上下文相關(guān)的幫助Context數(shù)值表達(dá)式，由幫助文件的作者指定給某個(gè)幫助主題的幫助上下文編號(hào)其中最重要的是前面三個(gè)參數(shù)，包括提示信息、對(duì)話框標(biāo)題和默認(rèn)值。在特殊情況下，第四、第五參數(shù)也具有其實(shí)用價(jià)值一一強(qiáng)制指定對(duì)話框的顯示位置，從而防止對(duì)話

4、框擋住當(dāng)前窗口。8.1.2案例應(yīng)用從以下案例中，可以加深對(duì)Inputbox的認(rèn)識(shí)。1定制“另存為”對(duì)話框設(shè)計(jì)一個(gè)用于文件另存的對(duì)話框，固定保存在C盤下，用戶可以隨意定制文件名，默認(rèn)名稱為當(dāng)前日期。代碼如下：Sub工作簿另存()Dim FileName As String聲明變量彈出一個(gè)錄入框，讓用戶指定文件名，默認(rèn)值為當(dāng)前日期FileName = InputBox( 請(qǐng)輸入工作簿新名稱 ，”另存為, Format(Date, yyyy-mm-dd), 10, 10)如果按下了取消或者錄入空值，那么結(jié)束過程If Len(FileName) = 0 Then Exit Sub當(dāng)前工作簿另存到C盤中

5、，文件名為用戶指定字符ThisWorkbook.SaveAs c: & FileNameEnd Sub執(zhí)行以上代碼時(shí)，將彈出一個(gè)“另存為”對(duì)話框供用戶錄入新名稱，其默認(rèn)值為當(dāng)前日 期，如下圖所示：圖2定制的“另存為”對(duì)話框關(guān)于以上代碼，補(bǔ)充八點(diǎn)：(1) Inputbox的返回值總是文本，如果要求返回值不是文本盡量改用application.lnputbox 。本例中用變量FileName來(lái)保存Inputbox的值，所以變量FileName的數(shù)據(jù)類型也用 String。(2) date語(yǔ)句用戶于獲取當(dāng)前的系統(tǒng)日期，默認(rèn)的日期格式受控制面板所影響，分隔符有可能是“也可能是“ /”，而“/”不能作為

6、文件名稱，所以本例采用Format函數(shù)將它格式化，強(qiáng)制使用“-”作分隔符。Format函數(shù)類似于工作表函數(shù)text，可以將數(shù)值、日期按需求轉(zhuǎn)換格式。而且text函數(shù)能用的格式絕大多數(shù)都能用于Format中。InputBox函數(shù)的第4、第5參數(shù)分別使用10,表示輸入框顯示在屏幕左上角，離幕屏 的上邊緣和左邊緣的距離都是10。原點(diǎn)是屏幕左上角，而不是Exce I應(yīng)用程序的左上角，當(dāng)改變Excel的窗口大小可以看出差異。(5) InputBox函數(shù)允許用戶隨意錄入字符，也提供默認(rèn)值。默認(rèn)值由函數(shù)的第三參數(shù)決定。按下“取消”按鈕時(shí)，函數(shù)的返回值是空文本，其長(zhǎng)度為0。由于文件的名字不可能長(zhǎng)度為0，所以為

7、了防錯(cuò)，加入“ Exit Sub”，表示用戶不指定文件名稱就結(jié)束過程，不再執(zhí) 行后面的代碼。ThisWorkbook表示VBA代碼所在工作簿， 例如代碼寫在 Book1中，那么ThisWorkbook代表Book1，代碼寫在 Book2中那么 ThisWorkbook代表Book2。Workbook.SaveAs 方法”c: & FileName 。(8) Workbook.SaveAs方法表示將工作簿另存，可以使用關(guān)鍵字“ 在幫助中搜索到它的詳細(xì)說(shuō)明。它的參數(shù)是文件路徑，查例采用的“2. 根據(jù)指定月份批量創(chuàng)建工作表要求：用戶指定一個(gè)月份，程序創(chuàng)建以該月每日日期命名的工作表。代碼如下：Sub新

8、建工作表()批量建立新表，個(gè)數(shù)等于本月天數(shù)，同時(shí)對(duì)日期命名，并建立目錄Dim i As Byte, months As Byte聲明變量彈出一個(gè)對(duì)話框，讓用戶指定月份，默認(rèn)顯示當(dāng)前月 months = lnputBox(請(qǐng)輸入月份，程序?qū)⒔⒃撛旅咳杖掌诿墓ぷ鞅?確定月份Month(Date)批量生成工作表，其個(gè)數(shù)等于指定月份的天數(shù)減去當(dāng)前已有工作表個(gè)數(shù)，即確保工作表數(shù)量等于該月天數(shù)WorkSheets.AddAfter:=WorkSheets(WorkSheets.Count),Count:=Day(DateSerial(Year(Date), months + 1,0) - Sheet

9、s.Count將所有工作表重命名，工作表名對(duì)應(yīng)每日的日期For i = 1 To Worksheets.CountWorkSheets(i).Name = months & 月& i & 日對(duì)每個(gè)工作表命名Next iMsgBox 建立完畢！ , 64End Sub執(zhí)行以上代碼時(shí)，先彈出以下對(duì)話框：清揃入月色程帛弓建立該號(hào)毎日日朋命名的工吃表13圖3輸入月份(默認(rèn)值是當(dāng)前月的月份)錄入月份后可以得到以下結(jié)果:AECDEF12si5E # h $ 匸 1LL勺口 2 二匸歸/3月化y 3J=5 T 皿圖4以指定月中每日日期命名的工作表針對(duì)以上代碼需要補(bǔ)充五點(diǎn)：(1)代碼中“ Dim i As B

10、yte, months As Byte ”用于聲明變量和變量的數(shù)據(jù)類型，這是下一 節(jié)課的講述重點(diǎn)。本課時(shí)稍有了解即可。數(shù)據(jù)類型Byte的范圍是0-255，因?yàn)樵路莺腿掌诘姆秶?-12和1-31,所以宜用 Byte型變量。(2) Month函數(shù)用于計(jì)算日期值的月份。由于Date表示當(dāng)前系統(tǒng)日期，所以Month(Date)的計(jì)算結(jié)果是本月月份。(3) 由于要?jiǎng)?chuàng)建等于整月天數(shù)的工作表，而工作簿中已經(jīng)在若干個(gè)工作表，可能1個(gè)也可能3個(gè)，所以本例采用的辦法是整月的天數(shù)減去現(xiàn)有的工作表數(shù)量(WorkSheets.Count)。Worksheets.Add方法表示創(chuàng)建工作表，其語(yǔ)法如下：Worksheet

11、s.Add(Before, After, Cou nt. Type)其中Before和After表示新表的參照位置，兩者只能取其一。Count參數(shù)表示工作表的數(shù)量，即一次性創(chuàng)建的數(shù)量。本例采用的是“ Day(DateSerial(Year(Date), mon ths + 1, 0) - Worksheets.Cou nt ”，即整月天數(shù)減去已經(jīng)有的 工作表數(shù)量。Type參數(shù)表示新表的類型，默認(rèn)值是工作表。代碼After:=Worksheets(Worksheets.Count) ”表示新表的位置是最后一個(gè)工作表之后?！?Worksheets.Cou nt ”表示工作表的總數(shù)量，“ Works

12、heets(Worksheets.Cou nt) ” 則是最后一個(gè)工作表。(5) “ Day(DateSerial(Year(Date), mon ths + 1, 0) ”比較難懂一點(diǎn)?！?DateSerial(Year(Date),mon ths + 1,0) ”表示變量mo nths所代表的月份的下一個(gè)月的0號(hào)這一天的日期值，由于日期函數(shù)DateSerial可以智能地調(diào)節(jié)日期，沒有0日這一天，所以將下月0日調(diào)整為本月最后一天。代碼正是利用了這個(gè)智能調(diào)節(jié)功能，故意將月份設(shè)置為mo nths + 1，將日期設(shè)置為0日，從而簡(jiǎn)單地獲得months月最后一天的日期。最后利用Day函數(shù)計(jì)算這個(gè)日期

13、在當(dāng)月中屬于第幾天。例如2013年2月28日的日期序號(hào)是41333, Day函數(shù)能將它轉(zhuǎn)換成 28,表示這一天是當(dāng)月的第28天。(6) 創(chuàng)建好工作表后，利用一個(gè)循環(huán)語(yǔ)句對(duì)工作表重命名，“ For i = 1 To Worksheets.Cou nt ”表示從第1表到最后一個(gè)工作表?！?Worksheets(i).Name = mon ths & ”月” & i & ”日表示對(duì)工作表逐個(gè)命名為“ X月Y日”格式的工作表名稱。在第21課時(shí)會(huì)講到循環(huán)語(yǔ)句。如果在Inputbox中需要更多的提示信息，那么可以使用Chr(10)來(lái)分行。例如本例中Inputbox語(yǔ)句可以修改為：months = Inpu

14、tBox(請(qǐng)輸入月份，程序?qū)⒔⒃撛旅咳杖掌诿墓ぷ鞅? Chr(10) & 例如輸入4月，則產(chǎn)生的工作表則為4月1日 4月2日,確定月份, Month(Date)3. 將A1日期按指定樣式轉(zhuǎn)換為星期A1存放日期，現(xiàn)需將其轉(zhuǎn)換為星期，程序需要讓用戶決定轉(zhuǎn)換方式，即提供三個(gè)可選項(xiàng)。達(dá)成以上需求可以使用代碼：Sub將A1日期轉(zhuǎn)換為星期()Dim Week As Byte聲明變量提供輸入框，讓用戶選擇轉(zhuǎn)換方式。在輸入框中可以預(yù)覽轉(zhuǎn)換后的結(jié)果Week = InputBox(請(qǐng)選擇轉(zhuǎn)換樣式：& Chr(10) & 輸入 1: & WorksheetFunction.Text (a1, DDD) & C

15、hr(10) _& 輸入 2 : & WorksheetFunction.Text (a1, DDDD) & Chr(10)& 輸入 3 : &WorksheetFunction.Text (a1, AAA) & Chr(10) _& 輸入 4: & WorksheetFunction.Text (a1, AAAA),選擇轉(zhuǎn)換樣式,1)根據(jù)用戶錄入的數(shù)字對(duì) A1的日期進(jìn)行轉(zhuǎn)換b1 = WorksheetFunction.Text (a1, Choose(Week, DDD, DDDD, AAA, AAAA)End Sub該過程中利用Inputbox顯示一個(gè)輸入框，在輸入框中可以預(yù)覽轉(zhuǎn)換后的四種

16、日期樣式， 只要輸入1到4之間的任何數(shù)字，程序會(huì)對(duì)應(yīng)地轉(zhuǎn)換日期為星期格式。假設(shè)A1是2013-3-2，那么輸入框外觀如下圖所示。圖5提示用戶選擇轉(zhuǎn)換樣式在該過程中，使用了 Choose函數(shù)，它可以根據(jù)第一參數(shù)的值從后面的參數(shù)中選擇對(duì)應(yīng)的 值作為Text程序沒有使用防錯(cuò)功能，如果輸入的值小于1或者大于4將產(chǎn)生錯(cuò)誤。第8.2節(jié)Inputbox的限制前面展示了 Inputbox函數(shù)的功能及其在實(shí)際應(yīng)用中的神奇功效， 但也不代表它沒有缺陷。 它不僅有缺陷，而且有較多缺陷。要更好地發(fā)揮程序的功能、更好地運(yùn)用好字符輸入框，就有必要了解它到底有哪些限制。整體而言，Inputbox函數(shù)主要有以下限制，制約著它

17、無(wú)法更好地在VBA中展現(xiàn)其功能：1不能檢驗(yàn)用戶錄入字符的數(shù)據(jù)類型通常，在VBA中期望終端用戶錄入什么類型的數(shù)據(jù)，但有時(shí)終端用戶基于測(cè)試或者其他目的，會(huì)故意錄入錯(cuò)誤的數(shù)據(jù)，此時(shí)程序可能會(huì)彈出與實(shí)際錯(cuò)誤不相符的提示。而作為開發(fā)者，有必要防范此事故發(fā)生。例如錄入表示月份的數(shù)值時(shí)，要求用戶輸入1到12的數(shù)字，但用戶如果故意輸入“5月”或者“五”，那么程序會(huì)產(chǎn)生錯(cuò)誤， 而且對(duì)于此類錯(cuò)誤，Inputbox并沒有內(nèi)置任何防范措施。2不能產(chǎn)生單元格引用如果用戶需要輸入單元格地址，在Inputbox對(duì)話框中，用戶只能手工錄入地址。這顯然效率不高且容易產(chǎn)生錯(cuò)誤。例如在Excel 2010使用兼容模式下卻手工輸入了

18、“ZZ100 ”之類的錯(cuò)誤。而更理想的方式是讓用戶直接選擇區(qū)域，程序自動(dòng)將選區(qū)地址返回給對(duì)話框。這種問題只能留給 Application對(duì)象的Inputbox方法來(lái)處理。3字符長(zhǎng)度限制對(duì)話框中的字符串和用戶錄入的字符（即第一和第三參數(shù)）都限定1024左右，如果是純漢字則為511個(gè)。如果用戶的需求超過以上限制，應(yīng)該考慮使用窗體來(lái)體現(xiàn)。第8.3節(jié) Application.lnputBox方法VBA中有一個(gè)與Inputbox函數(shù)功能類似，卻強(qiáng)大很多的語(yǔ)句 Application.1 nputbox 方 法。要注意它是方法，不是函數(shù)。Application.1 nputbox方法在功能上與Inputb

19、ox函數(shù)基本一致，但卻提供了數(shù)據(jù)類型檢測(cè) 和直接產(chǎn)生區(qū)域引用的功能，大大方便了用戶的使用。在工作中盡量使用 Application.lnputbox方法替代Inputbox函數(shù)。使用時(shí)一定要注意，不對(duì)用戶錄入信息進(jìn)行驗(yàn)證的是VBA中的Inputbox函數(shù)，帶驗(yàn)證功能的是 Application.lnputbox 方法。8.3.1 Application.l 叩 utbox語(yǔ)法詳解Application.lnputbox方法的基本語(yǔ)法如下：Applicati on .I nputBox（Prompt, Title, Default, Left, Top, HelpFile, HelpCo nte

20、xtID, Type）表2中包括了 Application.lnputbox方法的各參數(shù)詳解。表2 Application.lnputbox 方法的各參數(shù)詳解名稱必選/可選描述Prompt必選要在對(duì)話框中顯示的消息。可以為字符串、數(shù)字、日期、或布爾值 （在顯示之前，Excel自動(dòng)將其值強(qiáng)制轉(zhuǎn)換為String）Title可選輸入框的標(biāo)題。如果省略該參數(shù)，默認(rèn)標(biāo)題將為“Input ”:Default可選指定一個(gè)初始值，該值在對(duì)話框最初顯示時(shí)岀現(xiàn)在文本框中。如果 省略該參數(shù)，文本框?qū)榭?。該值可以是Range對(duì)象Left可選指定對(duì)話框相對(duì)于屏幕左上角的X坐標(biāo)（以磅為單位）Top可選指定對(duì)話框相對(duì)于屏

21、幕左上角的Y坐標(biāo)（以磅為單位）HelpFile可選此輸入框使用的幫助文件名。如果存在HelpFile和HelpContextID參數(shù)，對(duì)話框中將岀現(xiàn)一個(gè)幫助按鈕HelpContext ID可選HelpFile中幫助主題的上下文ID號(hào)Type可選指定返回的數(shù)據(jù)類型。如果省略該參數(shù)，對(duì)話框?qū)⒎祷匚谋続pplication.lnputbox方法有8個(gè)參數(shù)，其中最重要的是前三個(gè)和最后一個(gè)。Type參數(shù)可以指定一種或者多種數(shù)據(jù)類型，而Applicatio n.l nputbox方法則會(huì)根據(jù)類型對(duì)用戶的錄入信息進(jìn)行檢查，如果不符合指定類型則會(huì)阻止程序執(zhí)行。8.3.2案例應(yīng)用現(xiàn)對(duì)Type參數(shù)在工作中的應(yīng)用展

22、示三個(gè)案例。1.強(qiáng)制用戶錄入數(shù)值以圖6中提示用戶錄入月份為例，強(qiáng)制用戶錄入1到12月的數(shù)值，否則程序拒絕執(zhí)行。Application.lnputbox方法完全可以勝任，代碼如下：Sub數(shù)值校驗(yàn)（） months = Application.InputBox（ 請(qǐng)指定月份,月份, Month（Date）, 10, 10, , , 1） MsgBox monthsEnd Sub其中最后一個(gè)參數(shù)1表示只能錄入數(shù)值。當(dāng)用戶執(zhí)行代碼時(shí)，如果在對(duì)話框中錄入非數(shù)值“5月”那么程序?qū)⑻崾尽盁o(wú)效的數(shù)字”，如下圖所示：P給1請(qǐng)指定月份曾II必1V月匚確定丨J取消 *Microsoft ExcelI無(wú)舶幢E確走1圖

23、6錄入非數(shù)值時(shí)的提示2對(duì)任意選區(qū)進(jìn)行行列合計(jì)假設(shè)要對(duì)一個(gè)區(qū)域進(jìn)行橫向、縱向求和，通過Application.lnputBox方法來(lái)選擇區(qū)域會(huì)比直接在代碼中指定區(qū)域靈活得多。案例代碼如下：Sub行列自動(dòng)合計(jì)()Dim rng As Range, address As String聲明一個(gè)對(duì)象變量如果當(dāng)前選擇的對(duì)象是單元格則將單元格地址賦予變量，否則將空文本賦予變量IF TypeName(Selection) = Range Then address = Selection.address Else address =彈岀一個(gè)對(duì)話框，讓用戶選擇區(qū)域，默認(rèn)顯示變量address的值。然后將該用戶選擇

24、區(qū)域賦予 變量rngSet rng = Application.InputBox(請(qǐng)選擇待合計(jì)的區(qū)域 ,合計(jì)區(qū)域, address, , , , , 8)IF rng Is Nothing Then Exit Sub先匯總各行的值For i = 1 To rng.Rows.Count從 1 到總行數(shù)利用Offset取得匯總數(shù)據(jù)的放置位置，即選區(qū)第一個(gè)單元格向右偏移選區(qū)的列數(shù)合計(jì)區(qū)域也用Offset逐行偏移來(lái)獲取，Resize的作用是重置為1行，否則會(huì)匯總其他行 的數(shù)據(jù)rng(1).Offset(i - 1, rng.Columns.Count) = WorksheetFunction.Sum

25、(rng.Offset(i - 1).Resize(1)Next再匯總各列的值For i = 1 To rng.Columns.Count + 1從1到總列數(shù)加1,因?yàn)樾枰獙?duì)行的匯總數(shù)再進(jìn)行匯總rng(1).Offset(rng.Rows.Count, i - 1) = WorksheetFunction.Sum (rng.Offset(, i - 1).Resize(, 1)NextEnd Sub在本過程中Applicati on .1 nputBox語(yǔ)句默認(rèn)顯示的是當(dāng)前選區(qū)地址，可以手動(dòng)選擇區(qū)域，從而重新產(chǎn)生地址在輸入框中。然后過程根據(jù)用戶選擇的區(qū)域進(jìn)行橫向、縱向合計(jì)。Applicatio

26、n.lnputbox方法的Type參數(shù)使用8，表示返回單元格引用，其數(shù)據(jù)類型為 Range。圖7通過鼠標(biāo)拖動(dòng)錄入?yún)^(qū)域地址F圖是計(jì)算結(jié)果：ABCDEG 1數(shù)學(xué)地址化學(xué)政治2計(jì)尚云52719390S93753趙國(guó)999452知&84114羅壘貴76895280T3S705徐大鵬6531833&43566張志堅(jiān)929280100964607朱千文6105996277384B趙秀文551006450T93639梁愛國(guó)555590fi4523161065S965船9939611陳隨機(jī)706458588233212690B007567637593768圖8計(jì)算結(jié)果很顯然，Applicatio n.l np

27、utBox方法除了檢校功能外，自由選擇區(qū)域的功能相當(dāng)人性化。3.禾U用 Application.lnputbox 錄入公式在單元格中錄入公式時(shí)，Excel會(huì)對(duì)公式進(jìn)行檢查，如果不符合公式的基本語(yǔ)法會(huì)阻止用 戶錄入。而 VBA中的Inputbox方法也可以實(shí)現(xiàn)同等功能。例如對(duì)下圖的數(shù)據(jù)進(jìn)行排名次：町 Inpu., = H 3ABc1竝容咸績(jī)02LJ453163gi周167吳8鄭giq,Shf ki1 IeE圖9成績(jī)表 如果使用VBA的對(duì)話框來(lái)錄入公式，那么代碼如下：Sub設(shè)置計(jì)算名次的公式()首先選擇待輸入公式的單元格c2.Select設(shè)置C2的公式，第8參數(shù)必須用零，否則單元格中顯示值而非公式

28、c2.FormulaLocal = Application.lnputBox(請(qǐng)輸入計(jì)算名次的公式：，”公式，0)填充公式Range(C2).AutoFill Destination:=Range(C2:C & Cells(Rows.Count, 2).End(xlUp).Row) End Sub該過程中，Application.lnputbox第八個(gè)參數(shù)使用零，表示在 C2單元格產(chǎn)生公式，如果使 用其他值作為參數(shù)則只能產(chǎn)生公式的結(jié)果，而非公式本身。利用Application.lnputBox方法錄入公式時(shí)需要注意四點(diǎn)：(1) 在彈出對(duì)話框前必須先定位于目標(biāo)單元格，否則公式中引用的單元格或者區(qū)域會(huì)產(chǎn)生 錯(cuò)位，類似于條件格式中的引用；(2) 在對(duì)話框中錄入公式時(shí)，可以利用鼠標(biāo)單擊單元格來(lái)產(chǎn)生地址，而且可以通過快捷鍵 【F4】使其在相對(duì)引用、絕對(duì)引用