Excel基本操作技巧薈萃

EXCEL基本操作技巧薈萃

目錄

Part1:EXCEL使用六技巧2

Part2:EXCEL自學(xué)資料第一集6

Part3:EXCEL自學(xué)資料第二集51

Part4:一天一個小技巧99

Part5:EXCEL技巧匯總108

Part6:EXCEL基礎(chǔ)知識技巧在線教程131

Part7:EXCEL運用技巧匯總141

Part8:EXCEL操作-基礎(chǔ)篇168

Part9:EXCEL問題集錦212

本文由QuentinLin收集整理于西元2006年2月15日

Parti:EXCEL使用六技巧

返回首頁

1.編輯技巧

(1)分數(shù)的輸入

如果直接輸入“1/5”，系統(tǒng)會將其變?yōu)椤?月5日”，解決辦法是：先輸入“0”，然后輸入空格，

再輸入分數(shù)“1/5”。

(2)序列"001”的輸入

如果直接輸入“001”，系統(tǒng)會自動判斷001為數(shù)據(jù)1,解決辦法是：首先輸入(西文單引號)，然

后輸入"001"。

(3)日期的輸入

如果要輸入“4月5日"，直接輸入“4/5"，再敲回車就行了。如果要輸入當前日期，按一下"Ctrl+;“

鍵。

(4)填充條紋如果想在工作簿中加入漂亮的橫條紋，可以利用對齊方式中的填充功能。先在一單元

格內(nèi)填入"*”或

“?”等符號，然后單擊此單元格，向右拖動鼠標，選中橫向若干單元格，單擊“格式”菜單，選中“單元

格”命令，在彈出的“單元格格式”菜單中，選擇“對齊”選項卡，在水平對齊下拉列表中選擇“填充”，

單擊"確定"按鈕。

(5)多張工作表中輸入相同的內(nèi)容幾個工作表中同一位置填入同一數(shù)據(jù)時，可以選中一張工作表，

然后按住Ctrl鍵，再單擊窗口左下角

的SheethSheet2……來直接選擇需要輸入相同內(nèi)容的多個工作表，接著在其中的任意一個工作表中輸入

這些相同的數(shù)據(jù)，此時這些數(shù)據(jù)會自動出現(xiàn)在選中的其它工作表之中。輸入完畢之后，再次按下鍵盤上的

Ctrl健，然后使用鼠標左鍵單擊所選擇的多個工作表，解除這些工作表的聯(lián)系，否則在一張表單中輸入的

數(shù)據(jù)會接著出現(xiàn)在選中的其它工作表內(nèi)。

(6)不連續(xù)單元格填充同一數(shù)據(jù)

選中一個單元格，按住Ctrl鍵，用鼠標單擊其他單元格，就將這些單元格全部都選中了。在編輯區(qū)中

輸入數(shù)據(jù)，然后按住Ctrl鍵，同時敲一下回車，在所有選中的單元格中都出現(xiàn)了這一數(shù)據(jù)。

(7)利用Ctrl+*選取文本如果一個工作表中有很多數(shù)據(jù)表格時，可以通過選定表格中某個單元格，

然后按下CtH+*鍵可選定

整個表格。Ctrl+*選定的區(qū)域為：根據(jù)選定單元格向四周輻射所涉及到的有數(shù)據(jù)單元格的最大區(qū)域。這樣

我們可以方便準確地選取數(shù)據(jù)表格，并能有效避免使用拖動鼠標方法選取較大單元格區(qū)域時屏幕的亂滾現(xiàn)

象。

(8)快速清除單元格的內(nèi)容如果要刪除內(nèi)容的單元格中的內(nèi)容和它的格式和批注，就不能簡單地應(yīng)用

選定該單元格，然后按Delete

鍵的方法了。要徹底清除單元格，可用以下方法：選定想要清除的單元格或單元格范圍；單擊“編輯”菜單

中"清除"項中的“全部”命令，這些單元格就恢復(fù)了本來面目。

2、單元格內(nèi)容的合并

根據(jù)需要，有時想把B列與C列的內(nèi)容進行合并，如果行數(shù)較少，可以直接用“剪切"和“粘貼”來

完成操作，但如果有幾萬行，就不能這樣辦了。

解決辦法是:在C列后插入一個空列(如果D列沒有內(nèi)容，就直接在D列操作)，在D1中輸入《=B1&C1",D1

列的內(nèi)容就是B、C兩列的和了。選中D1單元格，用鼠標指向單元格右下角的小方塊,當光標變成”

+”后，按住鼠標拖動光標向下拖到要合并的結(jié)尾行處，就完成了B列和C列的合并。這時先不要忙著

把B列和C列刪除，先要把D列的結(jié)果復(fù)制一下，再用“選擇性粘貼”命令，將數(shù)據(jù)粘貼到一個空列上。

這時再刪掉B、C、D列的數(shù)據(jù)。

下面是一個實際應(yīng)用的例子。用AutoCAD繪圖時，有人喜歡在EXCEL中存儲坐標點，在繪制曲線

時調(diào)用這些參數(shù)。存放數(shù)據(jù)格式為“x,y”的形式，首先在Excel中輸入坐標值，將x坐標值放入A列，y坐

標值放入到B列，然后利用"&”將A列和B列合并成C列，在C1中輸入：=A1&","&B1,此時。中的數(shù)據(jù)形

式就符合要求了，再用鼠標向下拖動C1單元格，完成對A列和B列的所有內(nèi)容的合并。

合并不同單元格的內(nèi)容，還有一種方法是利用CONCATENATE函數(shù)，此函數(shù)的作用是將若干文字串合并

到一個字串中，具體操作為^CONCATENATE（B1,C1）"。比如，假設(shè)在某一河流生態(tài)調(diào)查工作表中，B2

包含"物種”、B3包含"河鱷魚"，B7包含總數(shù)45,那么：輸入"=CONCATENATE（"本次河流生態(tài)調(diào)查結(jié)

果:",B2,B3,"為"，B7,”條/公里。"）”計算結(jié)果為：本次河流生態(tài)調(diào)查結(jié)果：河弊魚物種為

45條/公里。

3、條件顯示

我們知道，利用If函數(shù)，可以實現(xiàn)按照條件顯示。一個常用的例子，就是教師在統(tǒng)計學(xué)生成績時，希

望輸入60以下的分數(shù)時，能顯示為“不及格”；輸入60以上的分數(shù)時，顯示為"及格"。這樣的效果，利

用IF函數(shù)可以很方便地實現(xiàn)。假設(shè)成績在A2單元格中，判斷結(jié)果在A3單元格中。那么在A3單元格中輸

入公式：=if（A2<60,"不及格"，"及格"）同時，在IF函數(shù)中還可以嵌套IF函數(shù)或其它函數(shù)。

例如，如果輸入：=if（A2<60,"不及格”，if（A2<=9。，“及格"，"優(yōu)秀"））就把成績分成了三

個等級。

如果輸入=if（A2<60,“差，if（A2<=70,"中"，if（A2<9Q,“良“，“優(yōu)”）））就把成績分為了

四個等級。

再比如，公式：=if（SUM（Al:A5>0,SUM（Al:A5）,0）此式就利用了嵌套函數(shù)，意思是，當A1至A5

的和大于。時，返回這個值，如果小于0,那么就返回0。還有一點要提醒你注意：以上的符號均為半角，

而且IF與括號之間也不能有空格。

4、自定義格式

Excel中預(yù)設(shè)了很多有用的數(shù)據(jù)格式，基本能夠滿足使用的要求，但對一些特殊的要求，如強調(diào)顯示

某些重要數(shù)據(jù)或信息、設(shè)置顯示條件等，就要使用自定義格式功能來完成。Excel的自定義格式使用下面

的通用模型：正數(shù)格式，負數(shù)格式，零格式，文本格式，在這個通用模型中，包含三個數(shù)字段和一個文本

段：大于零的數(shù)據(jù)使用正數(shù)格式；小于零的數(shù)據(jù)使用負數(shù)格式；等于零的數(shù)據(jù)使用零格式；輸入單元格的

正文使用文本格式。我們還可以通過使用條件測試，添加描述文本和使用顏色來擴展自定義格式通用模型

的應(yīng)用。

（1）使用顏色要在自定義格式的某個段中設(shè)置顏色，只需在該段中增加用方括號括住的顏色名或

顏色編號。Excel識別的顏色名為：［黑色］、［紅色卜［白色卜［藍色卜［綠色卜［青色］和［洋紅］。Excel也識別

按［顏色X］指定的顏色，其中X是1至56之間的數(shù)字，代表56種顏色（如圖5）。

（2）添加描述文本要在輸入數(shù)字數(shù)據(jù)之后自動添加文本，使用自定義格式為："文本內(nèi)容"@；要在輸

入數(shù)字數(shù)據(jù)之前自動添加文本，使用自定義格式為：@"文本內(nèi)容"。@符號的位置決定了Excel輸入的數(shù)

字數(shù)據(jù)相對于添加文本的位置。

（3）創(chuàng)建條件格式可以使用六種邏輯符號來設(shè)計一個條件格式：>（大于）、>=（大于等于）、<（小

于）、<=（小于等于）、=（等于）、<>（不等于），如果你覺得這些符號不好記，就干脆使用或“>=”

號來表示。

由于自定義格式中最多只有3個數(shù)字段，Excel規(guī)定最多只能在前兩個數(shù)字段中包括2個條件測試，滿足

某個測試條件的數(shù)字使用相應(yīng)段中指定的格式，其余數(shù)字使用第3段格式。如果僅包含一個條件測試，則

要根據(jù)不同的情況來具體分析。

自定義格式的通用模型相當于下式：［>；0］正數(shù)格式；［<；0］負數(shù)格式；零格式；文本格式。下面給出

一個例子：選中一列，然后單擊"格式”菜單中的“單元格”命令，在彈出的對話框中選擇

“數(shù)字”選項卡，在“分類”列表中選擇“自定義”，然后在“類型”文本框中輸入""正

數(shù)："($#,##0.00)；”負數(shù):“($#,##0.00);"零";"文本:"@"，單擊"確定"按鈕，完成格式設(shè)置。這時如果我們

輸入“12”，就會在單元格中顯示“正數(shù)：($12.00)”，如果輸入"-0.3"，就會在單元格中顯示“負數(shù)：

($0.30)”，如果輸入“0”，就會在單元格中顯示"零"，如果輸入文本"thisisabook”，就會在單元

格中顯示“文本：thisisabook"。如果改變自定義格式的內(nèi)容，"[紅色「正

數(shù):“($#,##0.00)；|藍色「負數(shù)：”($#,##0.00);|黃色零";"文本:"@"，那么正數(shù)、負數(shù)、零將顯示為不同的顏

色。如果輸入"[Blue];[Red];[YeHow];[Green『，那么正數(shù)、負數(shù)、零和文本將分別顯示上面的顏色。

再舉一個例子，假設(shè)正在進行帳目的結(jié)算，想要用藍色顯示結(jié)余超過$50,0。0的帳目，負數(shù)值用紅色顯

示在括號中，其余的值用缺省顏色顯示，可以創(chuàng)建如下的格式：，藍色][>50000]$#,##0.00)[紅

色]卜0]($#,##0.00);$#,##0.00。"使用條件運算符也可以作為縮放數(shù)值的強有力的輔助方式，例如，如

果所在單位生產(chǎn)幾種產(chǎn)品，每個產(chǎn)品中只要幾克某化合物，而一天生產(chǎn)幾千個此產(chǎn)品，那么在編制使用預(yù)

算時，需要從克轉(zhuǎn)為千克、噸，這時可以定義下面的格式：”[>999999]#,##0,「m"噸"/>999]##」_m”千克

"；#_k"克"”可以看到，使用條件格式，千分符和均勻間隔指示符的組合，不用增加公式的數(shù)目就可以改

進工作表的可讀性和效率。

另外，我們還可以運用自定義格式來達到隱藏輸入數(shù)據(jù)的目的，比如格式"；##；0"只顯示負數(shù)和

零，輸入的正數(shù)則不顯示；格式“；；；”則隱藏所有的輸入值。自定義格式只改變數(shù)據(jù)的顯示外觀，并不

改變數(shù)據(jù)的值，也就是說不影響數(shù)據(jù)的計算。靈活運用好自定義格式功能，將會給實際工作帶來很大的方

便。

5、批量刪除空行

有時我們需要刪除Excel工作葬中的空行，一般做法是將空行一一找出，然后刪除。如果工作表的行

數(shù)很多，這樣做就非常不方便。我們可以利用“自動篩選”功能，把空行全部找到，然后一次性刪除。做

法：先在表中插入新的一個空行，然后按下Ctrl+A鍵，選擇整個工作表，用鼠標單擊”數(shù)據(jù)”菜單，選擇

"篩選"項中的"自動篩選"命令。這時在每一列的頂部，都出現(xiàn)一個下拉列表框，在典型列的下拉列表

框中選擇“空白”，直到頁面內(nèi)已看不到數(shù)據(jù)為止。

在所有數(shù)據(jù)都被選中的情況下，單擊“編輯”菜單，選擇"刪除行”命令，然后按“確定”按鈕。這

時所有的空行都已被刪去，再單擊"數(shù)據(jù)”菜單，選取“篩選“項中的“自動篩選”命令，工作表中的數(shù)

據(jù)就全恢復(fù)了。插入一個空行是為了避免刪除第一行數(shù)據(jù)。

如果想只刪除某一列中的空白單元格，而其它列的數(shù)據(jù)和空白單元格都不受影響，可以先復(fù)制此列，

把它粘貼到空白工作表上，按上面的方法將空行全部刪掉，然后再將此列復(fù)制，粘貼到原工作表的相應(yīng)位

置上。

6、如何避免錯誤信息

在Excel中輸入公式后，有時不能正確地計算出結(jié)果，并在單元格內(nèi)顯示一個錯誤信息，這些錯誤的

產(chǎn)生，有的是因公式本身產(chǎn)生的，有的不是。下面就介紹一下幾種常見的錯誤信息，并提出避免出錯的辦

法。

1)錯誤值：####含義：輸入到單元格中的數(shù)據(jù)太長或單元格公式所產(chǎn)生的結(jié)果太大，使結(jié)果在

單元格中顯示不下?；?/p>

是日期和時間格式的單元格做減法，出現(xiàn)了負值。解決辦法：增加列的寬度，使結(jié)果能夠完全顯示。如果

是由日期或時間相減產(chǎn)生了負值引起的，可以

改變單元格的格式，比如改為文本格式，結(jié)果為負的時間量。

2)錯誤值：#DIV/0!

含義：試圖除以0。這個錯誤的產(chǎn)生通常有下面幾種情況：除數(shù)為0、在公式中除數(shù)使用了空單元格或

是包含零值單元格的單元格引用。

解決辦法：修改單元格引用，或者在用作除數(shù)的單元格中輸入不為零的值。

3）錯誤值：#VALUE!含義：輸入引用文本項的數(shù)學(xué)公式。如果使用了不正確的參數(shù)或運算符，或

者當執(zhí)行自動更正公式功

能時不能更正公式，都將產(chǎn)生錯誤信息#VALUE!。解決辦法：這時應(yīng)確認公式或函數(shù)所需的運算符或參

數(shù)正確，并且公式引用的單元格中包含有效的數(shù)

值。例如，單元格C4中有一個數(shù)字或邏輯值，而單元格D4包含文本，則在計算公式=C4+D4時，系統(tǒng)不能

將文本轉(zhuǎn)換為正確的數(shù)據(jù)類型，因而返回錯誤值#VALUE!。

4）錯誤值：#REF!含義：刪除了被公式引用的單元格范圍。

解決辦法：恢復(fù)被引用的單元格范圍，或是重新設(shè)定引用范圍。

5）錯誤值：#N/A含義：無信息可用于所要執(zhí)行的計算。在建立模型時，用戶可以在單元格中輸入

#N/A,以表明正在等

待數(shù)據(jù)。任何引用含有#N/A值的單元格都將返回#N/A。

解決辦法：在等待數(shù)據(jù)的單元格內(nèi)填充上數(shù)據(jù)。

6）錯誤值：#NAME?

含義：在公式中使用了Excel所不能識別的文本，比如可能是輸錯了名稱，或是輸入了一個已刪除的

名稱，如果沒有將文字串括在雙引號中，也會產(chǎn)生此錯誤值

解決辦法：如果是使用了不存在的名稱而產(chǎn)生這類錯誤，應(yīng)確認使用的名稱確實存在；如果是名稱，

函數(shù)名拼寫錯誤應(yīng)就改正過來；將文字串括在雙引號中；確認公式中使用的所有區(qū)域引用都使用了冒號（：）。

例如：SUM（Cl：C10）?注意將公式中的文本括在雙引號中。

7）錯誤值：#NUM!含義：提供了無效的參數(shù)給工作表函數(shù)，或是公式的結(jié)果太大或太小而無法在工

作表中表示。

解決辦法：確認函數(shù)中使用的參數(shù)類型正確。如果是公式結(jié)果太大或太小，就要修改公式，使其結(jié)果

在-1X10307和1X10307之間。

8）錯誤值：#NULL!含義：在公式中的兩個范圍之間插入一個空格以表示交叉點，但這兩個范圍沒

有公共單元格。比如輸入："=SUM（A1:A1OC1:C10）”，就會產(chǎn)生這種情況。

解決辦法：取消兩個范圍之間的空格。上式可改為"=SUM（A1:A1O,Cl:C10）“

Part2:EXCEL自學(xué)資料第一集

返回首頁

自學(xué)資料第一集

1、Application.CommandBars("WorksheetMenuBarM).Enabled=false

2、cells(activecell.row,,,b,,).value，活動單元格所在行B列單元格中的值

3、SubCheckSheet。，如果當前工作簿中沒有名為kk的工作表的話，就增加一張名為kk的工作表，并將其排在

工作表從左至右順序排列的最左邊的位置，即排在第一的位置

DimshtSheetAsWorksheet

ForEachshtSheetInSheets

IfshtSheet.Name="KK"ThenExitSub

NextshtSheet

SetshtSheet=Sheets.Add(Befbre:=Shects(l))

shtSheet.Name=”KK”

EndSub

4、Sheetl.ListBoxl.List二Array(“一月“，“二月“，“三月“，”四月。'一次性增加項目

5、Sheet2.Rows(l).Value=Shect1.Rows(l).Value，將一個表中的一行全部拷貝到另一個表中

6、Subpro_cell(/將此代碼放入shcetl,則me二sheetl,主要是認識me

Me.UnprotectCells.Locked=False

Range(uD11:E11,f).Locked-True

Me.Protect

EndSub

7、Application.CommandBars(HPly**).Enabled=False'工作表標簽上快捷菜單失效

8、Subaa。'把Bl到B12單元格的數(shù)據(jù)填入cl到cl2

Fori=1To12

Range(uC"&i)=Range(”B"&i)Next

i

EndSub

9、ActivcCell.AddComment

Selection.Font.Size二17在點選的單元格插入批注，字體為12號

10^PrivateSubWorksheet_BcforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)Cancel二True

EndSub

11ScrollArea屬性

參閱應(yīng)用于示例特性以A1樣式的區(qū)域引用形式返回或設(shè)置允許滾動的區(qū)域。用戶不能選定滾動區(qū)域之外

的單元格。String類型，可讀寫。

說明

可將本屬性設(shè)置為空字符串(”“)以允許對整張工作表內(nèi)所有單元格的選定。

示例

本示例設(shè)置第一張工作表的滾動區(qū)域。

Worksheets⑴.ScrollArea=Ma1:f10u

12\ifapplication.max([al:e1])=10thenmsghox1'"

commandbutton1.enabled=false

El最大的數(shù)值達到10時，自動彈出對話框，并凍結(jié)按鈕

12、本示例將更改的單元格的顏色設(shè)為藍色。

PrivateSubWorksheet_Change(ByValTargetasRange)

Target.Font.Colorlndex=5

EndSub

13、Subtest。'求和

DimmgAsRange,rng2AsRange

ForEachrngInActiveSheet.UsedRange.Columns

Setrng2=Range(Cells(l,rng.Column),Cells(Cells(65536,rng.Column).End(xlUp).Row,mg.Column))

rng2.Cells(rng2.Cells.Count).Offset(l,0)=WorksheetFunction.Sum(rng2)Nextrng

EndSub

14、將工作簿中的全部n張工作表都在sheetl中建上鏈接Sub

test2()

DimPtAsRangeDim

iAsIntegerWith

Sheetl

SetPt=.Rangcfar1)

Fori=2ToThisWorkbook.Worksheets.Count

.Hyperlinks.AddAnchor:=Pt,Address:=HK,SubAddress:=Workshcets(i).Name&"!Al"SetPt-

Pt.Offset。，0)

Nexti

EndWithEnd

Sub

15、保存所有打開的工作簿，然后退出MicrosoftExcel。For

EachwInApplication.Workbooks

w.SaveNextw

Application.Quit

16、讓form標題欄上的關(guān)閉按鈕失效

PrivateSubUserForm_Quen'Close(CancelAsInteger,CloseModeAsInteger)IfCIoseMode

<>1ThenCancel=True

EndSub

17、Subcountsh(X獲得工作表的總數(shù)

MsgBoxSheets.Count

EndSub

18、SubIE。'打開個人網(wǎng)頁

/XctiveWorkbook.FoIlowHyperlinknabout:blankHSendKeys

,,{F4}{ENTER}u,TrueEndSub

19、SubdelbackO一次性刪除工作簿中所有工作表的背景For

EachshtShcetInSheets

shtSheet.SetBackgroundPictureFilename:=""Next

shtSheet

EndSub

20、同］.formula二"二bl+c1”'Al中設(shè)定公式為=B1+C1

21、PrivateSubCommandButtonl_ClickO*4^Al到C6中大于二3的數(shù)依次放入E列DimiAs

Long

r=1

ForEachiInRangef'al:c6")

Ifi>=3TlienCells(r,5)=i:r=r+1

Next

EndSub

22、PrivateSubWorkbook_SheetChange(ByValShAsObject,ByVaiTargetAsRange)'顯示帶數(shù)字的表名

b=Split(Sh.Name,On

ErrorGoToss

num=CInt(Left(b(l),Len(b⑴)-1))If

num>=1Andnum<20Then

MsgBoxSh.Name

EndIf

ExitSub

ss:

MsgBox,'error",16,End

Sub

23、SubTes。選擇所有工作表名以“業(yè)報”開頭的工作表或頭兩個字是業(yè)報的報表名引用Set

Sh二ActiveSheet

IFI>eft(Sh.Name,2)="業(yè)報"Then*或iflike”業(yè)報*"then

MsgBox"你成功了”，64,““End

If

EndSub

24、1.建立文件夾的方法

MkDir"D:\Music"

2.打開文件夾的方法

ActiveWorkbook.FollowlIyperlinkAddress:="D:\Music”,NewWindow:=Truc

25、在當前工作表翻頁Application.SendKeys

”{PGUP}”,TrueApplication.SendKeys

',{PGDN}",True

或者

ActiveWindow.I.argcScronDown:=1

ActivcWindow.I^argeScrollDown:=-l

26、當Target二叫小計”時如何寫,*代表任何字符。

i￡instr(target.value,"小計')v>0then

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

IFTarget.ValueLike"*小計"ThenMsgBox"OK"End

Sub

27、ActiveCell.FormulaRlCl="二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“表示行表示列。R[l]表示

“AD6+1行”,C表示“列沒有變化，就是同列"那么：R[1]C就表示AD7同理，R[14]表

示AD6+14行，表示：AD20。以此類推。

28、PrivateSubCommandButton^ClickO^Al到C6中大于二3的數(shù)依次放入E列DimiAs

Long

DimiRngAsRange

ForEachiRngInSheets(l).Range(*'a1:c6,r)IF

iRng.Value>=3Then

i=i+1

Sheets⑴.Range("E"&i).Value=iRng.Value

EndIf

Next

EndSub

29、工作表中的窗體按鈕禁用后，按鈕形狀不變，字體不變，從外表上無法看出其已禁用，如何設(shè)置屬性

使其像控件按紐那樣明顯的禁用？

WithActiveSheetButtons(l)

.Enabled=False

ActiveShcet.Shapcs(.Caption).DrawingC)bject.Font.Colorlndcx-15

EndWith

便原的方法

WithActiveShect.Buttons(l)

.Enabled=True

ActivcSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex=xlAutomatic

EndWith

30、PrivateSubWorksheet_SeleccionChange(ByValTargetAsRange，選定A1時要輸入密碼IF

Targpt.Address="$A$1"Then

A=InputBox("請輸入密碼"，"officefans")

IfA=1Then[Al].SelectElse[A2].Select

EndIf

EndSub

31、如何將工作簿中的命名單元格成批刪除！

DimItemAsName

ForEachItemInActiveWorkbook.Names

Item.Delete

NextItem

32、平時只能看到表1,如要看表2和表3,只能通過表1的鏈接打開，且表2和表3回到表1后，又不可

見。

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)If

Target.Address="$A$3"Then，當點擊"$A$3"單元格時…

Sheet2.Visible=1'取消隱藏

Sheet2.Activate，激活

ActiveSheet.Rangc(MAl'*).Select

EndIf

IfTarget.Address="$A$6'Then

Sheet3.Visible=1，取消隱藏

Sheet3.Activate

ActiveSheet.Range("A1'*).SelectEndIf

EndSub

33、將a2單元格內(nèi)容替換為al內(nèi)容ActiveCell.Replace

What=[a2],Replacements[al]

34、如果是要填入名稱，則:

PrivateSubWorksheet_Se]ectionChange(ByValTargetAsRange)

Selection.Value=ComboBoxl.column(l)

EndSub

如果是要填入代碼和名稱的組合:

PrivateSubWorksheet_SclectionChangc(ByValTargetAsRange)Selection.Value=

cstr(ComboBoxl.column(0))4-n'^comboboxl.column(1)EndSub

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

Selection.Value=ComboBoxl.Value

EndSub

PrivateSubWorkshcet_SelectionChange(ByValTargetAsRange)

*target.row代表行號

^arget.column代表列號

i=target.row，獲取行號

j=target.column'獲取列號

EndSub

35、當激活工作表時，本示例對Al:A10區(qū)域進行排序。

PrivateSubWorkshcet_ActivateO

Range("al:alOM).SortKeyl:=Range("al°),Order:=xk\scending

EndSub

36、BeforePrint事件參閱應(yīng)用于示例特性在打印指定工作簿(或者其中的任何內(nèi)容)

之前，產(chǎn)生此事件。PrivateSubWorkbook_BcforePrint(CancelAsBoolean)

Cancel當事件產(chǎn)生時為False。如果該事件過程將本參數(shù)設(shè)為True,則當該過程運行結(jié)束之后不打

印工作簿。

示例本示例在打印之前對當前活動工作簿的所有工作表重新計

算。PrivateSubWorkbook_BeforcPrint(CancelAsBoolean)

ForEachwkinWorksheets

wk.Calculate

Next

EndSub

37、Open事件參閱應(yīng)用于示例特性打開工作簿時，將

產(chǎn)生本事件。PrivateSubWorkbook.OpenQ

示例

每次打開工作簿時，本示例都最大化MicrosoftExcel窗口。

PrivateSubWorkbook_OpenQ

Application.WindowState=xlMaximizcd

EndSub

38、ActiveSheet屬性參閱應(yīng)用于示例特性返回一對象，該對象代表活動工作簿中的，或者指定的窗口或工

作簿中的活動工作表

(最上面的工作表)。只讀。如果沒有活動的工作表，則返回Nothingo

說明

如果未給出對象識別符，本屬性返回活動工作簿中的活動工作表。如果某一工作簿在若干個窗口中

出現(xiàn)，那么該工作簿的ActiveSheet屬性在不同窗口中可能不同。示例

本示例顯示活動工作表的名稱。

MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name

39、Calculate方法參閱應(yīng)用于示例特性計算所有打開的工作簿、工作簿中的一張?zhí)囟ǖ墓ぷ鞅砘蛘吖ぷ鞅?/p>

中指定區(qū)域的單元格，如下表所示：

要計算依照本示例

所有打開的工作簿Application.Calculate(或只是Calculate)指定工

作表指定工作表

指定區(qū)域Worksheets(l).Rows(2).Calculate

expression.Calculate

expression對于Application對象可選，對于Worksheet對象和Range對象必需。該表達式返回“應(yīng)

用于”列表中的對象之一。

示例

本示例計算Sheetl已用區(qū)域中A列、B列和C列的公式。

Worksheetsf'Sheetl,').UsedRangc.Column$(*,A:C").Calculate程序的核

心是算法問題

40、End屬性

參閱應(yīng)用于示例特性返回一個Range對象，該對象代表包含源區(qū)域的區(qū)域尾端的單元格。等同于按鍵End+向

上鍵、End+向下鍵、End+向左鍵或End+向右鍵。Range對象，只讀。

expression.End(Direction)

expression必需。該表達式返回“應(yīng)用于”列表中的對象之一。

DirectionXlDirection類型，必需o所要移動的方向。XlDirection

可為XlDirection常量之一。

xlDown

xlToRight

xlToLeft

xlUp

示例

本示例選定包含單元格B4的區(qū)域中B列頂端的單元格。

Range("B4)End(xlUp).Select

本示例選定包含單元格B4的區(qū)域中第4行尾端的單元格。

Range,B4')End(xlToRight).Select

本示例將選定區(qū)域從單元格B4延伸至第四行最后一個包含數(shù)據(jù)的單元格。

Worksheets(*'Sheetl").Activate

Range(HB4u,Range("B4,,).End(xlToRight)).Select

41、應(yīng)用于CellFormat和Range對象的Locked屬性。

本示例解除對Shcctl中A1:G37區(qū)域單元格的鎖定，以便當該工作表受保護時也可對這些單元格進行修

改。

WorksheetsfSheetl^.Rangef'Al:G37n).Locked=False

Worksheets("Sheetl").Protect

42、Next屬性

參閱應(yīng)用于示例特性返回一個Chart、Range或Worksheet對象，該對象代表下一個工作表或單元格。只讀。

說明

如果指定對象為區(qū)域，則本屬性的作用是仿效Tab,但本屬性只是返回下一單元格，并不選定它。在處于

保護狀態(tài)的工作表中，本屬性返回下一個未鎖定單元格。在未保護的工作表中，本屬性總是返回緊靠指定

單元格右邊的單元格。

示例

本示例選定sheetl中下一個未鎖定單元格。如果sheet1未保護，選定的單元格將是緊靠活動單元格右邊

的單元格。

Worksheets("Sheet1").Activate

ActiveCell.Next.Select

43、想通過target來設(shè)置(Al：A10)區(qū)域內(nèi)有改動，就發(fā)生此事件。不知道如何

iftargetrow=1andtarget,column＜=10then

Sub列舉菜單項0

Dimr,s,iAsIntegerr=

1

Fori=1ToCommandBars.Count

ActiveSheet.CeIls(r,1)="CommandBarsf'&i&M).Name:n&CommandBars(i).Namer=r+1

Fors=1ToCommandBars(i).Controls.Count

ActiveSheet.Cells(r,1)=s&"、"&CommandBars(i).Controls(s).Captionr=r+1

Next

Next

EndSub

44＞本示例設(shè)置MicrosoftExcel每當打開包含鏈接的文件時，詢問用戶是否更新鏈接。

Application.AskToUpdateLinks=True

45＞自定義函數(shù)

PublicFunctionNowlQDim

string!AsStringstringl=

VBA.Date

Nowl=stringl

EndFunction

46、復(fù)制

Subcopy10

Sheet2.Range(,'C5:C10").CopySheetl.Range(MC5:C10H)EndSub

47、如何統(tǒng)計表中sheet的個數(shù)？

msgboxsheets.count

Columns("G:G").Sclect

48>Selection.EntireColumn.Hidden=True這樣隱藏有個毛病，如何解決？如果A1:G1單

元格合并的話，就把A：G列均隱藏了。ColumnsfGzG^.EntireColumn.Hidden=True

49、在VBA中引用excel函數(shù)的方法

1).Worksheets,Sheet，.Range("Al”).Formula=,,=SAS4+SAS10M

2).Sheetl.CeUs(l,l).Formula="二"&Sheets(iii).Name&”!R1C4”在宏中用

R1C1方式寫時表格1的Al中會在寫為“二Sheet2!$D$1”用這種方式,想用什

么函數(shù)就用什么函數(shù).

50、選定下(上)一個工作表

sheets(activesheet.index-l).select

sheets(activcsheet.index+l).select

51、PrivateSubWorkbook_OpenQActiveWindow.DisplayWorkbookTabs=False'取消工作表標簽

Application.CommandBarsC'Sheet'^.ControlsQ).Enabled=False'格式_工作表不能重命名

Application.CommandBars.FindControl(ID:=889).Enabled二False，右鍵菜單不能重命名

EndSub

52、[a65536].End(xlUp，A列從下往上第一個非空的單元格

53、Submacro。

Setrng=Ran器(5尸13')定義RNG為一個單元格區(qū)域

ForEachcelInmg定義CEL為RNG中的一個任一單元格

colo=cel.1nterior.Colorindex定義COLO為單元格CEL的填充顏色

IFcolo<>-4142Then如果CQLQ的值不等于-4142

iR=[b65536].End(xlUp).Row+1IR等于B列數(shù)據(jù)區(qū)域的行數(shù)+1

If[a65535].End(xlUp).Value<>Cells(cel.Row,2)ThenCells(iR,1)=CeUs(cel.Row,2)如果A列最后一個非

空值單元格不等于CeUs(ceLRow,2)的值那么單元格Cells(iR,1)的值等于Ceils(cel.Ro\v,2)的值

CEL.ROW是C11:F13中任意單元格的行號

Cells(iR,2)=Cells(10,cel.Column)

Cells(iR,3)=cel.Value

Cclls(iR,4)=Hf(colo=36,"Yellow",',Rcd,')Cclls(iR,4)的值如果colo=36那么值為"Yellow：否則值

為“RED”

next

EndSub

54、PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByVaiTargetAsRange)

‘**********運行數(shù)據(jù)日志記錄**********Dim

rngAsRange

IfActiveSheet.Name<>"主界面"AndActiveSheetName<>"目錄索引"Then

ForEachrngInTarget.Cells

Changecell=ActiveSheet.Name&",單元格："&rng.Address（0,0）&",更改為：”&rng.value

&*'o更改時間：”&Now

CritOrAddtext

Next

EndIf

EndSub

55、ActiveSheet.Unprotect，撤銷當前工作表保護

IfActiveSheet.Name<>"主界面"AndActiveSheet.Namc<>"目錄索弓AndTargetRow>3Then,

行變色

OnErrorResumeNext

[ChangColor_With].FormatConditions.Dclcte

Target.EntireRow.Name二nChangtolor_With"With

|ChangColor_With|.FormatConditions

.Delete

.AddxIExpression,,“TRUE”

.Item（1）.Interior.Colorindex=4

EndWithEndIf

ActiveSheet.Protect

56、在Cl中弄個下拉無表,實際是有效性，你可以選擇A1:A4為Cl單元格有效性的序列數(shù)據(jù)源，如果說Cl不與

ALA4在同一表，則不能這么用，應(yīng)當先對A1:A4命名，然后把數(shù)據(jù)源改為名稱.

57、自動增加工作表

進入宏命令編輯窗口，在Sub自動增加工作表0命令后依次鍵入如下宏命令內(nèi)容：

Dimi&,userinto

i=0

userinto=InputBox（"輸入插入工作表數(shù)量：M）Tf

IsNumeric（userinto）二TrueThen

DoUntili=userinto

Workshcets.Addi=

i+1

LoopEnd

IfEnd

Sub

58、方法一（共享級鎖定）：

1、先對EXCEL文件進行一般的VBAProject"工程密碼保護。

2、打開要保護的文件，選擇：工具一，保護一，保護并共享工作簿一，以追蹤修訂方式共享->輸入密

碼->保存文件。

完成后，當你打開"VBAProject”工程屬性時，就將會提示："工程不可看！

“方法二（推薦，破壞型鎖定）：

用16進制編輯工具，如WinHex、Ultraedit-32（可到此下裁）等，再歷害點的人完全可以用debug命令來做用

以上軟件打開EXCEL文件，查找定位以下地方：

ID="{00000000-0000-0000-0000-000000000000}"注：實際顯示不會全部為。此時，

你只要將其中的字節(jié)隨便修改一下即可。保存再打開，就會發(fā)現(xiàn)大功告成！

當然，在修改前最好做好你的文檔備份。至于恢復(fù)只要將改動過的地方還原即可(只要你記住了呵呵)。

順便說一句，這種方法仍然是可破解的，因為加密總是相對的。

59、SubAddCommentsQ

'自勤學(xué)tAcdveSheet所有有公式格位加上考主解

SetRG=Cells.SpecialCells(xlCellTypeFormulas)ForEachc

InRG

c.AddCommcnt

c.Comment.TextText:=c.Formula

Nextc

EndSub

SubDc_Commcnts()

'自勤消除所有者主解

SetRG二Cells.SpecialCells(xlCeHTyr]3eFormulas)ForEachc

InRG

c.ClearComments

Nextc

EndSub

60、如何在Excel里使用定時器

2002-3-1220:53:27動網(wǎng)先鋒

用過Excel97里的加載宏“定時保存”嗎？可惜它的源程序是加密的，現(xiàn)在就上傳一篇介紹實現(xiàn)它的

文檔。

在Office里有個方法是application.ontime,具體函數(shù)如下：expression.OnTime(EarliestTime,

Procedure,LatestTime,Schedule)如果想進一步了解，請參閱Excel的幫助。這個函數(shù)是用來安排一個

過程在將來的特定時間運行，(可為某個日期的指定時間，也可為指定的時

間段之后)。通過這個函數(shù)我們就可以在Excel里編寫自己的定時程序了。下面就舉兩個例子來說明它。

1.在下午17:00:00的時候顯示一個對話框。Sub

Run_it()

Application.OnTimeTimeValue("17:00:00,f),"Sho\v_my_msg"

’設(shè)置定時器在17:00:00激活，激活后運行Show_my_msgoEnd

Sub

SubShow_my_msgQ

msg=MsgBox("現(xiàn)在是17:00:00!”,vblnformation,"自定義信息")EndSub

2.模仿Excel97里的"自動保存宏”，在這里定時5秒出現(xiàn)一次Sub

auto_openQ

MsgBox”歡迎你,在這篇文檔里，每5秒出現(xiàn)一次保存的提示！"，vblnformation,”請注意！"Call

runtimer，打開文檔時自動運行

EndSub

SubruntimerQ

Application.OnTimeNow+TimcValue("00:00:05'),"savcit”

，Now+TimeValue(n00:l5:00")指定在當前時間過5秒鐘開始運行Saveit這個過程。EndSub

SubSaveltQ

msg=MsgBox("朋友，你已經(jīng)工作很久了，現(xiàn)在就存盤嗎？"&Chr(13)_

&”選擇是：立刻存盤”&Chr(13)_

&”選擇否：暫不存盤”&Chr(13)_

一”選擇取消:不再出現(xiàn)這個提示“，vbYesNoCancel+64,”休息一會吧！”)

’提示用戶保存當前活動文檔。

Ifmsg=vbYesThenActiveWorkbook.SaveElseIfmsg=vbCancelThenExitSub

Callruntimer，如果用戶沒有選擇取消就再次調(diào)用Runtim