第二期：帶你入門VBA.doc

1、-作者xxxx-日期xxxx第二期：帶你入門VBA.doc【精品文檔】2003vba1、 要求做一個按紐，執(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、 在上題的基礎上，求B列

2、>106數(shù)的個數(shù)(包括剛才求單元格B16),并用對話框的形式顯示出來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ù)值個數(shù)有" & K & "個", 1 + 64, "統(tǒng)計信息" End Sub補充：Range("B65536").End(xlUp).Row是指B列最后一個非空單元格，

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

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

5、相加以生成buttons參數(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圖標 VbQuestion =32:顯示W(wǎng)arningQuery圖標 VbExclamation=48:顯示W(wǎng)arn

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

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

8、elpfile與context是相配合的。Context為數(shù)值表達式，由幫助文件的作者指定給適當?shù)膸椭黝}的幫助上下文編號。當不需要返回值時,可以這樣寫(標題和按鈕參數(shù)可以省略,系統(tǒng)默認用缺省值): msgbox "刷新成功!"當要判斷返回值時,可以這樣寫(標題和按鈕參數(shù)一樣可以省略,系統(tǒng)默認用缺省值): i=msgbox ("需要刷新目錄嗎?如果確定請點確定按鈕,否則請點取消按鈕.",VbOKCancel,"提示窗口")if i=vbcalcel then exit sub '如果點擊了取消,就退出當前事件.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 屬性返回或者設置邊框、字體或者內(nèi)部填充區(qū)域的顏色，如下表所示。該顏色可定義為當前調(diào)色板中的索引值，也可使用下列 XlColorIndex 常量之一： xlColorIndexAutomat

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