第二期：帶你入門VBA.doc

1、-作者xxxx-日期xxxx第二期：帶你入門VBA.doc【精品文檔】2003vba1、 要求做一個(gè)按紐，執(zhí)行程序后在B1：B15填入101至115的數(shù)值，并在最后一行的單元格求和Sub 按鈕1_單擊() Dim i As IntegerFor i = 1 To 15 Sheets("Sheet1").Cells(i, 2) = i + 100 Next Range("b16").Value = Application.WorksheetFunction.Sum(Range("b1:b15")End Sub2、 在上題的基礎(chǔ)上，求B列

2、>106數(shù)的個(gè)數(shù)(包括剛才求單元格B16),并用對(duì)話框的形式顯示出來Sub 矩形1_單擊() For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 Then K = K + 1 End IfNext MsgBox "大于106數(shù)值個(gè)數(shù)有" & K & "個(gè)", 1 + 64, "統(tǒng)計(jì)信息" End Sub補(bǔ)充：Range("B65536").End(xlUp).Row是指B列最后一個(gè)非空單元格，

3、END（XLUP）是向上數(shù)第一個(gè)非空單元格，為了找到最下面的非空單元格，當(dāng)然要從RANGE（"B65536"）開始向上找了。如選取Sheet1第一行有內(nèi)容單元格區(qū)域（假設(shè)A1不為空）:sheets("sheet1").range("a1",range("a1"）.end(xltoright).select選取B列有內(nèi)容單元格區(qū)域：(假設(shè)B1不為空）:sheets("sheet1").range("B1",range("B65536").end(XLUP).

4、selectMSGBOX 有時(shí)帶()，比如AAA=MSGBOX()這種情況下可以取到用戶點(diǎn)擊對(duì)話框按紐的返回值,以確定下一步該怎么做；而不帶括號(hào)只是提示的作用,不能取得返回的值MsgBox函數(shù): MsgBox("對(duì)話框中的提示信息",buttons,title,helpfile,context) 提示語(yǔ)句: 僅有的一個(gè)必需的參數(shù)。最大長(zhǎng)度大約為1024個(gè)字符。如內(nèi)容超過一行，則可以在每一行之間用回車符(Chr(13)、換行符(Chr(10)或是回車與換行符的組合(Chr(13)&Chr(10)將各行分隔開來。Buttons可以是由下列列表中的一個(gè)或多個(gè)，可將這些數(shù)字

5、相加以生成buttons參數(shù)值。省略時(shí)值為0。 VbOKOnly =0 :只顯示OK按鈕 VbOKCancel =1 :顯示OK及Cancel按鈕 VbAbortRetryIgnore =2:顯示Abort、Retry及Ignore按鈕 VbYesNoCancel =3:顯示Yes、No及Cancel按鈕 VbYesNo =4:顯示Yes及No按鈕 VbRetryCancel =5:顯示Retry及Cancel按鈕 VbCritical =16:顯示CriticalMessage圖標(biāo) VbQuestion =32:顯示W(wǎng)arningQuery圖標(biāo) VbExclamation=48:顯示W(wǎng)arn

6、ingMessage圖標(biāo) VbInformation=64: InformationMessage圖標(biāo) vbDefaultButton1=0 :第一個(gè)按鈕是缺省值 vbDefaultButton2=256:第二個(gè)按鈕是缺省值 vbDefaultButton3=512:第三個(gè)按鈕是缺省值 vbDefaultButton4=768:第四個(gè)按鈕是缺省值 vbApplicationModal=0:應(yīng)用程序強(qiáng)制返回；應(yīng)用程序被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。 VbSystemModal=4096:系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)工作。 VbMsgBoxHelp

7、Button =16384：將Help按鈕添加到消息框 VbMsgBoxSetForeground=65536：指定消息框窗口作為前景窗口 VbMsgBoxRight =524288：文本為右對(duì)齊 VbMsgBoxRtlReading =1048576：指定文本應(yīng)為在希伯來和阿拉伯語(yǔ)系統(tǒng)中的從右到左顯示 返回值： vbOK=1：OK vbCancel=2：Cancel vbAbort =3：Abort vbRetry =4：Retry vbIgnore=5：Ignore vbYes=6：Yes vbNo =7：No helpfile字符串表達(dá)式，識(shí)別用來向?qū)υ捒蛱峁┥舷挛南嚓P(guān)幫助的幫助文件。H

8、elpfile與context是相配合的。Context為數(shù)值表達(dá)式，由幫助文件的作者指定給適當(dāng)?shù)膸椭黝}的幫助上下文編號(hào)。當(dāng)不需要返回值時(shí),可以這樣寫(標(biāo)題和按鈕參數(shù)可以省略,系統(tǒng)默認(rèn)用缺省值): msgbox "刷新成功!"當(dāng)要判斷返回值時(shí),可以這樣寫(標(biāo)題和按鈕參數(shù)一樣可以省略,系統(tǒng)默認(rèn)用缺省值): i=msgbox ("需要刷新目錄嗎?如果確定請(qǐng)點(diǎn)確定按鈕,否則請(qǐng)點(diǎn)取消按鈕.",VbOKCancel,"提示窗口")if i=vbcalcel then exit sub '如果點(diǎn)擊了取消,就退出當(dāng)前事件.3、 把B列&g

9、t;106且<112的數(shù)所在單元格填充為紅色Sub 矩形1_單擊()For i = 1 To Range("B65536").End(xlUp).RowIf Cells(i, 2) > 106 And Cells(i, 2) < 112 Then Cells(i, 2).Interior.ColorIndex = 3End IfNextEnd SubColorIndex 屬性返回或者設(shè)置邊框、字體或者內(nèi)部填充區(qū)域的顏色，如下表所示。該顏色可定義為當(dāng)前調(diào)色板中的索引值，也可使用下列 XlColorIndex 常量之一： xlColorIndexAutomat

10、ic 或 xlColorIndexNone。Variant 類型，可讀寫。對(duì)象ColorIndexBorder邊框的顏色。Borders四條邊框的顏色。如果四條邊框使用的不是同一種顏色則返回 Null。Font字體的顏色。指定為 xlColorIndexAutomatic 可自動(dòng)設(shè)置顏色。Interior內(nèi)部填充的顏色。將本屬性指定為 xlColorIndexNone 可不進(jìn)行內(nèi)部填充。將本屬性設(shè)為 xlColorIndexAutomatic 可進(jìn)行自動(dòng)填充（對(duì)于圖形對(duì)象）。說明本屬性將一種顏色指定為工作簿調(diào)色板的一條索引。可以使用 Colors 方法返回當(dāng)前的調(diào)色板。InputBox函數(shù)：格式如下，第一項(xiàng)為必須外，其除為可選項(xiàng),可以省略不寫，XY坐標(biāo)為在窗體上的準(zhǔn)確位置。當(dāng)用戶點(diǎn)取消時(shí)，返回一個(gè)空的字符串(" ")。為了省略某些位置參數(shù)，必須加入相應(yīng)的逗號(hào)分