【正文】 e 的 表 達(dá) 式 ， row 和 column 為 相 對(duì) 于 該 區(qū) 域 的 左 上 角 偏 移 量 。如 Range(A5)、 Range(A1:H8)、 Range(Criteria)。 Range代表 工作表中的某一單元格、某一行、某一列、某一選定區(qū)域（該選定區(qū)域可包含一個(gè)或若干連續(xù)單元格區(qū)域）或者某一三維區(qū)域。如可以用 Cells(1,1)、Cells(10,4)來(lái)引用 A D10 單元格。而對(duì)于圖表工作表為活動(dòng)工作表時(shí)，還可以通過(guò) ActiveSheet屬性引用之。如Worksheets(Sheet1).ChartObjects(1)、 Worksheets(sheet1).ChartObjects(chart1)分別對(duì)應(yīng) Sheet1工作表中的第一個(gè)嵌入式圖表、以及名為 Chart1的嵌 入式圖表。 ChartObjects 代表指定的圖表工作表、對(duì)話框編輯表或工作表上所有嵌入式圖表的集合。 ChartObject代表工作表中的嵌入式圖表，其作用是作為 Chart對(duì)象的容器。圖表工作表的索引號(hào)表示圖表工作表在工作簿的工作表標(biāo)簽欄上的位置。 Charts 代表指定工作簿或活動(dòng) 工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或?qū)υ捒蚓庉嫳碇械膱D表。 圖表： Chart 、 Charts、 ChartObject、 ChartObjects、 ActiveChart Chart 代表工作簿中的圖表。需要注意的是：在使用過(guò)程中 Excel 會(huì)自動(dòng)重排工作表索引號(hào)，保持按照其在工作表標(biāo)簽中的從左至右排列，工作表的索引號(hào)遞增。 可用 Worksheets(index)來(lái)引用 Worksheet 對(duì)象，其中 index 為工作表名稱或索引號(hào)；如Worksheets(1)、 Worksheets(第一季度數(shù)據(jù) )。而編號(hào)按照創(chuàng)建或打開(kāi)工作簿的順序來(lái)確定，第一個(gè)打開(kāi)的工作簿編號(hào)為 1，第二個(gè)打開(kāi)的工作簿為 2??。 工作簿： Workbooks、 Workbook、 ActiveWorkbook、 ThisWorkbook Workbooks集合包含 Excel中所有當(dāng)前打開(kāi)的 Excel工作簿，亦即所有打開(kāi)的 Excel文件； Workbook對(duì)應(yīng) Workbooks中的成員，即其中 的 Excel文件； ActiveWorkbook代表當(dāng)前處于活動(dòng)狀態(tài)的工作簿，即當(dāng)前顯示的 Excel文件； ThisWorkbook代表其中有 Visual Basic代碼正在運(yùn)行的工作簿。對(duì)錄制宏進(jìn)行修改不僅可以學(xué)習(xí)宏的使用，還能大大簡(jiǎn)化宏的編寫(xiě)。錄制新宏 ，此后可象平時(shí)一樣進(jìn)行有關(guān)操作，待完成后停止錄制。 一 )、宏的自學(xué) 首先需要明確的是，本文不可能教會(huì)您關(guān)于宏的所有內(nèi)容。但在大多數(shù)介紹 Excel的 傻瓜書(shū)、 指南 、 入門(mén)與提高 等參考書(shū)中往往略過(guò)不提，或淺淺帶過(guò)，讀者從中獲得的有關(guān)知識(shí)往往不足以應(yīng)付處理復(fù)雜數(shù)據(jù)的需求。除此之外，使用 VBA語(yǔ)言還有如下優(yōu)點(diǎn)： VBA是一種通用程序語(yǔ)言，通過(guò)它不僅可以共享 Microsoft相關(guān)的各種軟件（如 Excel、Word、 Access）??，而且隨著其它的一些軟件（如大名鼎鼎的 AutoCAD2020）等對(duì) VBA的支持，這些軟件也已進(jìn)入到了 VBA 的控制范圍； 可以將用 VBA 編寫(xiě)的程序復(fù)制到 Visual Basic 中調(diào)試并運(yùn)行，從而實(shí)現(xiàn)用 Visual Basic來(lái)控制有關(guān)的應(yīng)用程序； VBA提供的大量?jī)?nèi)部函數(shù)大大簡(jiǎn)化了用戶的操作。為了統(tǒng)一各種應(yīng)用程序下的宏， Microsoft推出了 VBA（ Visual Basic for Applications）語(yǔ)言。 隨著支持 Windows 的應(yīng)用程序的不斷增多和功能的不斷增強(qiáng)，越來(lái)越多的程序增加了宏處理來(lái)方便用戶的自由擴(kuò)展。但若僅利用 Excel 的常用功能來(lái)處理較復(fù)雜的數(shù)據(jù)，可能仍需進(jìn)行大量的人工操作。 6 Microsoft Excel是一款功能非常強(qiáng)大的電子表格軟件。 4. 填充后要按 [F9]進(jìn)行重算，如果 C列的公式有改動(dòng)，也需要及時(shí)按 [F9]進(jìn)行重算。 3. 在 D1 中輸入“ =ResultofFomula”，然后選中按住右下角的填充柄向下拉動(dòng)填充即可。 1. 選中 D1，然后打開(kāi)“插入”菜單選擇“名稱”命令中的 “定義”子命令，出現(xiàn)“定義名稱”對(duì)話框。 提示：如果想要在含公式結(jié)果單元格的同行后數(shù)第 2 列中顯示公式內(nèi)容，則需要把“引用位置”中的“ RC － 1 ”改為“ RC － 2 ”。這里的 RC[1]含義是如果在當(dāng)前單元格的同行前一列單元格中有公式結(jié)果，則在當(dāng)前單元格中得到公式內(nèi)容，即在含公式結(jié)果單元格的同行后一列單元格顯示公式內(nèi)容；如果將 RC[1]改為 RC[1]，則在公式結(jié)果的同行前一列單元格顯示公式內(nèi)容。 2. 在“常規(guī)”選項(xiàng)卡中，選中“ R1C1引用方式”選項(xiàng)?！镆阎Y(jié)果，顯示公式 假設(shè) C列為通過(guò)公式計(jì)算得到的結(jié)果（假設(shè) C1 為“ =A1+B1”，或者直接是數(shù)字運(yùn)算“ =2+3” )，而相鄰的 D列是你需要顯示公式的地方（即 D1 應(yīng)該顯示為“ =A1+B1”或者“ =2+3”）。比如說(shuō)在做工程施工的預(yù)結(jié)算編寫(xiě)，使用 Excel，既要寫(xiě)出工程量的計(jì)算式，也要看到它的結(jié)果，于是這樣相同的公式在 Excel里面要填兩次，一次在文本格式的單元格中輸入公式，一次是在數(shù)據(jù)格式的單元格中輸入公式讓 Excel計(jì)算結(jié)果。無(wú)論輸入是純粹的數(shù)字運(yùn)算，還是引用其他單元格計(jì)算，只要在一個(gè)單元格中輸入公式，就能得到結(jié)果。 Now + TimeValue(00:15:00) 指定在當(dāng)前時(shí)間過(guò) 5 秒鐘開(kāi)始運(yùn)行 Saveit 這個(gè)過(guò)程。 Sub Show_my_msg() msg = MsgBox(現(xiàn)在是 17:00:00 ！ , vbInformation, 自定義信息 ) End Sub Excel 97 里的 自動(dòng)保存宏 ,在這里定時(shí) 5 秒出現(xiàn)一次 Sub auto_open() MsgBox 歡迎你，在這篇文檔里，每 5 秒出現(xiàn)一次保存的提示！ , vbInformation, 請(qǐng)注意！ Call runtimer 39。 If msg = vbYes Then Else If msg = vbCancel Then Exit Sub Call runtimer 39。 選擇取消：不再出現(xiàn)這個(gè)提示 , vbYesNoCancel + 64, 休息一會(huì)吧！ ) 39。 選擇否：暫不存盤(pán) amp。 選擇是：立刻存盤(pán) amp。 End Sub Sub SaveIt() msg = MsgBox(朋友，你已經(jīng)工作很久了，現(xiàn)在就存盤(pán)嗎？ amp。打開(kāi)文檔時(shí)自動(dòng)運(yùn)行 End Sub Sub runtimer() Now + TimeValue(00:00:05), saveit 39。設(shè)置定時(shí)器在 17:00:00 激活，激活后運(yùn)行 Show_my_msg 。 17:00:00 的時(shí)候顯示一個(gè)對(duì)話框。通過(guò)這個(gè)函數(shù)我們就可以在 Excel 里編寫(xiě)自己的定時(shí) 程序了。 在 Office 里有個(gè)方法是 ，具體函數(shù)如下： (EarliestTime, Procedure, LatestTime, Schedule) 如果想進(jìn)一步了解，請(qǐng)參閱 Excel 的幫助。自動(dòng)對(duì) ActiveSheet所有有公式格位加上註解 Set RG = (xlCellTypeFormulas) For Each c In RG Text:= Next c End Sub Sub De_Comments() 39。 順便說(shuō)一句，這種方法仍然是可破解的，因?yàn)榧用芸偸窍鄬?duì)的 。保存再打開(kāi)，就會(huì)發(fā)現(xiàn)大功告成！ 當(dāng)然，在修改前最好做好你的文檔備份。 打開(kāi)要保護(hù)的文件，選擇：工具 保護(hù) 保護(hù)并共享工作簿 以追蹤修訂方式共享 輸入密碼 保存文件。行變色 On Error Resume Next [ChangColor_With]. = ChangColor_With With [ChangColor_With].FormatConditions .Delete .Add xlExpression, , TRUE .Item(1). = 4 End With End If 5在 C1 中弄個(gè)下拉無(wú)表 ,實(shí)際是有效性 ,你可以選擇 A1:A4為 C1 單元格有效性的序列數(shù)據(jù)源 ,如果說(shuō) C1不與 A1:A4在同一表 ,則不能這么用 ,應(yīng)當(dāng)先對(duì) A1:A4命名 ,然后把數(shù)據(jù)源改為名稱 . 5自動(dòng)增加工作表 進(jìn)入宏命令編輯窗口，在 Sub 自動(dòng)增加工作表 ()命令后依次鍵入如下宏命令內(nèi)容： Dim iamp。 Now CritOrAddtext Next End If End Sub 5 39。 。 ，更改為： amp。 ，單元格： amp。右鍵 菜單不能重命名 End Sub 5 [a65536].End(xlUp’ A列從下往上第一個(gè)非空的單元格 5 Sub macro() Set rng = Range(C11:F13) 定義 RNG為一個(gè)單元格區(qū)域 For Each cel In rng 定義 CEL為 RNG中的一個(gè)任一單元格 colo = 定義 COLO 為單元格 CEL的填充顏色 If colo 4142 Then 如果 COLO的值不等于 4142 iR = [b65536].End(xlUp).Row + 1 IR 等于 B列數(shù)據(jù)區(qū)域的行數(shù) +1 If [a65535].End(xlUp).Value Cells(, 2) Then Cells(iR, 1) = Cells(, 2) 如果 A列最后一個(gè)非空值單元格 不等于 Cells(, 2) 的值 那么單元格 Cells(iR, 1) 的值等于 Cells(, 2) 的值 C11:F13中任意單元格的行號(hào) Cells(iR, 2) = Cells(10, ) Cells(iR, 3) = Cells(iR, 4) = IIf(colo = 36, Yellow, Red) Cells(iR, 4) 的值如果 colo = 36那么值為 Yellow,否則值為 RED next End Sub 5 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 39。取消工作表標(biāo)簽 (Sheet).Controls(1).Enabled = False 39。 Sheets(iii).Name amp。 = True 4自定義函數(shù) Public Function Now1() Dim string1 As String string1 = Now1 = string1 End Function 第 5 頁(yè) 共 93 頁(yè) 5 4 復(fù)制 Sub copy1() (C5:C10).Copy (C5:C10) End Sub 4如何統(tǒng)計(jì)表中 sheet的個(gè)數(shù)？ msgbox Columns(G:G).Select 4 = True 這樣隱藏有個(gè)毛病，如何解決？如果 A1:G1單元格合并的話，就把 A： G列均隱藏了。 、 amp。 ).Name: amp。不知道如何 if = 1 and =10 then Sub 列舉菜單項(xiàng) () Dim r, s, i As Integer r = 1 For i = 1 To (r, 1) = CommandBars( amp。如果 sheet1 未保護(hù)，選定的單元格將是緊靠活動(dòng)單元格右邊的單元格。在未保護(hù)的工作表中，本屬性總是返回緊靠指定單元格右邊的單元格。 說(shuō)明 如果指定對(duì)象為區(qū)域，則本屬性的作用是仿效 Tab，但本屬性只是返回下一單元 格，并不選定它。 Worksheets(Sheet1).Range(A1:G37).Locked = False Worksheets(Sheet1).Protect 4 Next 屬性 參閱應(yīng)用于示例特性返回一個(gè) Chart、 Range 或 Worksheet 對(duì)象，該對(duì)象代表下一個(gè)工作表或單元格。 Worksheets(Sheet1).Activate Range(B4, Range(B4).End(xlToRight)).Select 4應(yīng)用于 CellFormat 和 Range 對(duì)象的 Locked 屬性。 Range(B4).End(xlUp).Select 本示例選定包含單元格 B4 的區(qū)域中第 4 行尾端的單元格。 XlDirection 可為 XlDirection 常量之一。 Direction XlDirection 類型，必需。 (Direction) expression 必需。等同于按鍵 End+ 向上鍵、 End+ 向下鍵、 End+ 向左鍵或