Excel使用技巧大全基礎(chǔ)版

1、基本操作技巧薈萃1e x c e l2010基本操作技巧薈萃2目錄 1: excel使用六技巧.2 2: excel自學資料第一集.6 3: excel自學資料第二集.51 4: 一天一個小技巧.99 5: excel技巧匯總.108 6: excel基礎(chǔ)知識技巧在線教程.131 7: excel運用技巧匯總.141 8: excel操作-基礎(chǔ)篇.168 9: excel問題集錦.212 基本操作技巧薈萃3基本操作技巧薈萃4基本操作技巧薈萃51:1: excelexcel使用六技巧返回首頁 1.編輯技巧 （1） 分數(shù)的輸入 如果直接輸入“1/5”，系統(tǒng)會將其變?yōu)椤?月5日”，解決辦法是：先輸入

2、“0”，然后輸入空格，再輸入分數(shù)“1/5”。 （2） 序列“001”的輸入 如果直接輸入“001”，系統(tǒng)會自動判斷001為數(shù)據(jù)1，解決辦法是：首先輸入“”（西文單引號），然后輸入“001”。 （3） 日期的輸入 如果要輸入“4月5日”，直接輸入“4/5”，再敲回車就行了。如果要輸入當前日期，按一下“ctrl+；”鍵。 （4） 填充條紋 如果想在工作簿中加入漂亮的橫條紋，可以利用對齊方式中的填充功能。先在一單元格內(nèi)填入“*”或“”等符號，然后單擊此單元格，向右拖動鼠標，選中橫向若干單元格，單擊“格式”菜單，選中“單元格”命令，在彈出的“單元格格式”菜單中，選擇“對齊”選項卡，在水平對齊下拉列表中

3、選擇“填充”，單擊“確定”按鈕。 （5） 多張工作表中輸入相同的內(nèi)容 幾個工作表中同一位置填入同一數(shù)據(jù)時，可以選中一張工作表，然后按住ctrl鍵，再單擊窗口左下角的sheet1、sheet2.來直接選擇需要輸入相同內(nèi)容的多個工作表，接著在其中的任意一個工作表中輸入這些相同的數(shù)據(jù)，此時這些數(shù)據(jù)會自動出現(xiàn)在選中的其它工作表之中。輸入完畢之后，再次按下鍵盤上的ctrl鍵，然后使用鼠標左鍵單擊所選擇的多個工作表，解除這些工作表的聯(lián)系，否則在一張表單中輸入的數(shù)據(jù)會接著出現(xiàn)在選中的其它工作表內(nèi)。 （6） 不連續(xù)單元格填充同一數(shù)據(jù) 選中一個單元格，按住ctrl鍵，用鼠標單擊其他單元格，就將這些單元格全部都選

4、中了。在編輯區(qū)中輸入數(shù)據(jù)，然后按住ctrl鍵，同時敲一下回車，在所有選中的單元格中都出現(xiàn)了這一數(shù)據(jù)。 （7） 利用ctrl*選取文本 如果一個工作表中有很多數(shù)據(jù)表格時，可以通過選定表格中某個單元格，然后按下ctrl*鍵可選定整個表格。ctrl*選定的區(qū)域為：根據(jù)選定單元格向四周輻射所涉及到的有數(shù)據(jù)單元格的最大區(qū)域。這樣我們可以方便準確地選取數(shù)據(jù)表格，并能有效避免使用拖動鼠標方法選取較大單元格區(qū)域時屏幕的亂滾現(xiàn)象。 （8） 快速清除單元格的內(nèi)容 如果要刪除內(nèi)容的單元格中的內(nèi)容和它的格式和批注，就不能簡單地應(yīng)用選定該單元格，然后按delete鍵的方法了。要徹底清除單元格,可用以下方法：選定想要清除

5、的單元格或單元格范圍；單擊“編輯”菜單中“清除”項中的“全部”命令，這些單元格就恢復了本來面目。 2、單元格內(nèi)容的合并 根據(jù)需要，有時想把b列與c列的內(nèi)容進行合并，如果行數(shù)較少，可以直接用“剪切”和“粘貼”來完成操作，但如果有幾萬行，就不能這樣辦了。 解決辦法是：在c列后插入一個空列（如果d列沒有內(nèi)容，就直接在d列操作），在1中輸入“=b1&c1”，d1列的內(nèi)容就是b、c兩列的和了。選中d1單元格，用鼠標指向單元格右下角的小方塊“”，當光標變成后，按住鼠標拖動光標向下拖到要合并的結(jié)尾行處，就完成了b列和c列的合并。這時先不要忙著基本操作技巧薈萃6把b列和c列刪除，先要把d列的結(jié)果復制一

6、下，再用“選擇性粘貼”命令，將數(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，此時c1中的數(shù)據(jù)形式就符合要求了，再用鼠標向下拖動c1單元格，完成對a列和b列的所有內(nèi)容的合并。 合并不同單元格的內(nèi)容，還有一種方法是利用concatenate函數(shù)，此函數(shù)的作用是將若干文字串合并

7、到一個字串中，具體操作為“=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)計學生成績時，希望輸入60以下的分數(shù)時，能顯示為“不及格”；輸入60以上的分數(shù)時，顯示為“及格。這樣的效果，利用if函數(shù)可以很方便地實現(xiàn)。 假設(shè)成績在a2單元格中，判斷結(jié)果在a3單元格中

8、。那么在a3單元格中輸入公式： =if（a260，“不及格”，“及格”） 同時，在if函數(shù)中還可以嵌套if函數(shù)或其它函數(shù)。 例如，如果輸入： =if（a260，“不及格”，if（a2=90，“及格”，“優(yōu)秀） 就把成績分成了三個等級。 如果輸入 =if（a260，“差，if（a2=70，“中”，if（a20，sum（a1：a5），0） 此式就利用了嵌套函數(shù)，意思是，當a1至a5的和大于0時，返回這個值，如果小于0，那么就返回0。 還有一點要提醒你注意：以上的符號均為半角，而且if與括號之間也不能有空格。 4、自定義格式 excel中預設(shè)了很多有用的數(shù)據(jù)格式，基本能夠滿足使用的要求，但對一些特殊

9、的要求，如強調(diào)顯示某些重要數(shù)據(jù)或信息、設(shè)置顯示條件等，就要使用自定義格式功能來完成。 excel的自定義格式使用下面的通用模型：正數(shù)格式，負數(shù)格式，零格式，文本格式，在這個通用模型中，包含三個數(shù)字段和一個文本段：大于零的數(shù)據(jù)使用正數(shù)格式；小于零的數(shù)據(jù)使用負數(shù)格式；等于零的數(shù)據(jù)使用零格式；輸入單元格的正文使用文本格式。 我們還可以通過使用條件測試，添加描述文本和使用顏色來擴展自定義格式通用模型的應(yīng)用。 （1）使用顏色 要在自定義格式的某個段中設(shè)置顏色，只需在該段中增加用方括號括住的顏色名或顏色編號。excel識別的顏色名為：黑色、紅色、白色、藍色、綠色、青色和洋紅。excel也識別按顏色x指定的

10、顏色，其中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)段中指定的格

11、式，其余數(shù)字使用第3段格式。如果僅包含一個條件測試，則要根據(jù)不同的情況來具體分析。 自定義格式的通用模型相當于下式：；0正數(shù)格式；50000 $#,#0.00_);紅色999999#,#0,_m噸;999#,_k_m千克;#_k克” 可以看到，使用條件格式，千分符和均勻間隔指示符的組合，不用增加公式的數(shù)目就可以改進工作表的可讀性和效率。 另外，我們還可以運用自定義格式來達到隱藏輸入數(shù)據(jù)的目的，比如格式；0只顯示負數(shù)和零，輸入的正數(shù)則不顯示；格式“；”則隱藏所有的輸入值。 自定義格式只改變數(shù)據(jù)的顯示外觀，并不改變數(shù)據(jù)的值，也就是說不影響數(shù)據(jù)的計算。靈活運用好自定義格式功能，將會給實際工作帶來很大

12、的方便。 5、批量刪除空行 有時我們需要刪除excel工作薄中的空行，一般做法是將空行一一找出，然后刪除。如果工作表的行數(shù)很多，這樣做就非常不方便。我們可以利用“自動篩選”功能，把空行全部找到，然后一次性刪除。 做法：先在表中插入新的一個空行，然后按下ctrl+a鍵，選擇整個工作表，用鼠標單擊“數(shù)據(jù)”菜單，選擇“篩選”項中的“自動篩選”命令。這時在每一列的頂部，都出現(xiàn)一個下拉列表框，在典型列的下拉列表框中選擇“空白”，直到頁面內(nèi)已看不到數(shù)據(jù)為止。 在所有數(shù)據(jù)都被選中的情況下，單擊“編輯”菜單，選擇“刪除行”命令，然后按“確定”按鈕。這時所有的空行都已被刪去，再單擊“數(shù)據(jù)”菜單，選取“篩選”項中

13、的“自動篩選”命令，工作表中的數(shù)據(jù)就全恢復了。插入一個空行是為了避免刪除第一行數(shù)據(jù)。 如果想只刪除某一列中的空白單元格，而其它列的數(shù)據(jù)和空白單元格都不受影響，可以先復制 此列，把它粘貼到空白工作表上，按上面的方法將空行全部刪掉，然后再將此列復制，粘貼到原工作表的相應(yīng)位置上。 6、如何避免錯誤信息 在excel中輸入公式后，有時不能正確地計算出結(jié)果，并在單元格內(nèi)顯示一個錯誤信息，這些錯誤的產(chǎn)生，有的是因公式本身產(chǎn)生的，有的不是。下面就介紹一下幾種常見的錯誤信息，并提出避免出錯的辦法。 ）錯誤值： 含義：輸入到單元格中的數(shù)據(jù)太長或單元格公式所產(chǎn)生的結(jié)果太大，使結(jié)果在單元格中顯示不下?；蚴侨掌诤蜁r間

14、格式的單元格做減法，出現(xiàn)了負值。 解決辦法：增加列的寬度，使結(jié)果能夠完全顯示。如果是由日期或時間相減產(chǎn)生了負值引起的，可以改變單元格的格式，比如改為文本格式，結(jié)果為負的時間量。 ）錯誤值：div/0! 含義：試圖除以0。這個錯誤的產(chǎn)生通常有下面幾種情況：除數(shù)為0、在公式中除數(shù)使用了空單元格或是包含零值單元格的單元格引用。 解決辦法：修改單元格引用，或者在用作除數(shù)的單元格中輸入不為零的值。 基本操作技巧薈萃8）錯誤值：value! 含義：輸入引用文本項的數(shù)學公式。如果使用了不正確的參數(shù)或運算符，或者當執(zhí)行自動更正公式功能時不能更正公式，都將產(chǎn)生錯誤信息value!。 解決辦法：這時應(yīng)確認公式或函

15、數(shù)所需的運算符或參數(shù)正確，并且公式引用的單元格中包含有效的數(shù)值。例如，單元格c4中有一個數(shù)字或邏輯值，而單元格d4包含文本，則在計算公式=c4d4時，系統(tǒng)不能將文本轉(zhuǎn)換為正確的數(shù)據(jù)類型，因而返回錯誤值value!。 ）錯誤值：ref! 含義：刪除了被公式引用的單元格范圍。 解決辦法：恢復被引用的單元格范圍，或是重新設(shè)定引用范圍。 ）錯誤值：n/a 含義：無信息可用于所要執(zhí)行的計算。在建立模型時，用戶可以在單元格中輸入#n/a，以表明正在等待數(shù)據(jù)。任何引用含有#n/a值的單元格都將返回#n/a。 解決辦法：在等待數(shù)據(jù)的單元格內(nèi)填充上數(shù)據(jù)。 ）錯誤值：name? 含義：在公式中使用了excel所不

16、能識別的文本，比如可能是輸錯了名稱，或是輸入了一個已刪除的名稱，如果沒有將文字串括在雙引號中，也會產(chǎn)生此錯誤值 解決辦法：如果是使用了不存在的名稱而產(chǎn)生這類錯誤，應(yīng)確認使用的名稱確實存在；如果是名稱，函數(shù)名拼寫錯誤應(yīng)就改正過來；將文字串括在雙引號中；確認公式中使用的所有區(qū)域引用都使用了冒號（：）。例如：sum（c1：c10）。 注意將公式中的文本括在雙引號中。 ）錯誤值：num! 含義：提供了無效的參數(shù)給工作表函數(shù)，或是公式的結(jié)果太大或太小而無法在工作表中表示。 解決辦法：確認函數(shù)中使用的參數(shù)類型正確。如果是公式結(jié)果太大或太小，就要修改公式，使其結(jié)果在-110307和110307之間。 ）錯誤

17、值：null！ 含義：在公式中的兩個范圍之間插入一個空格以表示交叉點，但這兩個范圍沒有公共單元格。比如輸入：“=sum(a1:a10 c1:c10)”，就會產(chǎn)生這種情況。 解決辦法： 取消兩個范圍之間的空格。上式可改為“=sum(a1:a10 ,c1:c10)” 基本操作技巧薈萃92:2: excelexcel自學資料第一集返回首頁 自學資料第一集 1、application.commandbars(worksheet menu bar).enabled = false 2、cells(activecell.row,b).value 活動單元格所在行b列單元格中的值 3、sub checksh

18、eet()如果當前工作薄中沒有名為kk的工作表的話，就增加一張名為kk的工作表，并將其排在工作表從左至右順序排列的最左邊的位置，即排在第一的位置 dim shtsheet as worksheet for each shtsheet in sheets if shtsheet.name = kk then exit sub next shtsheet set shtsheet = sheets.add(before:=sheets(1) shtsheet.name = kk end sub 4、sheet1.listbox1.list = array(一月, 二月, 三月, 四月)一次性增加項

19、目 5、sheet2.rows(1).value = sheet1.rows(1).value將一個表中的一行全部拷貝到另一個表中 6、sub pro_cell()將此代碼放入sheet1,則me=sheet1,主要是認識me me.unprotect cells.locked = false range(d11:e11).locked = true me.protect end sub 7、application.commandbars(ply).enabled = false工作表標簽上快捷菜單失效 8、sub aa()把b1到b12單元格的數(shù)據(jù)填入c1到c12 for i = 1 to

20、12 range(c & i) = range(b & i) next i end sub 9、activecell.addcomment selection.font.size = 12在點選的單元格插入批注，字體為12號 10、private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean) cancel = true end sub 11、scrollarea 屬性 參閱應(yīng)用于示例特性以 a1 樣式的區(qū)域引用形式返回或設(shè)置允許滾動的區(qū)域。用戶不能選定滾動區(qū)域之外的單元格。st

21、ring 類型，可讀寫。 說明 可將本屬性設(shè)置為空字符串 () 以允許對整張工作表內(nèi)所有單元格的選定。 示例 本示例設(shè)置第一張工作表的滾動區(qū)域。 worksheets(1).scrollarea = a1:f10 基本操作技巧薈萃1012if application.max(a1:e1)=10 then msgbox commandbutton1.enabled=false a1e1最大的數(shù)值達到10時，自動彈出對話框，并凍結(jié)按鈕 12、本示例將更改的單元格的顏色設(shè)為藍色。 private sub worksheet_change(byval target as range) target.f

22、ont.colorindex = 5 end sub 13、sub test()求和 dim rng as range, rng2 as range for each rng in activesheet.usedrange.columns set rng2 = 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) next rng e

23、nd sub 14、將工作薄中的全部n張工作表都在sheet1中建上鏈接 sub test2() dim pt as range dim i as integer with sheet1 set pt = .range(a1) for i = 2 to thisworkbook.worksheets.count .hyperlinks.add anchor:=pt, address:=, subaddress:=worksheets(i).name & !a1 set pt = pt.offset(1, 0) next i end with end sub 15、保存所有打開的工作簿，

24、然后退出 microsoft excel。 for each w in application.workbooks w.save next w application.quit 16、讓form標題欄上的關(guān)閉按鈕失效 private sub userform_queryclose(cancel as integer, closemode as integer) if closemode 1 then cancel = true end sub 17、sub countsh()獲得工作表的總數(shù) msgbox sheets.count end sub 18、sub ie()打開個人網(wǎng)頁 activ

25、eworkbook.followhyperlink about:blank sendkeys fenter, true end sub 基本操作技巧薈萃1119、sub delback()一次性刪除工作簿中所有工作表的背景 for each shtsheet in sheets shtsheet.setbackgroundpicture filename:= next shtsheet end sub 20、a1.formula=b1+c1a1中設(shè)定公式為=b1+c1 21、private sub commandbutton1_click()將a1到c6中大于=3的數(shù)依次放入e列 dim i

26、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 22、private sub workbook_sheetchange(byval sh as object, byval target as range)顯示帶數(shù)字的表名 b = split(sh.name, () on error goto ss num = cint(left(b(1), len(b(1) - 1) if num = 1 and num 20 then msgbox sh.name en

27、d if exit sub ss: msgbox error, 16, end sub 23、sub test()選擇所有工作表名以業(yè)報開頭的工作表或頭兩個字是業(yè)報的報表名引用 set sh = activesheet if left(sh.name, 2) = 業(yè)報 then 或if like業(yè)報*then msgbox 你成功了, 64, end if end sub 24、1.建立文件夾的方法 mkdir d:music 2.打開文件夾的方法 activeworkbook.followhyperlink address:=d:music, newwindow:=true

28、25、在當前工作表翻頁 application.sendkeys pgup, true application.sendkeys pgdn, true 或者 activewindow.largescroll down:=1 activewindow.largescroll down:=-1 26、當target = *小計時如何寫,*代表任何字符。 if instr(target.value,小計)0 then private sub worksheet_selectionchange(byval target as range) 基本操作技巧薈萃12if target.value like

29、*小計 then msgbox ok end sub 27、activecell.formular1c1 = =sum(r1c:r14c,r59c:r78c) 這是相對引用的寫法：根據(jù)推算你的函數(shù)是放在“ad6”單元格 你的函數(shù)：=sum(r1c:r14c 中的 r表示行 c表示列。 r1表示“ad6+1行，c表示“列沒有變化，就是同列”那么：r1c就表示ad7 同理，r14表示ad6+14行，表示：ad20。以此類推。 28、private sub commandbutton1_click()將a1到c6中大于=3的數(shù)依次放入e列 dim i as long dim irng as rang

30、e for each irng in sheets(1).range(a1:c6) if irng.value = 3 then i = i + 1 sheets(1).range(e & i).value = irng.value end if next end sub 29、工作表中的窗體按鈕禁用后，按鈕形狀不變，字體不變，從外表上無法看出其已禁用，如何設(shè)置屬性使其像控件按紐那樣明顯的禁用？ with activesheet.buttons(1) .enabled = false activesheet.shapes(.caption).drawingobject.font.col

31、orindex = 15 end with 復原的方法 with activesheet.buttons(1) .enabled = true activesheet.shapes(.caption).drawingobject.font.colorindex = xlautomatic end with 30、private sub worksheet_selectionchange(byval target as range選定a1時要輸入密碼 if target.address = $a$1 then a = inputbox(請輸入密碼, officefans) if a = 1 th

32、en a1.select else a2.select end if end sub 31、如何將工作薄中的命名單元格成批刪除！ dim item as name for each item in activeworkbook.names item.delete next item 32、平時只能看到表1，如要看表2和表3，只能通過表1的鏈接打開,且表2和表3回到表1后，又不可見。 private sub worksheet_selectionchange(byval target as range) if target.address = $a$3 then 當點擊$a$3單元格時. she

33、et2.visible = 1 取消隱藏 基本操作技巧薈萃13sheet2.activate 激活 activesheet.range(a1).select end if if target.address = $a$6 then sheet3.visible = 1 取消隱藏 sheet3.activate activesheet.range(a1).select end if end sub 33、將a2單元格內(nèi)容替換為a1內(nèi)容 activecell.replace what:=a2, replacement:=a1 34、如果是要填入名稱,則: private sub worksheet

34、_selectionchange(byval target as range) selection.value = combobox1.column(1) end sub 如果是要填入代碼和名稱的組合 : private sub worksheet_selectionchange(byval target as range) selection.value = cstr(combobox1.column(0)+ +combobox1.column(1) end sub private sub worksheet_selectionchange(byval target as range) se

35、lection.value = combobox1.value end sub private sub worksheet_selectionchange(byval target as range) target.row 代表行號 target.column 代表列號 i=target.row 獲取行號 j=target.column 獲取列號 end sub 35、當激活工作表時，本示例對 a1:a10 區(qū)域進行排序。 private sub worksheet_activate() range(a1:a10).sort key1:=range(a1), order:=xlascendin

36、g end sub 36、beforeprint 事件 參閱應(yīng)用于示例特性在打印指定工作簿（或者其中的任何內(nèi)容）之前，產(chǎn)生此事件。 private sub workbook_beforeprint(cancel as boolean) cancel 當事件產(chǎn)生時為 false。如果該事件過程將本參數(shù)設(shè)為 true，則當該過程運行結(jié)束之后不打印工作簿。 示例 本示例在打印之前對當前活動工作簿的所有工作表重新計算。 private sub workbook_beforeprint(cancel as boolean) for each wk in worksheets wk.calculate n

37、ext end sub 基本操作技巧薈萃1437、open 事件 參閱應(yīng)用于示例特性打開工作簿時，將產(chǎn)生本事件。 private sub workbook_open() 示例 每次打開工作簿時，本示例都最大化 microsoft excel 窗口。 private sub workbook_open() application.windowstate = xlmaximized end sub 38、activesheet 屬性 參閱應(yīng)用于示例特性返回一對象，該對象代表活動工作簿中的，或者指定的窗口或工作簿中的活動工作表（最上面的工作表）。只讀。如果沒有活動的工作表，則返回 nothing。

38、說明 如果未給出對象識別符，本屬性返回活動工作簿中的活動工作表。 如果某一工作簿在若干個窗口中出現(xiàn)，那么該工作簿的 activesheet 屬性在不同窗口中可能不同。 示例 本示例顯示活動工作表的名稱。 msgbox the name of the active sheet is & activesheet.name 39、calculate 方法 參閱應(yīng)用于示例特性計算所有打開的工作簿、工作簿中的一張?zhí)囟ǖ墓ぷ鞅砘蛘吖ぷ鞅碇兄付▍^(qū)域的單元格，如下表所示： 要計算 依照本示例 所有打開的工作簿 application.calculate （或只是 calculate） 指定工作表 指定

39、工作表 指定區(qū)域 worksheets(1).rows(2).calculate expression.calculate expression 對于 application 對象可選，對于 worksheet 對象和 range 對象必需。該表達式返回“應(yīng)用于”列表中的對象之一。 示例 本示例計算 sheet1 已用區(qū)域中 a 列、b 列和 c 列的公式。 worksheets(sheet1).usedrange.columns(a:c).calculate 程序的核心是算法問題 40、end 屬性 參閱應(yīng)用于示例特性返回一個 range 對象，該對象代表包含源區(qū)域的區(qū)域尾端的單元格。等同于

40、按鍵 end+ 向上鍵、end+ 向下鍵、end+ 向左鍵或 end+ 向右鍵。range 對象，只讀。 expression.end(direction) expression 必需。 該表達式返回“應(yīng)用于”列表中的對象之一。 direction xldirection 類型，必需。所要移動的方向。 xldirection 可為 xldirection 常量之一。 xldown xltoright xltoleft xlup 示例 本示例選定包含單元格 b4 的區(qū)域中 b 列頂端的單元格。 基本操作技巧薈萃15range(b4).end(xlup).select 本示例選定包含單元格 b4

41、的區(qū)域中第 4 行尾端的單元格。 range(b4).end(xltoright).select 本示例將選定區(qū)域從單元格 b4 延伸至第四行最后一個包含數(shù)據(jù)的單元格。 worksheets(sheet1).activate range(b4, range(b4).end(xltoright).select 41、應(yīng)用于 cellformat 和 range 對象的 locked 屬性。 本示例解除對 sheet1 中 a1:g37 區(qū)域單元格的鎖定，以便當該工作表受保護時也可對這些單元格進行修改。 worksheets(sheet1).range(a1:g37).locked = false

42、 worksheets(sheet1).protect 42、next 屬性 參閱應(yīng)用于示例特性返回一個 chart、range 或 worksheet 對象，該對象代表下一個工作表或單元格。只讀。 說明 如果指定對象為區(qū)域，則本屬性的作用是仿效 tab，但本屬性只是返回下一單元格，并不選定它。 在處于保護狀態(tài)的工作表中，本屬性返回下一個未鎖定單元格。在未保護的工作表中，本屬性總是返回緊靠指定單元格右邊的單元格。 示例 本示例選定 sheet1 中下一個未鎖定單元格。如果 sheet1 未保護，選定的單元格將是緊靠活動單元格右邊的單元格。 worksheets(sheet1).activate

43、 activecell.next.select 43、想通過target來設(shè)置(a1：a10)區(qū)域內(nèi)有改動，就發(fā)生此事件。不知道如何 if target.row = 1 and target.column =10 then sub 列舉菜單項() dim r, s, i as integer r = 1 for i = 1 to commandbars.count activesheet.cells(r, 1) = commandbars( & i & ).name: & commandbars(i).name r = r + 1 for s = 1 to comman

44、dbars(i).controls.count activesheet.cells(r, 1) = s & 、 & commandbars(i).controls(s).caption r = r + 1 next next end sub 44、本示例設(shè)置 microsoft excel 每當打開包含鏈接的文件時，詢問用戶是否更新鏈接。 application.asktoupdatelinks = true 45、自定義函數(shù) public function now1() dim string1 as string string1 = vba.date now1 = strin

45、g1 基本操作技巧薈萃16end function 46、復制 sub copy1() sheet2.range(c5:c10).copy sheet1.range(c5:c10) end sub 47、如何統(tǒng)計表中sheet的個數(shù)？ msgbox sheets.count columns(g:g).select 48、 selection.entirecolumn.hidden = true 這樣隱藏有個毛病，如何解決？如果a1:g1單元格合并的話，就把a：g列均隱藏了。 columns(g:g).entirecolumn.hidden = true 49、在vba中引用excel函數(shù)的方法

46、 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” 用這種方式,想用什么函數(shù)就用什么函數(shù). 50、選定下（上）一個工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select 51、private sub workbook_open() a

47、ctivewindow.displayworkbooktabs = false 取消工作表標簽 application.commandbars(sheet).controls(1).enabled = false 格式工作表不能重命名 application.commandbars.findcontrol(id:=889).enabled = false 右鍵菜單不能重命名 end sub 52、 a65536.end(xlupa列從下往上第一個非空的單元格 53、sub macro() set rng = range(c11:f13) 定義rng為一個單元格區(qū)域 for each cel i

48、n rng 定義cel為rng中的一個任一單元格 colo = cel.interior.colorindex 定義 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(cel.row, 2) then cells(ir, 1) = cells(cel.row, 2) 如果a列最后一個非空值單元格 不等于cells(cel.row, 2) 的值 那么單元格cells(ir, 1) 的值

49、等于cells(cel.row, 2) 的值 cel.row是c11:f13中任意單元格的行號 cells(ir, 2) = cells(10, cel.column) cells(ir, 3) = cel.value cells(ir, 4) = iif(colo = 36, yellow, red) cells(ir, 4) 的值如果colo = 36那么值為yellow,否則值為red next end sub 54、private sub workbook_sheetselectionchange(byval sh as object, byval target as range) *

50、運行數(shù)據(jù)日志記錄* dim rng as range if activesheet.name 主界面 and activesheet.name 目錄索引 then 基本操作技巧薈萃17for each rng in target.cells changecell = activesheet.name & ，單元格： & rng.address(0, 0) & ，更改為： & rng.value & 。更改時間： & now critoraddtext next end if end sub 55、activesheet.unprotect 撤銷當

51、前工作表保護 if activesheet.name 主界面 and activesheet.name 目錄索引 and target.row 3 then 行變色 on error resume next changcolor_with.formatconditions.delete target.entirerow.name = changcolor_with with changcolor_with.formatconditions .delete .add xlexpression, , true .item(1).interior.colorindex = 4 end with en

52、d if activesheet.protect 56、在c1中弄個下拉無表,實際是有效性,你可以選擇a1:a4為c1單元格有效性的序列數(shù)據(jù)源,如果說c1不與a1:a4在同一表,則不能這么用,應(yīng)當先對a1:a4命名,然后把數(shù)據(jù)源改為名稱. 57、自動增加工作表 進入宏命令編輯窗口，在sub 自動增加工作表()命令后依次鍵入如下宏命令內(nèi)容： dim i&, userinto i = 0 userinto = inputbox(輸入插入工作表數(shù)量：) if isnumeric(userinto) = true then do until i = userinto worksheets.ad

53、d i = i + 1 loop end if end sub 58、方法一（共享級鎖定）: 1、先對excel文件進行一般的vbaproject”工程密碼保護。 2、打開要保護的文件，選擇：工具-保護-保護并共享工作簿-以追蹤修訂方式共享-輸入密碼-保存文件。 完成后，當你打開“vbaproject”工程屬性時，就將會提示：“工程不可看！“ 方法二（推薦，破壞型鎖定）： 用16進制編輯工具，如winhex、ultraedit-32（可到此下載）等，再歷害點的人完全可以用debug命令來做.用以上軟件打開excel文件，查找定位以下地方： id=00000000-0000-0000-0000-

54、000000000000 注：實際顯示不會全部為0 此時，你只要將其中的字節(jié)隨便修改一下即可。保存再打開，就會發(fā)現(xiàn)大功告成！ 基本操作技巧薈萃18當然，在修改前最好做好你的文檔備份。至于恢復只要將改動過的地方還原即可（只要你記住了呵呵）。 順便說一句，這種方法仍然是可破解的，因為加密總是相對的 。 59、sub addcomments() 自動對activesheet所有有公式格位加上註解 set rg = cells.specialcells(xlcelltypeformulas) for each c in rg c.addcomment c.comment.text text:=c.fo

55、rmula next c end sub sub de_comments() 自動消除所有註解 set rg = cells.specialcells(xlcelltypeformulas) for each c in rg c.clearcomments next c end sub 60、如何在excel里使用定時器 2002-3-12 20:53:27 動網(wǎng)先鋒 用過 excel 97 里的加載宏 定時保存 嗎？可惜它的源程序是加密的，現(xiàn)在就上傳一篇介紹實現(xiàn)它的文檔。 在 office 里有個方法是 application.ontime ，具體函數(shù)如下： expression.ontim

56、e(earliesttime, procedure, latesttime, schedule) 如果想進一步了解，請參閱 excel 的幫助。 這個函數(shù)是用來安排一個過程在將來的特定時間運行，（可為某個日期的指定時間，也可為指定的時間段之后）。通過這個函數(shù)我們就可以在 excel 里編寫自己的定時程序了。下面就舉兩個例子來說明它。 1.在下午 17:00:00 的時候顯示一個對話框。 sub run_it() application.ontime timevalue(17:00:00), show_my_msg 設(shè)置定時器在 17:00:00 激活，激活后運行 show_my_msg 。 e

57、nd sub sub show_my_msg() msg = msgbox(現(xiàn)在是 17:00:00 ！, vbinformation, 自定義信息) end sub 2.模仿 excel 97 里的 自動保存宏,在這里定時 5 秒出現(xiàn)一次 sub auto_open() msgbox 歡迎你，在這篇文檔里，每 5 秒出現(xiàn)一次保存的提示！, vbinformation, 請注意！ call runtimer 打開文檔時自動運行 end sub sub runtimer() application.ontime now + timevalue(00:00:05), saveit now + ti

58、mevalue(00:15:00) 指定在當前時間過 5 秒鐘開始運行 saveit 這個過程。 end sub sub saveit() 基本操作技巧薈萃19msg = msgbox(朋友，你已經(jīng)工作很久了，現(xiàn)在就存盤嗎？ & chr(13) _ & 選擇是：立刻存盤 & chr(13) _ & 選擇否：暫不存盤 & chr(13) _ & 選擇取消：不再出現(xiàn)這個提示, vbyesnocancel + 64, 休息一會吧！) 提示用戶保存當前活動文檔。 if msg = vbyes then activeworkbook.save else i

59、f msg = vbcancel then exit sub call runtimer 如果用戶沒有選擇取消就再次調(diào)用 runtimer end sub 以上只是兩個簡單的例子，有興趣的話，可以利用 application.ontime 這個函數(shù)寫出更多更有用的定時程序。 sub show_my_msg() msg = msgbox(現(xiàn)在是 17:00:00 ！, vbinformation, 自定義信息) end sub 2.模仿 excel 97 里的 自動保存宏,在這里定時 5 秒出現(xiàn)一次 sub auto_open() msgbox 歡迎你，在這篇文檔里，每 5 秒出現(xiàn)一次保存的提示

60、！, vbinformation, 請注意！ call runtimer 打開文檔時自動運行 end sub sub runtimer() application.ontime now + timevalue(00:00:05), saveit now + timevalue(00:15:00) 指定在當前時間過 5 秒鐘開始運行 saveit 這個過程。 end sub 61、excel 最重要的應(yīng)用就是利用公式進行計算。無論輸入是純粹的數(shù)字運算，還是引用其他單元格計算，只要在一個單元格中輸入公式，就能得到結(jié)果。這個直接顯示結(jié)果的設(shè)計對于絕大多數(shù)場合來說都是適用的，但某些情況下就不那么讓人滿意了。比如說在做工程施工的預結(jié)算編寫，使用excel，既要寫出工程量的計算式，也要看到它的結(jié)果，于是這樣相同的公式在excel里面要填兩次，一次在文本格式的單元格中輸入公式，一次是在數(shù)據(jù)格式的單元格中輸入公式讓exc