Excelwordppt使用技巧大全(2021新版本)Part1:EXCEL使用六技巧2Part2:EXCEL自學資料第一集6Part3:EXCEL自學資料第二集51Part4:一天一個小技巧99Part5:EXCEL技巧匯總108Part6:EXCEL根底知識技巧在線教程131Part7:EXCEL運用技巧匯總141Part8:EXCEL操作-根底篇168Part9:EXCEL問題集錦212Part1:EXCEL使用六技巧返回首頁1.編輯技巧分數的輸入如果直接輸入“1/5〞，系統會將其變為“1月5日〞，解決方法是：先輸入“0〞，然后輸入空格，再輸入分數“1/5〞。〔2〕序列“001〞的輸入如果直接輸入“001〞，系統會自動判斷001為數據1，解決方法是：首先輸入“'〞〔西文單引號〕，然后輸入“001〞。〔3〕日期的輸入如果要輸入“4月5日〞，直接輸入“4/5〞，再敲回車就行了。如果要輸入當前日期，按一下“Ctrl+；〞鍵。〔4〕填充條紋如果想在工作簿中參加漂亮的橫條紋，可以利用對齊方式中的填充功能。先在一單元格內填入“*〞或“~〞等符號，然后單擊此單元格，向右拖動鼠標，選中橫向假設干單元格，單擊“格式〞菜單，選中“單元格〞命令，在彈出的“單元格格式〞菜單中，選擇“對齊〞選項卡，在水平對齊下拉列表中選擇“填充〞，單擊“確定〞按鈕。〔5〕多張工作表中輸入相同的內容幾個工作表中同一位置填入同一數據時，可以選中一張工作表，然后按住Ctrl鍵，再單擊窗口左下角的Sheet1、Sheet2來直接選擇需要輸入相同內容的多個工作表，接著在其中的任意一個工作表中輸入這些相同的數據，此時這些數據會自動出現在選中的其它工作表之中。輸入完畢之后，再次按下鍵盤上的Ctrl鍵，然后使用鼠標左鍵單擊所選擇的多個工作表，解除這些工作表的聯系，否那么在一張表單中輸入的數據會接著出現在選中的其它工作表內。〔6〕不連續單元格填充同一數據選中一個單元格，按住Ctrl鍵，用鼠標單擊其他單元格，就將這些單元格全部都選中了。在編輯區中輸入數據，然后按住Ctrl鍵，同時敲一下回車，在所有選中的單元格中都出現了這一數據。〔7〕利用Ctrl＋*選取文本如果一個工作表中有很多數據表格時，可以通過選定表格中某個單元格，然后按下Ctrl＋*鍵可選定整個表格。Ctrl＋*選定的區域為：根據選定單元格向四周輻射所涉及到的有數據單元格的最大區域。這樣我們可以方便準確地選取數據表格，并能有效防止使用拖動鼠標方法選取較大單元格區域時屏幕的亂滾現象。〔8〕快速去除單元格的內容如果要刪除內容的單元格中的內容和它的格式和批注，就不能簡單地應用選定該單元格，然后按Delete鍵的方法了。要徹底去除單元格,可用以下方法：選定想要去除的單元格或單元格范圍；單擊“編輯〞菜單中“去除〞項中的“全部〞命令，這些單元格就恢復了本來面目。2、單元格內容的合并根據需要，有時想把B列與C列的內容進行合并，如果行數較少，可以直接用“剪切〞和“粘貼〞來完成操作，但如果有幾萬行，就不能這樣辦了。解決方法是：在C列后插入一個空列〔如果D列沒有內容，就直接在D列操作〕，在Ｄ1中輸入“=B1&C1〞，D1列的內容就是B、C兩列的和了。選中D1單元格，用鼠標指向單元格右下角的小方塊“■〞，當光標變成"＋"后，按住鼠標拖動光標向下拖到要合并的結尾行處，就完成了B列和C列的合并。這時先不要忙著把B列和C列刪除，先要把D列的結果復制一下，再用“選擇性粘貼〞命令，將數據粘貼到一個空列上。這時再刪掉B、C、D列的數據。下面是一個“&〞實際應用的例子。用AutoCAD繪圖時，有人喜歡在EXCEL中存儲坐標點，在繪制曲線時調用這些參數。存放數據格式為“x，y〞的形式，首先在Excel中輸入坐標值，將x坐標值放入A列，y坐標值放入到B列，然后利用“&〞將A列和B列合并成C列，在C1中輸入：=A1&"，"&B1，此時C1中的數據形式就符合要求了，再用鼠標向下拖動C1單元格，完成對A列和B列的所有內容的合并。合并不同單元格的內容，還有一種方法是利用CONCATENATE函數，此函數的作用是將假設干文字串合并到一個字串中，具體操作為“=CONCATENATE〔B1,C1〕〞。比方，假設在某一河流生態調查工作表中，B2包含“物種〞、B3包含“河鱒魚〞，B7包含總數45，那么：輸入“=CONCATENATE〔"本次河流生態調查結果："，B2，""，B3，"為"，B7，"條/公里。"〕〞計算結果為：本次河流生態調查結果：河鱒魚物種為45條/公里。3、條件顯示我們知道，利用If函數，可以實現按照條件顯示。一個常用的例子，就是教師在統計學生成績時，希望輸入60以下的分數時，能顯示為“不及格〞；輸入60以上的分數時，顯示為“及格"。這樣的效果，利用IF函數可以很方便地實現。假設成績在A2單元格中，判斷結果在A3單元格中。那么在A3單元格中輸入公式：=if〔A2<60，“不及格〞，“及格〞〕同時，在IF函數中還可以嵌套IF函數或其它函數。例如，如果輸入：=if〔A2<60，“不及格〞，if〔A2<=90，“及格〞，“優秀"〕〕就把成績分成了三個等級。如果輸入=if〔A2<60，“差"，if〔A2<=70，“中〞，if〔A2<90，“良〞，“優〞〕〕〕就把成績分為了四個等級。再比方，公式：=if〔SUM〔A1：A5>0，SUM〔A1：A5〕，0〕此式就利用了嵌套函數，意思是，當A1至A5的和大于0時，返回這個值，如果小于0，那么就返回0。還有一點要提醒你注意：以上的符號均為半角，而且IF與括號之間也不能有空格。4、自定義格式Excel中預設了很多有用的數據格式，根本能夠滿足使用的要求，但對一些特殊的要求，如強調顯示某些重要數據或信息、設置顯示條件等，就要使用自定義格式功能來完成。Excel的自定義格式使用下面的通用模型：正數格式，負數格式，零格式，文本格式，在這個通用模型中，包含三個數字段和一個文本段：大于零的數據使用正數格式；小于零的數據使用負數格式；等于零的數據使用零格式；輸入單元格的正文使用文本格式。我們還可以通過使用條件測試，添加描述文本和使用顏色來擴展自定義格式通用模型的應用。〔1〕使用顏色要在自定義格式的某個段中設置顏色，只需在該段中增加用方括號括住的顏色名或顏色編號。Excel識別的顏色名為：[黑色]、[紅色]、[白色]、[藍色]、[綠色]、[青色]和[洋紅]。Excel也識別按[顏色X]指定的顏色，其中X是1至56之間的數字，代表56種顏色(如圖5〕。〔2〕添加描述文本要在輸入數字數據之后自動添加文本，使用自定義格式為：＂文本內容＂@；要在輸入數字數據之前自動添加文本，使用自定義格式為：@＂文本內容＂。@符號的位置決定了Excel輸入的數字數據相對于添加文本的位置。〔3〕創立條件格式可以使用六種邏輯符號來設計一個條件格式：>〔大于〕、>=〔大于等于〕、<〔小于〕、<=〔小于等于〕、=〔等于〕、<>〔不等于〕，如果你覺得這些符號不好記，就干脆使用“>〞或“>=〞號來表示。由于自定義格式中最多只有3個數字段，Excel規定最多只能在前兩個數字段中包括2個條件測試，滿足某個測試條件的數字使用相應段中指定的格式，其余數字使用第3段格式。如果僅包含一個條件測試，那么要根據不同的情況來具體分析。自定義格式的通用模型相當于下式：[>；0]正數格式；[<；0]負數格式；零格式；文本格式。下面給出一個例子：選中一列，然后單擊“格式〞菜單中的“單元格〞命令，在彈出的對話框中選擇“數字〞選項卡，在“分類〞列表中選擇“自定義〞，然后在“類型〞文本框中輸入“"正數:"($#,##0.00);"負數:"($#,##0.00);"零";"文本:"@〞，單擊“確定〞按鈕，完成格式設置。這時如果我們輸入“12〞，就會在單元格中顯示“正數：〔$12.00〕〞，如果輸入“-0.3〞，就會在單元格中顯示“負數：〔$0.30〕〞，如果輸入“0〞，就會在單元格中顯示“零〞，如果輸入文本“thisisabook〞，就會在單元格中顯示“文本：thisisabook〞。如果改變自定義格式的內容，“[紅色]"正數:"($#,##0.00);[藍色]"負數:"($#,##0.00);[黃色]"零";"文本:"@〞，那么正數、負數、零將顯示為不同的顏色。如果輸入“[Blue];[Red];[Yellow];[Green]〞，那么正數、負數、零和文本將分別顯示上面的顏色。再舉一個例子，假設正在進行帳目的結算，想要用藍色顯示結余超過$50，000的帳目，負數值用紅色顯示在括號中，其余的值用缺省顏色顯示，可以創立如下的格式：“[藍色][>50000]$#,##0.00_);[紅色][<0]($#,##0.00);$#,##0.00_)〞使用條件運算符也可以作為縮放數值的強有力的輔助方式，例如，如果所在單位生產幾種產品，每個產品中只要幾克某化合物，而一天生產幾千個此產品，那么在編制使用預算時，需要從克轉為千克、噸，這時可以定義下面的格式：“[>999999]#,##0,,_m"噸"";[>999]##,_k_m"千克";#_k"克"〞可以看到，使用條件格式，千分符和均勻間隔指示符的組合，不用增加公式的數目就可以改良工作表的可讀性和效率。另外，我們還可以運用自定義格式來到達隱藏輸入數據的目的，比方格式＂；＃＃；0＂只顯示負數和零，輸入的正數那么不顯示；格式“；；；〞那么隱藏所有的輸入值。自定義格式只改變數據的顯示外觀，并不改變數據的值，也就是說不影響數據的計算。靈活運用好自定義格式功能，將會給實際工作帶來很大的方便。5、批量刪除空行有時我們需要刪除Excel工作薄中的空行，一般做法是將空行一一找出，然后刪除。如果工作表的行數很多，這樣做就非常不方便。我們可以利用“自動篩選〞功能，把空行全部找到，然后一次性刪除。做法：先在表中插入新的一個空行，然后按下Ctrl+A鍵，選擇整個工作表，用鼠標單擊“數據〞菜單，選擇“篩選〞項中的“自動篩選〞命令。這時在每一列的頂部，都出現一個下拉列表框，在典型列的下拉列表框中選擇“空白〞，直到頁面內已看不到數據為止。在所有數據都被選中的情況下，單擊“編輯〞菜單，選擇“刪除行〞命令，然后按“確定〞按鈕。這時所有的空行都已被刪去，再單擊“數據〞菜單，選取“篩選〞項中的“自動篩選〞命令，工作表中的數據就全恢復了。插入一個空行是為了防止刪除第一行數據。如果想只刪除某一列中的空白單元格，而其它列的數據和空白單元格都不受影響，可以先復制此列，把它粘貼到空白工作表上，按上面的方法將空行全部刪掉，然后再將此列復制，粘貼到原工作表的相應位置上。6、如何防止錯誤信息在Excel中輸入公式后，有時不能正確地計算出結果，并在單元格內顯示一個錯誤信息，這些錯誤的產生，有的是因公式本身產生的，有的不是。下面就介紹一下幾種常見的錯誤信息，并提出防止出錯的方法。１〕錯誤值：＃＃＃＃含義：輸入到單元格中的數據太長或單元格公式所產生的結果太大，使結果在單元格中顯示不下。或是日期和時間格式的單元格做減法，出現了負值。解決方法：增加列的寬度，使結果能夠完全顯示。如果是由日期或時間相減產生了負值引起的，可以改變單元格的格式，比方改為文本格式，結果為負的時間量。２〕錯誤值：＃DIV/0!含義：試圖除以0。這個錯誤的產生通常有下面幾種情況：除數為0、在公式中除數使用了空單元格或是包含零值單元格的單元格引用。解決方法：修改單元格引用，或者在用作除數的單元格中輸入不為零的值。３〕錯誤值：＃VALUE!含義：輸入引用文本項的數學公式。如果使用了不正確的參數或運算符，或者當執行自動更正公式功能時不能更正公式，都將產生錯誤信息＃VALUE!。解決方法：這時應確認公式或函數所需的運算符或參數正確，并且公式引用的單元格中包含有效的數值。例如，單元格C4中有一個數字或邏輯值，而單元格D4包含文本，那么在計算公式=C4＋D4時，系統不能將文本轉換為正確的數據類型，因而返回錯誤值＃VALUE!。４〕錯誤值：＃REF!含義：刪除了被公式引用的單元格范圍。解決方法：恢復被引用的單元格范圍，或是重新設定引用范圍。５〕錯誤值：＃N/A含義：無信息可用于所要執行的計算。在建立模型時，用戶可以在單元格中輸入#N/A，以說明正在等待數據。任何引用含有#N/A值的單元格都將返回#N/A。解決方法：在等待數據的單元格內填充上數據。６〕錯誤值：＃NAME?含義：在公式中使用了Excel所不能識別的文本，比方可能是輸錯了名稱，或是輸入了一個已刪除的名稱，如果沒有將文字串括在雙引號中，也會產生此錯誤值解決方法：如果是使用了不存在的名稱而產生這類錯誤，應確認使用的名稱確實存在；如果是名稱，函數名拼寫錯誤應就改正過來；將文字串括在雙引號中；確認公式中使用的所有區域引用都使用了冒號〔：〕。例如：SUM〔C1：C10〕。注意將公式中的文本括在雙引號中。７〕錯誤值：＃NUM!含義：提供了無效的參數給工作表函數，或是公式的結果太大或太小而無法在工作表中表示。解決方法：確認函數中使用的參數類型正確。如果是公式結果太大或太小，就要修改公式，使其結果在-1×10307和1×10307之間。８〕錯誤值：＃NULL解決方法：取消兩個范圍之間的空格。上式可改為“=SUM(A1:A10,C1:C10)〞Part2:EXCEL自學資料第一集返回首頁自學資料第一集1、ApplicationmandBars("WorksheetMenuBar").Enabled=false2、cells(activecell.row,"b").value'活動單元格所在行B列單元格中的值3、SubCheckSheet()'如果當前工作薄中沒有名為kk的工作表的話，就增加一張名為kk的工作表，并將其排在工作表從左至右順序排列的最左邊的位置，即排在第一的位置DimshtSheetAsWorksheetForEachshtSheetInSheetsIfshtSheet.Name="KK"ThenExitSubNextshtSheetSetshtSheet=Sheets.Add(Before:=Sheets(1))shtSheet.Name="KK"EndSub4、Sheet1.ListBox1.List=Array("一月","二月","三月","四月")'一次性增加工程5、Sheet2.Rows(1).Value=Sheet1.Rows(1).Value'將一個表中的一行全部拷貝到另一個表中6、Subpro_cell()'將此代碼放入sheet1,那么me=sheet1,主要是認識meMe.UnprotectCells.Locked=FalseRange("D11:E11").Locked=TrueMe.ProtectEndSub7、ApplicationmandBars("Ply").Enabled=False'工作表標簽上快捷菜單失效8、Subaa()'把B1到B12單元格的數據填入c1到c12Fori=1To12Range("C"&i)=Range("B"&i)NextiEndSub9、ActiveCell.AddCommentSelection.Font.Size=12'在點選的單元格插入批注，字體為12號10、PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)Cancel=TrueEndSub11、ScrollArea屬性參閱應用于例如特性以A1樣式的區域引用形式返回或設置允許滾動的區域。用戶不能選定滾動區域之外的單元格。String類型，可讀寫。說明可將本屬性設置為空字符串("")以允許對整張工作表內所有單元格的選定。例如本例如設置第一張工作表的滾動區域。Worksheets(1).ScrollArea="a1:f10"12\ifapplication.max([a1:e1])=10thenmsgbox""commandbutton1.enabled=false'A1—E1最大的數值到達10時，自動彈出對話框，并凍結按鈕12、本例如將更改的單元格的顏色設為藍色。PrivateSubWorksheet_Change(ByValTargetasRange)Target.Font.ColorIndex=5EndSub13、Subtest()'求和DimrngAsRange,rng2AsRangeForEachrngInActiveSheet.UsedRange.ColumnsSetrng2=Range(Cells(1,rng.Column),Cells(Cells(65536,rng.Column).End(xlUp).Row,rng.Column))rng2.Cells(rng2.Cells.Count).Offset(1,0)=WorksheetFunction.Sum(rng2)NextrngEndSub14、將工作薄中的全部n張工作表都在sheet1中建上鏈接Subtest2()DimPtAsRangeDimiAsIntegerWithSheet1SetPt=.Range("a1")Fori=2ToThisWorkbook.Worksheets.Count.Hyperlinks.AddAnchor:=Pt,Address:="",SubAddress:=Worksheets(i).Name&"!A1"SetPt=Pt.Offset(1,0)NextiEndWithEndSub15、保存所有翻開的工作簿，然后退出MicrosoftExcel。ForEachwInApplication.Workbooksw.SaveNextwApplication.Quit16、讓form標題欄上的關閉按鈕失效PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseMode<>1ThenCancel=TrueEndSub17、Subcountsh()'獲得工作表的總數MsgBoxSheets.CountEndSub18、SubIE()'翻開個人網頁ActiveWorkbook.FollowSendKeys"{F4}ykk1976.anyp{ENTER}",TrueEndSub19、Subdelback()'一次性刪除工作簿中所有工作表的背景ForEachshtSheetInSheetsshtSheet.SetBackgroundPictureFilename:=""NextshtSheetEndSub20、[a1].formula="=b1+c1"'A1中設定公式為=B1+C121、PrivateSubCommandButton1_Click()'將A1到C6中大于=3的數依次放入E列DimiAsLongr=1ForEachiInRange("a1:c6")Ifi>=3ThenCells(r,5)=i:r=r+1NextEndSub22、PrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange)'顯示帶數字的表名b=Split(Sh.Name,"(")OnErrorGoTossnum=CInt(Left(b(1),Len(b(1))-1))Ifnum>=1Andnum<20ThenMsgBoxSh.NameEndIfExitSubss:MsgBox"error",16,""EndSub23、SubTest()'選擇所有工作表名以"業報"開頭的工作表或頭兩個字是業報的報表名引用SetSh=ActiveSheetIfLeft(Sh.Name,2)="業報"Then'或iflike"業報*"thenMsgBox"你成功了",64,""EndIfEndSub24、1.建立文件夾的方法MkDir"D:\Music"2.翻開文件夾的方法ActiveWorkbook.FollowHyperlinkAddress:="D:\Music",NewWindow:=True25、在當前工作表翻頁Application.SendKeys"{PGUP}",TrueApplication.SendKeys"{PGDN}",True或者ActiveWindow.LargeScrollDown:=1ActiveWindow.LargeScrollDown:=-126、當Target="*小計"時如何寫,*代表任何字符。ifinstr(target.value,"小計")<>0thenPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.ValueLike"*小計"ThenMsgBox"OK"EndSub27、ActiveCell.FormulaR1C1="=SUM(R[1]C:R[14]C,R[59]C:R[78]C)"這是相對引用的寫法：根據推算你的函數是放在“AD6〞單元格你的函數：=SUM(R[1]C:R[14]C中的"R"表示行"C"表示列。R[1]表示“AD6+1行"，C表示“列沒有變化，就是同列〞那么：R[1]C就表示AD7同理，R[14]表示AD6+14行，表示：AD20。以此類推。28、PrivateSubCommandButton1_Click()'將A1到C6中大于=3的數依次放入E列DimiAsLongDimiRngAsRangeForEachiRngInSheets(1).Range("a1:c6")IfiRng.Value>=3Theni=i+1Sheets(1).Range("E"&i).Value=iRng.ValueEndIfNextEndSub29、工作表中的窗體按鈕禁用后，按鈕形狀不變，字體不變，從外表上無法看出其已禁用，如何設置屬性使其像控件按紐那樣明顯的禁用？WithActiveSheet.Buttons(1).Enabled=FalseActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex=15EndWith復原的方法WithActiveSheet.Buttons(1).Enabled=TrueActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex=xlAutomaticEndWith30、PrivateSubWorksheet_SelectionChange(ByValTargetAsRange'選定A1時要輸入密碼IfTarget.Address="$A$1"ThenA=InputBox("請輸入密碼","officefans")IfA=1Then[A1].SelectElse[A2].SelectEndIfEndSub31、如何將工作薄中的命名單元格成批刪除！DimItemAsNameForEachItemInActiveWorkbook.NamesItem.DeleteNextItem32、平時只能看到表1，如要看表2和表3，只能通過表1的鏈接翻開,且表2和表3回到表1后，又不可見。PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Address="$A$3"Then'當點擊"$A$3"單元格時...Sheet2.Visible=1'取消隱藏Sheet2.Activate'激活ActiveSheet.Range("A1").SelectEndIfIfTarget.Address="$A$6"ThenSheet3.Visible=1'取消隱藏Sheet3.ActivateActiveSheet.Range("A1").SelectEndIfEndSub33、將a2單元格內容替換為a1內容ActiveCell.ReplaceWhat:=[a2],Replacement:=[a1]34、如果是要填入名稱,那么:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Selection.Value=ComboBox1.column(1)EndSub如果是要填入代碼和名稱的組合:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Selection.Value=cstr(ComboBox1.column(0))+""+combobox1.column(1)EndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Selection.Value=ComboBox1.ValueEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)'target.row代表行號'target.column代表列號i=target.row'獲取行號j=target.column'獲取列號EndSub35、當激活工作表時，本例如對A1:A10區域進行排序。PrivateSubWorksheet_Activate()Range("a1:a10").SortKey1:=Range("a1"),Order:=xlAscendingEndSub36、BeforePrint事件參閱應用于例如特性在打印指定工作簿〔或者其中的任何內容〕之前，產生此事件。PrivateSubWorkbook_BeforePrint(CancelAsBoolean)Cancel當事件產生時為False。如果該事件過程將本參數設為True，那么當該過程運行結束之后不打印工作簿。例如本例如在打印之前對當前活開工作簿的所有工作表重新計算。PrivateSubWorkbook_BeforePrint(CancelAsBoolean)ForEachwkinWorksheetswk.CalculateNextEndSub37、Open事件參閱應用于例如特性翻開工作簿時，將產生本領件。PrivateSubWorkbook_Open()例如每次翻開工作簿時，本例如都最大化MicrosoftExcel窗口。PrivateSubWorkbook_Open()Application.WindowState=xlMaximizedEndSub38、ActiveSheet屬性參閱應用于例如特性返回一對象，該對象代表活開工作簿中的，或者指定的窗口或工作簿中的活開工作表〔最上面的工作表〕。只讀。如果沒有活動的工作表，那么返回Nothing。說明如果未給出對象識別符，本屬性返回活開工作簿中的活開工作表。如果某一工作簿在假設干個窗口中出現，那么該工作簿的ActiveSheet屬性在不同窗口中可能不同。例如本例如顯示活開工作表的名稱。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name39、Calculate方法參閱應用于例如特性計算所有翻開的工作簿、工作簿中的一張特定的工作表或者工作表中指定區域的單元格，如下表所示：要計算依照本例如所有翻開的工作簿Application.Calculate〔或只是Calculate〕指定工作表指定工作表指定區域Worksheets(1).Rows(2).Calculateexpression.Calculateexpression對于Application對象可選，對于Worksheet對象和Range對象必需。該表達式返回“應用于〞列表中的對象之一。例如本例如計算Sheet1已用區域中A列、B列和C列的公式。Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate程序的核心是算法問題40、End屬性參閱應用于例如特性返回一個Range對象，該對象代表包含源區域的區域尾端的單元格。等同于按鍵End+向上鍵、End+向下鍵、End+向左鍵或End+向右鍵。Range對象，只讀。expression.End(Direction)expression必需。該表達式返回“應用于〞列表中的對象之一。DirectionXlDirection類型，必需。所要移動的方向。XlDirection可為XlDirection常量之一。xlDownxlToRightxlToLeftxlUp例如本例如選定包含單元格B4的區域中B列頂端的單元格。Range("B4").End(xlUp).Select本例如選定包含單元格B4的區域中第4行尾端的單元格。Range("B4").End(xlToRight).Select本例如將選定區域從單元格B4延伸至第四行最后一個包含數據的單元格。Worksheets("Sheet1").ActivateRange("B4",Range("B4").End(xlToRight)).Select41、應用于CellFormat和Range對象的Locked屬性。本例如解除對Sheet1中A1:G37區域單元格的鎖定，以便當該工作表受保護時也可對這些單元格進行修改。Worksheets("Sheet1").Range("A1:G37").Locked=FalseWorksheets("Sheet1").Protect42、Next屬性參閱應用于例如特性返回一個Chart、Range或Worksheet對象，該對象代表下一個工作表或單元格。只讀。說明如果指定對象為區域，那么本屬性的作用是仿效Tab，但本屬性只是返回下一單元格，并不選定它。在處于保護狀態的工作表中，本屬性返回下一個未鎖定單元格。在未保護的工作表中，本屬性總是返回緊靠指定單元格右邊的單元格。例如本例如選定sheet1中下一個未鎖定單元格。如果sheet1未保護，選定的單元格將是緊靠活動單元格右邊的單元格。Worksheets("Sheet1").ActivateActiveCell.Next.Select43、想通過target來設置(A1：A10)區域內有改動，就發生此事件。不知道如何iftarget.row=1andtarget.column<=10thenSub列舉菜單項()Dimr,s,iAsIntegerr=1Fori=1ToCommandBars.CountActiveSheet.Cells(r,1)="CommandBars("&i&").Name:"&CommandBars(i).Namer=r+1Fors=1ToCommandBars(i).Controls.CountActiveSheet.Cells(r,1)=s&"、"&CommandBars(i).Controls(s).Captionr=r+1NextNextEndSub44、本例如設置MicrosoftExcel每當翻開包含鏈接的文件時，詢問用戶是否更新鏈接。Application.AskToUpdateLinks=True45、自定義函數PublicFunctionNow1()Dimstring1AsStringstring1=VBA.DateNow1=string1EndFunction46、復制Subcopy1()Sheet2.Range("C5:C10").CopySheet1.Range("C5:C10")EndSub47、如何統計表中sheet的個數？msgboxsheets.countColumns("G:G").Select48、Selection.EntireColumn.Hidden=True這樣隱藏有個毛病，如何解決？如果A1:G1單元格合并的話，就把A：G列均隱藏了。Columns("G:G").EntireColumn.Hidden=True49、在VBA中引用excel函數的方法1).Worksheets("Sheet1").Range("A1").Formula="=$A$4+$A$10"2).Sheet1.Cells(1,1).Formula="="&Sheets(iii).Name&"!R1C4"在宏中用R1C1方式寫時表格1的A1中會在寫為“=Sheet2!$D$1〞用這種方式,想用什么函數就用什么函數.50、選定下〔上〕一個工作表sheets(activesheet.index-1).selectsheets(activesheet.index+1).select51、PrivateSubWorkbook_Open()ActiveWindow.DisplayWorkbookTabs=False'取消工作表標簽ApplicationmandBars("Sheet").Controls(1).Enabled=False'格式＿工作表不能重命名ApplicationmandBars.FindControl(ID:=889).Enabled=False'右鍵菜單不能重命名EndSub52、[a65536].End(xlUp’A列從下往上第一個非空的單元格53、Submacro()Setrng=Range("C11:F13")定義RNG為一個單元格區域ForEachcelInrng定義CEL為RNG中的一個任一單元格colo=cel.Interior.ColorIndex定義COLO為單元格CEL的填充顏色Ifcolo<>-4142Then如果COLO的值不等于-4142iR=[b65536].End(xlUp).Row+1IR等于B列數據區域的行數+1If[a65535].End(xlUp).Value<>Cells(cel.Row,2)ThenCells(iR,1)=Cells(cel.Row,2)如果A列最后一個非空值單元格不等于Cells(cel.Row,2)的值那么單元格Cells(iR,1)的值等于Cells(cel.Row,2)的值CEL.ROW是C11:F13中任意單元格的行號Cells(iR,2)=Cells(10,cel.Column)Cells(iR,3)=cel.ValueCells(iR,4)=IIf(colo=36,"Yellow","Red")Cells(iR,4)的值如果colo=36那么值為"Yellow",否那么值為"RED"nextEndSub54、PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)'**********運行數據日志記錄**********DimrngAsRangeIfActiveSheet.Name<>"主界面"AndActiveSheet.Name<>"目錄索引"ThenForEachrngInTarget.CellsChangecell=ActiveSheet.Name&"，單元格："&rng.Address(0,0)&"，更改為："&rng.value&"。更改時間："&NowCritOrAddtextNextEndIfEndSub55、ActiveSheet.Unprotect'撤銷當前工作表保護IfActiveSheet.Name<>"主界面"AndActiveSheet.Name<>"目錄索引"AndTarget.Row>3Then'行變色OnErrorResumeNext[ChangColor_With].FormatConditions.DeleteTarget.EntireRow.Name="ChangColor_With"With[ChangColor_With].FormatConditions.Delete.AddxlExpression,,"TRUE".Item(1).Interior.ColorIndex=4EndWithEndIfActiveSheet.Protect56、在C1中弄個下拉無表,實際是有效性,你可以選擇A1:A4為C1單元格有效性的序列數據源,如果說C1不與A1:A4在同一表,那么不能這么用,應領先對A1:A4命名,然后把數據源改為名稱.57、自動增加工作表進入宏命令編輯窗口，在Sub自動增加工作表()命令后依次鍵入如下宏命令內容：Dimi&,userintoi=0userinto=InputBox("輸入插入工作表數量：")IfIsNumeric(userinto)=TrueThenDoUntili=userintoWorksheets.Addi=i+1LoopEndIfEndSub58、方法一〔共享級鎖定〕:1、先對EXCEL文件進行一般的VBAProject〞工程密碼保護。2、翻開要保護的文件，選擇：工具>保護>保護并共享工作簿>以追蹤修訂方式共享-->輸入密碼-->保存文件。完成后，當你翻開“VBAProject〞工程屬性時，就將會提示：“工程不可看！“方法二〔推薦，破壞型鎖定〕：用16進制編輯工具，如WinHex、Ultraedit-32〔可到此下載〕等，再歷害點的人完全可以用debug命令來做用以上軟件翻開EXCEL文件，查找定位以下地方：ID="{00000000-0000-0000-0000-000000000000}"注：實際顯示不會全部為0此時，你只要將其中的字節隨便修改一下即可。保存再翻開，就會發現大功告成！當然，在修改前最好做好你的文檔備份。至于恢復只要將改動過的地方復原即可〔只要你記住了呵呵〕。順便說一句，這種方法仍然是可破解的，因為加密總是相對的。59、SubAddComments()'自動對ActiveSheet所有有公式格位加上註解SetRG=Cells.SpecialCells(xlCellTypeFormulas)ForEachcInRGc.AddCommentcment.TextText:=c.FormulaNextcEndSubSubDe_Comments()'自動消除所有註解SetRG=Cells.SpecialCells(xlCellTypeFormulas)ForEachcInRGc.ClearCommentsNextcEndSub60、如何在Excel里使用定時器2002-3-1220:53:27動網先鋒用過Excel97里的加載宏"定時保存"嗎？可惜它的源程序是加密的，現在就上傳一篇介紹實現它的文檔。在Office里有個方法是application.ontime，具體函數如下：expression.OnTime(EarliestTime,Procedure,LatestTime,Schedule)如果想進一步了解，請參閱Excel的幫助。這個函數是用來安排一個過程在將來的特定時間運行，〔可為某個日期的指定時間，也可為指定的時間段之后〕。通過這個函數我們就可以在Excel里編寫自己的定時程序了。下面就舉兩個例子來說明它。1.在下午17:00:00的時候顯示一個對話框。SubRun_it()Application.OnTimeTimeValue("17:00:00"),"Show_my_msg"'設置定時器在17:00:00激活，激活后運行Show_my_msg。EndSubSubShow_my_msg()msg=MsgBox("現在是17:00:00！",vbInformation,"自定義信息")EndSub2.模仿Excel97里的"自動保存宏",在這里定時5秒出現一次Subauto_open()MsgBox"歡送你，在這篇文檔里，每5秒出現一次保存的提示！",vbInformation,"請注意！"Callruntimer'翻開文檔時自動運行EndSubSubruntimer()Application.OnTimeNow+TimeValue("00:00:05"),"saveit"'Now+TimeValue("00:15:00")指定在當前時間過5秒鐘開始運行Saveit這個過程。EndSubSubSaveIt()msg=MsgBox("朋友，你已經工作很久了，現在就存盤嗎？"&Chr(13)_&"選擇是：立刻存盤"&Chr(13)_&"選擇否：暫不存盤"&Chr(13)_&"選擇取消：不再出現這個提示",vbYesNoCancel+64,"休息一會吧！")'提示用戶保存當前活動文檔。Ifmsg=vbYesThenActiveWorkbook.SaveElseIfmsg=vbCancelThenExitSubCallruntimer'如果用戶沒有選擇取消就再次調用RuntimerEndSub以上只是兩個簡單的例子，有興趣的話，可以利用Application.Ontime這個函數寫出更多更有用的定時程序。SubShow_my_msg()msg=MsgBox("現在是17:00:00！",vbInformation,"自定義信息")EndSub2.模仿Excel97里的"自動保存宏",在這里定時5秒出現一次Subauto_open()MsgBox"歡送你，在這篇文檔里，每5秒出現一次保存的提示！",vbInformation,"請注意！"Callruntimer'翻開文檔時自動運行EndSubSubruntimer()Application.OnTimeNow+TimeValue("00:00:05"),"saveit"'Now+TimeValue("00:15:00")指定在當前時間過5秒鐘開始運行Saveit這個過程。EndSub61、Excel最重要的應用就是利用公式進行計算。無論輸入是純粹的數字運算，還是引用其他單元格計算，只要在一個單元格中輸入公式，就能得到結果。這個直接顯示結果的設計對于絕大多數場合來說都是適用的，但某些情況下就不那么讓人滿意了。比方說在做工程施工的預結算編寫，使用Excel，既要寫出工程量的計算式，也要看到它的結果，于是這樣相同的公式在Excel里面要填兩次，一次在文本格式的單元格中輸入公式，一次是在數據格式的單元格中輸入公式讓Excel計算結果。如何既能看到公式又能看到結果呢？這個問題筆者認為可以從兩個方面考慮：一種方法是所謂“結果，顯示公式〞，先在數據格式單元格中輸入公式讓Excel計算結果，然后在相鄰的單元格中看到公式；另一種方法所謂“公式，顯示結果〞，就是先在一個文本格式的單元格中輸入公式，在相鄰的單元格中看到結果。★結果，顯示公式假設C列為通過公式計算得到的結果〔假設C1為“=A1+B1〞，或者直接是數字運算“=2+3〞)，而相鄰的D列是你需要顯示公式的地方〔即D1應該顯示為“=A1+B1〞或者“=2+3〞〕。1.翻開“工具〞菜單項選擇擇“選項〞命令，出現“選項〞對話框。2.在“常規〞選項卡中，選中“R1C1引用方式〞選項。3.定義名稱，將“引用位置〞由“=GET.CELL(6,Sheet1!RC[-1])〞即可。這里的RC[-1]含義是如果在當前單元格的同行前一列單元格中有公式結果，那么在當前單元格中得到公式內容，即在含公式結果單元格的同行后一列單元格顯示公式內容；如果將RC[-1]改為RC[1]，那么在公式結果的同行前一列單元格顯示公式內容。4.如果“引用位置〞中含有“RC[-1]〞，那么在含公式結果單元格的同行后一列單元格中輸入“=FormulaofResult〞即可得到公式；如果“引用位置〞中含有“RC[1]〞，那么在含公式結果單元格的同行前一列單元格中輸入“=FormulaofResult〞即可得到公式。提示：如果想要在含公式結果單元格的同行后數第2列中顯示公式內容，那么需要把“引用位置〞中的“RC－1〞改為“RC－2〞。★公式，顯示結果假設C列為輸入的沒有等號公式〔假設C1為“A1+B1〞)，而相鄰的D列是你需要存放公式計算結果的地方〔即D1顯示A1和B1單元格相加的結果〕。1.選中D1，然后翻開“插入〞菜單項選擇擇“名稱〞命令中的“定義〞子命令，出現“定義名稱〞對話框。2.在“在當前工作表中的名稱〞輸入欄中輸入定義的名稱“ResultofFomula〞，在下方的“引用位置〞編輯欄中輸入“=EVALUATE(Sheet1!C1)〞，單擊[確認]按鈕退出。3.在D1中輸入“=ResultofFomula〞，然后選中按住右下角的填充柄向下拉動填充即可。提示：EVALUATE是Eexcel4．0版的宏表函數，Excel2000和Excel2002中還支持，但只可用于名稱定義中。4.填充后要按[F9]進行重算，如果C列的公式有改動，也需要及時按[F9]進行重算。巧施妙計，就能讓公式和結果在Excel中和平共處了，你也試試吧。62、是一款功能非常強大的電子表格軟件。它可以輕松地完成數據的各類數學運算，并用各種二維或三維圖形形象地表示出來，從而大大簡化了數據的處理工作。但假設僅利用Excel的常用功能來處理較復雜的數據，可能仍需進行大量的人工操作。但Excel的強大遠遠超過人們的想象--宏的引入使其具有了無限的擴展性，因而可以很好地解決復雜數據的處理問題。隨著支持Windows的應用程序的不斷增多和功能的不斷增強，越來越多的程序增加了宏處理來方便用戶的自由擴展。但初期各應用程序所采用的宏語言并不統一，這樣用戶每使用一種應用程序時都得重新學習一種宏語言。為了統一各種應用程序下的宏，Microsoft推出了VBA〔VisualBasicforApplications〕語言。VBA是從流行的VisualBasic編程語言中派生出來的一種面向應用程序的語言，它適用于各種Windows應用程序，可以解決各應用程序的宏語言不統一的問題。除此之外，使用VBA語言還有如下優點：1、VBA是一種通用程序語言，通過它不僅可以共享Microsoft相關的各種軟件〔如Excel、Word、Access〕……，而且隨著其它的一些軟件〔如大名鼎鼎的AutoCAD2000〕等對VBA的支持，這些軟件也已進入到了VBA的控制范圍；2、可以將用VBA編寫的程序復制到VisualBasic中調試并運行，從而實現用VisualBasic來控制有關的應用程序；3、VBA提供的大量內部函數大大簡化了用戶的操作。對于而今的宏，不僅語言統一標準，而且其功能也已非常強大。但在大多數介紹Excel的"傻瓜書"、"指南"、"入門與提高"等參考書中往往略過不提，或淺淺帶過，讀者從中獲得的有關知識往往缺乏以應付處理復雜數據的需求。為了完成工作，就讓我們一起來學習"宏"的妙用吧。一)、宏的自學首先需要明確的是，本文不可能教會您關于宏的所有內容。您需要學會利用"錄制宏"的方法來學習宏：點擊Excel"工具"下拉菜單中"宏"下?quot;錄制新宏"，此后可象平時一樣進行有關操作，待完成后停止錄制。然后再點擊"工具"下拉菜單中"宏"下"宏"的"編輯"選項即可翻開剛剛所錄制的宏的VisualBasic源程序，并且可以在此時的"幫助"下拉菜單中獲得有關的編程幫助。對錄制宏進行修改不僅可以學習宏的使用，還能大大簡化宏的編寫。二)、根本概念為了學習Excel中的宏，我們需要先了解以下一些根本概念。1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含Excel中所有當前翻開的Excel工作簿，亦即所有翻開的Excel文件；Workbook對應Workbooks中的成員，即其中的Excel文件；ActiveWorkbook代表當前處于活動狀態的工作簿，即當前顯示的Excel文件；ThisWorkbook代表其中有VisualBasic代碼正在運行的工作簿。在具體使用中可用Workbooks(index)來引用Workbook對象，其中index為工作簿名稱或編號；如Workbooks(1)、Workbooks("年度報表.xls")。而編號按照創立或翻開工作簿的順序來確定，第一個翻開的工作簿編號為1，第二個翻開的工作簿為2……。2、工作表：Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表，即一個Excel文件中的所有數據表頁；而Worksheet那么代表其中的一個工作表；ActiveSheet代表當前處于的活動狀態工作表，即當前顯示的一個工作表。可用Worksheets(index)來引用Worksheet對象，其中index為工作表名稱或索引號；如Worksheets(1)、Worksheets("第一季度數據")。工作表索引號說明該工作表在工作表標簽中的位置：第一個〔最左邊的〕工作表的索引號為1，最后一個〔最右邊的〕為Worksheets.Count。需要注意的是：在使用過程中Excel會自動重排工作表索引號，保持按照其在工作表標簽中的從左至右排列，工作表的索引號遞增。因此，由于可能進行的工作表添加或刪除，工作表索引號不一定始終保持不變。3、圖表：Chart、Charts、ChartObject、ChartObjects、ActiveChartChart代表工作簿中的圖表。該圖表既可為嵌入式圖表〔包含在ChartObject中〕，也可為一個分開的〔單獨的〕圖表工作表。Charts代表指定工作簿或活開工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或對話框編輯表中的圖表。使用Charts(index)可引用單個Chart圖表，其中index是該圖表工作表的索引號或名稱；如Charts(1)、Charts("銷售圖表")。圖表工作表的索引號表示圖表工作表在工作簿的工作表標簽欄上的位置。Charts(1)是工作簿中第一個〔最左邊的〕圖表工作表；Charts(Charts.Count)為最后一個〔最右邊的〕圖表工作表。ChartObject代表工作表中的嵌入式圖表，其作用是作為Chart對象的容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。ChartObjects代表指定的圖表工作表、對話框編輯表或工作表上所有嵌入式圖表的集合。可由ChartObjects(index)引用單個ChartObject，其中index為嵌入式圖表的編號或名稱。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分別對應"Sheet1"工作表中的第一個嵌入式圖表、以及名為"Chart1"的嵌入式圖表。ActiveChart可以引用活動狀態下的圖表，不管該圖表是圖表工作表，或嵌入式圖表。而對于圖表工作表為活開工作表時，還可以通過ActiveSheet屬性引用之。4、單元格：Cells、ActiveCell、Range、AreasCells(row,column)代表單個單元格，其中row為行號，column為列號。如可以用Cells(1,1)、Cells(10,4)來引用"A1"、"D10"單元格。ActiveCell代表活開工作表的活動單元格，或指定工作表的活動單元格。Range代表工作表中的某一單元格、某一行、某一列、某一選定區域〔該選定區域可包含一個或假設干連續單元格區域〕或者某一三維區域。可用Range(arg)來引用單元格或單元格區域，其中arg可為單元格號、單元格號范圍、單元格區域名稱。如Range("A5")、Range("A1:H8")、Range("Criteria")。雖然可用Range("A1")返回單元格A1，但用Cells更方便，因為此時可用變量指定行和列。可將Range與Cells結合起來使用，如Range(Cells(1,1),Cells(10,10))代表單元格區域"A1:J10"；而expression.Cells(row,column)返回單元格區域中的一局部，其中expression是返回Range的表達式，row和column為相對于該區域的左上角偏移量。如由Range("C5:C10").Cells(1,1)引用單元格C5。Areas為選定區域內的連續單元格塊的集合，其成員是Range對象。而其中的每個Range對象代表選定區域內與其它局部相別離的一個連續單元格塊。某些操作不能在選定區域內的多個單元格塊上同時執行；必須在選定區域內的單元格塊數Areas.Count上循環，對每個單獨的單元格塊分別執行該操作。此時，可用Areas(index)從集合中返回單個Range對象，其中index為單元格塊編號；如Areas(1)。5、行與列：Rows、Columns、Row、ColumnRows、Columns分別代表活開工作表、單元格區域范圍Range、指定工作表中的所有行數、列數。對于一個多項選擇單元格區域范圍Range的Rows、Columns，只返回該范圍中第一個區域的行數、列數。例如，如果Range對象有兩個區域〔areas〕A1:B2和C3:D4，Rows.Count返回2而不是4。可通過Rows(行號)、Columns(列號)來引用相應的行與列；如Rows(3)、Columns(4)分別對應第三行、D列。利用Rows、Column可以獲得區域中第一塊的第一行行號、第一列列號，所得值均以十進制數表示。三)、處理單元格1、直接賦值與引用將變量、常量值直接賦給單元格、或將單元格的值直接賦給變量、常量，這是在Excel中最簡單的單元格賦值及引用方法。如下例將工作表"Sheet1"A1單元格的值賦給Integer變量I，并將I+1的值賦給當前工作表中的B1單元格：DimIAsIntegerI=Worksheets("Sheet1").Cells(1,1)Cells(1,2).Select'選定B1單元格，使其成為當前單元格ActiveCell=I+1'以I+1為當前單元格賦值2、用公式賦值在宏的使用中，可能會更多地用公式來給單元格賦值。如下例將相對于活動單元格左側第4列、向上第6行至向上第2行的單元格數值之和賦給活動單元格〔以本行、本列為第0行、0列〕：ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])"3、引用其它工作表中的單元格當賦值公式中需要引用其它工作表中的單元格時，在被引用的單元格前加上"工作表名！"即可。如以下即在賦值中引用了"Sheet1"工作表中的A1至A4單元格：Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)"但需注意的是：當被引用的工作表名中含有某些可能引起公式歧義的字符時，需要用單引號'將工作表名括起來。如：Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1剖面'!D3:D5)"4、引用其它工作簿中的單元格在被引用單元格所在工作表名前加上"[工作簿名]"，即可引用其它工作簿中的單元格。如：ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])"同樣需注意的是：當被引用的工作簿名中含有某些可能引起公式歧義的字符時，需要用中括號"["、"]"及單引號'將工作簿名括起來。如：Cells(1,2).Formula="=MIN('[1995-2000總結.xls]1995-1996年'!$A$1:$A$6)"5、防止循環引用在上述公式賦值過程中，應防止在公式中引用被賦值的單元格，防止循環引用錯誤。6、添加批注可按如下方法格給單元格添加批注：Dim批注文本AsString批注文本="批注例如"'準備批注文本ActiveCell.AddComment'添加批注ActiveCellment.TextText:=臨時'寫入批注文本ActiveCellment.Visible=False'隱藏批注7、添加、刪除、復制、剪切、粘貼單元格Range("D10").InsertShift:=xlToRight'在D10單元格處添加一新單元格，原D10格右移Range("C2").InsertShift:=xlDown'在C2單元格處添加一新單元格，原C2格下移Rows(2).EntireRow.Insert'在第2行前添加一空白行，原第2行下移Columns(3).EntireColumn.Insert'在C列前添加一空白列，原C列右移Columns("A:D").DeleteShift:=xlToLeft'刪除A列至D列，其右側列左移Rows("3:5").DeleteShift:=xlUp'刪除第3行至第5行，其下方行上移Range("B2").EntireRow.Delete'刪除第2行Range("C4").EntireColumn.Delete'刪除C列Range("B10:C13").Copy'復制B10至C13單元格區域Cells(1,2).Cut'剪切B1單元格Range("D10").SelectActiveSheet.Paste'自D10單元格起粘貼剪貼板中的內容四)、圖表1、工作表圖表以下為一添加工作表圖表的實例。Charts.Addafter:=Worksheets("Sheet1")'在"Sheet1"工作表之后添加新圖表工作表ActiveChart.ChartType=xlXYScatterSmooth'圖表類型為XY平滑線散點圖ActiveChart.SetSourceDataSource:=Sheets("結點坐標").Range("A1:B69"),PlotBy:=_xlColumns'圖表數據來源于"結點坐標"工作表的A1至B69單元格，且按列繪圖。ActiveChart.LocationWhere:=xlLocationAsNewSheetWithActiveChart.HasTitle=True.ChartTitle.Characters.Text="節點坐標"'圖表標題"節點坐標".Axes(xlCategory,xlPrimary).HasTitle=True.Axes(xlCategory,xlPrimary).AxisTitle.Characters.Text="x"'x軸標題"x".Axes(xlValue,xlPrimary).HasTitle=True.Axes(xlValue,xlPrimary).AxisTitle.Characters.Text="y"'y軸標題"y"EndWithWithActiveChart.Axes(xlCategory).HasMajorGridlines=True'顯示x軸主網格線，默認情況下為顯示.HasMinorGridlines=True'顯示x軸次網格線，默認情況下為不顯示EndWithWithActiveChart.Axes(xlValue).HasMajorGridlines=True'標出x軸主網格值，默認情況下為標注.HasMinorGridlines=False'取消x軸次網格值標注，默認情況下為不標注EndWithActiveChart.Legend.Position=xlRight'圖例顯示在圖表右側2、嵌入式圖表嵌入式圖表僅在添加方式及引用格式上與工作表圖表有所不同，而對圖表的設置根本類似。詳見下例。Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300)'在當前工作表(0,0)坐標處添加寬200，高300的嵌入式圖表嵌入表.Chart.ChartType=xlColumnClustered'圖表類型為簇狀柱形圖嵌入表.Chart.SetSourceDataSource:=Sheets(1).Range("A2:B2"),PlotBy:=xlRows'設置圖表數據來源With嵌入表.Chart.HasTitle=False'無圖表標題.Axes(xlCategory,xlPrimary).HasTitle=False'無x軸標題.Axes(xlValue,xlPrimary).HasTitle=False'無y軸標題EndWith五)、工作表1、添加Sheets.Addbefore:=Sheets(1)'在第1工作表前添加新工作表Sheets.Addafter:=Sheets(Sheets.Count)'在最后工作表后添加新工作表2、移動ActiveSheet.Movebefore:=Sheets(2)'將當前工作表移動至第2工作表之前3、命名ActiveSheet.Name="工作表名"'將當前工作表命名為"工作表名"4、刪除可