【正文】 End+ 向右鍵。 示例 本示例計(jì)算 Sheet1 已用區(qū)域中 A 列、 B 列和 C 列的公式。 3 Calculate 方法 參閱應(yīng)用于示例特性計(jì)算所有打開的工作簿、工作簿中的一張?zhí)囟ǖ墓ぷ鞅砘蛘吖ぷ鞅碇兄付▍^(qū)域的單元格，如下表所示： 要計(jì)算 依照本示例 所有打開的工作簿 （或只是 Calculate） 指定工作表 指定工作表 指定區(qū)域 Worksheets(1).Rows(2).Calculate expression 對于 Application 對象可選，對于 Worksheet 對象和 Range 對象必需。 示 例 本示例顯示活動(dòng)工作表的名稱。 說明 如果未給出對象識(shí)別符，本屬性返回活動(dòng)工作簿中的活動(dòng)工作表。只讀。 Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each wk in Worksheets Next End Sub 3 Open 事件 每次打開工作簿時(shí)，本示例都最大化 Microsoft Excel 窗口。如果該事件過程將本參數(shù)設(shè)為 True，則當(dāng)該過程運(yùn)行結(jié)束之后不打印工作簿。 Private Sub Worksheet_Activate() Range(a1:a10).Sort Key1:=Range(a1), Order:=xlAscending End Sub 3 BeforePrint 事件 參閱應(yīng)用于示例特性在打印指定工作簿（或者其中的任何內(nèi)容）之前，產(chǎn)生此事件。獲取行號(hào) j= 39。 代表行號(hào) 39。激活 (A1).Select End If If = $A$6 Then = 1 39。當(dāng)點(diǎn)擊 $A$3單元格時(shí) ... = 1 39。選定 A1 時(shí)要輸入密碼 If = $A$1 Then A = InputBox(請輸入密碼 , officefans) If A = 1 Then [A1].Select Else [A2].Select End If End Sub 3如何將工作薄中的命名單元格成批 刪除！ Dim Item As Name For Each Item In Next Item 3平時(shí)只能看到表 1，如要看表 2和表 3，只能通過表 1的鏈接打開 ,且表 2和表 3回到表 1后，又不可見。將 A1到 C6 中大于 =3的數(shù)依次放入 E列 Dim i As Long Dim iRng As Range For Each iRng In Sheets(1).Range(a1:c6) If = 3 Then i = i + 1 Sheets(1).Range(E amp。以此類推。 if instr(,小計(jì) )0 then Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Like *小計(jì) Then MsgBox OK End Sub 2 = =SUM(R[1]C:R[14]C,R[59]C:R[78]C) 這是相對引用的寫法：根據(jù)推算你的函數(shù)是放在“ AD6”單元格 你的函數(shù)： =SUM(R[1]C:R[14]C 中的 R表示行 C表示列。選擇所有工作表名以 業(yè)報(bào) 開頭的工作表或頭兩個(gè)字是業(yè)報(bào)的報(bào)表名引用 Set Sh = ActiveSheet If Left(, 2) = 業(yè)報(bào) Then 39。將 A1到 C6 中大于 =3的數(shù)依次放入 E列 Dim i As Long r = 1 For Each i In Range(a1:c6) If i =3 Then Cells(r, 5) = i: r = r + 1 Next End Sub 2 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)39。一次性刪除工作簿中所有工作表的背景 For Each shtSheet In Sheets Filename:= Next shtSheet End Sub [a1].formula==b1+c139。獲得工作表的總數(shù) MsgBox End Sub 1 Sub IE()39。 !A1 Set Pt = (1, 0) Next i End With End Sub 1保存所有打開的工作簿，然后退出 Microsoft Excel。 Private Sub Worksheet_Change(ByVal Target as Range) = 5 End Sub 1 Sub test()39。 Worksheets(1).ScrollArea = a1:f10 12\if ([a1:e1])=10 then msgbox =false 39。 說明 可將本屬性設(shè)置為空字符串 () 以允許對整張工作表內(nèi)所有單元格的選定。用戶不能選定滾動(dòng)區(qū)域之外的單元格。 i) Next i End Sub = 1239。把 B1 到 B12單元格的數(shù)據(jù)填入 c1到 c12 For i = 1 To 12 Range(C amp。將此代碼放入 sheet1,則 me=sheet1,主要是認(rèn)識(shí) me = False Range(D11:E11).Locked = True End Sub (Ply).Enabled = False39。一次性增加項(xiàng)目 (1).Value = (1).Value39?；顒?dòng)單元格所在行 B列單元格中的值 Sub CheckSheet()39。第 1 頁 共 93 頁 1 以下是近段時(shí)間從不同地方收集到的一些學(xué)習(xí)資料，希望對新手有借鑒作用，同時(shí)感謝各位對我的支持和幫助，先發(fā) 60 小點(diǎn)，代碼可能不完全正確，請指正。 全部顯示 (Worksheet Menu Bar).Enabled = false cells(,b).value 39。如果當(dāng)前工作薄中沒有名為 kk 的工作表的話，就增加一張名為 kk 的工作表，并將其排在工作表從左 至右順序排列的最左邊的位置，即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets If = KK Then Exit Sub Next shtSheet Set shtSheet = (Before:=Sheets(1)) = KK End Sub = Array(一月 , 二月 , 三月 , 四月 )39。將一個(gè)表中的一行全部拷貝到另一個(gè)表中 Sub pro_cell()39。工作表標(biāo)簽上快捷菜單失效 Sub aa()39。 i) = Range(B amp。在點(diǎn)選的單元格插入批注，字體為 12號(hào) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub 1 ScrollArea 屬性 參閱應(yīng)用于示例特性以 A1 樣式的區(qū)域引用形式返回或設(shè)置允許滾動(dòng)的區(qū)域。 String 類型，可讀寫。 示例 本示例設(shè)置第一張工作表的滾動(dòng)區(qū)域。A1— E1最大的數(shù)值達(dá)到 10 時(shí)，自動(dòng)彈出對話框，并凍結(jié)按鈕 1本示例將更改的單元格的顏色設(shè)為藍(lán)色。求和 Dim rng As Range, rng2 As Range For Each rng In Set rng2 = Range(Cells(1, ), Cells(Cells(65536, ).End(xlUp).Row, )) ().Offset(1, 0)= (rng2) Next rng End Sub 1將工作薄中的全部 n張工作表都在 sheet1中建上鏈接 Sub test2() Dim Pt As Range Dim i As Integer With Sheet1 Set Pt = .Range(a1) For i = 2 To . Anchor:=Pt, Address:=, SubAddress:=Worksheets(i).Name amp。 For Each w In Next w 1讓 form標(biāo)題欄上的關(guān)閉按鈕失效 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 第 2 頁 共 93 頁 2 If CloseMode 1 Then Cancel = True End Sub 1 Sub countsh()39。打開個(gè)人網(wǎng)頁 about:blank SendKeys {F4}{ENTER}, True End Sub 1 Sub delback()39。A1 中設(shè)定公式為 =B1+C1 2 Private Sub CommandButton1_Click()39。顯示帶數(shù)字的表名 b = Split(, () On Error GoTo ss num = CInt(Left(b(1), Len(b(1)) 1)) If num = 1 And num 20 Then MsgBox End If Exit Sub ss: MsgBox error, 16, End Sub 2 Sub Test()39。 或 if like業(yè)報(bào) *then MsgBox 你成功了 , 64, End If End Sub 2 MkDir D:\Music Address:=D:\Music, NewWindow:=True 2在當(dāng)前工作表翻頁 {PGUP}, True {PGDN}, True 或者 Down:=1 Down:=1 2當(dāng) Target = *小計(jì) 時(shí)如何寫 ,*代表任何字符。 R[1]表示“ AD6+1行 ， C表示“列沒有變化，就是同列”那么： R[1]C就表示 AD7 同理， R[14]表示 AD6+14行，表示： AD20。 2 Private Sub CommandButton1_Click()39。 i).Value = End If Next End Sub 2工作表中的窗體按鈕禁用后，按鈕形 狀不變，字體不變，從外表上無法看出其已禁用，如何設(shè)置屬性使其像控件按紐那樣明顯的禁用？ With (1) .Enabled = False (.Caption). = 15 End With 第 3 頁 共 93 頁 3 復(fù)原的方法 With (1) .Enabled = True (.Caption). = xlAutomatic End With Private Sub Worksheet_SelectionChange(ByVal Target As Range39。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If = $A$3 Then 39。取消隱藏 39。取消隱藏 (A1).Select End If End Sub 3將 a2 單元格內(nèi)容替換為 a1內(nèi)容 What:=[a2], Replacement:=[a1] 3如果是要填入名稱 ,則 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) = (1) End Sub 如果是要填入代碼和名稱的組合 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) = cstr((0))+ +(1) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) = End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 39。 代表列號(hào) i= 39。獲取列號(hào) End Sub 3當(dāng)激活工作表時(shí)，本示例對 A1:A10 區(qū)域進(jìn)行排序。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel 當(dāng)事件產(chǎn)生時(shí)為 False。 示例 本示例在打印之前對當(dāng)前活動(dòng)工作簿的所有工作表重新計(jì)算。 Private Sub Workbook_Open() = xlMaximized End Sub 3 ActiveSheet 屬性 參閱應(yīng)用于示例特性返回一對象，該對象代表活動(dòng)工