ACCESS檔案格式：工具/選項/進階/預設檔案格式

Size: px

Start display at page:

Download "ACCESS檔案格式：工具/選項/進階/預設檔案格式"

湖银晨巫
5 years ago
Views:

1 EXCEL 錄製巨集與 VBA-1 1 搭配範例 : 錄製巨集範例資料檔 2 巨集與 VBA: 巨集是一程式, 紀錄一連串的操作步驟, 而這些程式的程式碼是由 VBA 程式語言所撰寫 3 巨集工具列 : 開發人員 / 程式碼 4 錄製巨集開發人員 / 程式碼 / 錄製巨集 5 相對 / 絕對 : 絕對 + 未換位絕對 + 重新定位相對 + 未換位相對 + 重新定位以上情況交錯 ( 重點在於所選的對象是否要採用相對或絕對位置之前, 要先設定好相對 / 絕對的切換 ), 參考錄製巨集範例 6 巨集快速鍵開發人員 / 程式碼 / 巨集 / 選項 / 快速鍵 7 巨集按鈕 EX: 矩形圖 / 右鍵 / 指定巨集 8 巨集內容編輯檢視修改開發人員 / 程式碼 / 巨集 / 編輯 9 巨集儲存位置 : 新的活頁簿現用活頁簿個人巨集活頁簿 ( 個人巨集活頁簿 PERSONAL.XLSB 預設為隱藏, 如要編輯或查看需先 : 檢視 / 視窗 / 取消隱藏式窗 ) 10 啟動錄製巨集執行動作查閱相對在 VBA 的程式內容 ( 開發人員 / 程式碼 /Visual Basic) 可進一步利用 F1 查詢 11 錄製巨集的限制 : 11.1 容易錄製冗長的操作 Sub test1() range("b2").select activecell.formular1c1="test" range("b3").select Sub test2() range("b2").value = "TEST" 11.2 對話型巨集無法被錄製, 欠失情況與對象的彈性 11.3 無法錄製條件判斷與重複執行 12 EXCEL 2003 檔案格式.XLS 可以含巨集 13 EXCEL 2007 以上檔案格式.XLSX 不能帶巨集 14 EXCEL 2007 以上若有巨集時必須存為.XLSM 或.XLSB VBA 編輯視窗功能介紹 15 視窗切換 : 15.1 視窗 / 切換選擇 15.2 視窗 / 排列顯示 15.3 Ctrl+Tab 15.4 視窗最大化還原 15.5 模組程式碼視窗 /( 在程式視窗左下角兩圖示 : 程序檢視全模組檢視 ) 16 工具 / 選項 / 撰寫風格 / 一般文字 / 字型大小 17 工具 / 選項 / 停駐 ( 之後可針對拖曳出來的視窗, 雙按滑鼠於該視窗的標題列即可將之回到原來位置 ) 18 工具 /VBAProject 屬性 / 保護 / 設定密碼 19 執行 [F5] 20 偵錯 / 逐行 [F8] 執行到游標處監看式中斷點 20.1 中斷點的設定 : 在程式視窗左邊界, 單按滑鼠左鍵, 出現一紅點, 再按一下即取消程式中可依需要設定多個中斷點觀察執行過程 21 插入 / 模組 22 檢視 / 程式碼瀏覽物件即時運算視窗區域變數視窗監看視窗專案總管屬性視窗 22.1 EX: Sub a() Cells(1, 2) = 1 Cells(2, 2) = 2 Cells(3, 2) = 3 Cells(4, 2) = 4 Cells(5, 2) = EX: Sub b() For i = 1 To 10 Cells(i, 1) = i 23 檢視 / 工具列 / 編輯, 在編輯列當中有 " 使程式行變為註解 ", 可一次處理多行 24 編輯 / 列出屬性或方法快速諮詢 25 檔案 / 儲存匯入匯出移除 26 更改模組名稱 : 選好模組, 修改對應 [ 檢視 / 屬性視窗 /NAME 屬性 ] EXCEL VBA ( 1 / 8 )

2 VBA 與活頁簿 27 Sub 新增活頁簿 () Workbooks.Add end Sub 28 Sub 開啟活頁簿 () Workbooks.Open Filename:="E:\test.xlsx" 'Workbooks.Open ("E:\test.xlsx") ' 這樣也可 ' 若無指定路徑則表示取用預設資料夾 29 Sub 關閉所有活頁簿 () Workbooks.Close 29.1 關閉單一活頁簿 ActiveWorkbook.Close 29.2 關閉特定活頁簿 Workbooks("test.xlsx").Close 29.3 關閉第幾個活頁簿 Workbooks(2).Close 29.4 活頁簿存檔後關閉 : Workbooks("test.xlsx").Close 29.5 活頁簿關閉時不存檔 : Workbooks("test.xlsx").Close 30 Sub 指定使用中的活頁簿 () Workbooks("test.xlsx").Activate 31 Sub 儲存使用中的活頁簿 () ActiveWorkbook.Save SaveChanges:=True False 31.1 儲存指定名稱的活頁簿 Workbooks("test.xlsx").Save 31.2 將活頁簿另存新檔 ActiveWorkbook.SaveAs Filename:="E:\tst.xlsx" VBA 與工作表 32 Sub 插入工作表 () Worksheets.Add 32.1 在第一頁後插入兩張工作表 Worksheets.Add After:=Worksheets(1), Count:=2 33 Sub 選取指定工作表 () Worksheets(" 工作表 3").Activate ' 也可以是 Worksheets(" 工作表 3").Select 33.1 選取所有工作表 Worksheets.Select 33.2 選取第 1 3 工作表 Worksheets(Array(1,3)).Select 34 Sub 移動工作表 () Worksheets(" 工作表 1").Move After:=Worksheets(" 工作表 3") 34.1 移動到其他指定的活頁簿中 Worksheets(" 工作表 1").Move _ Before:=Workbooks("test.xls").sheets(2) 34.2 移動到新建的活頁簿中 Worksheets(" 工作表 1").Move 34.3 複製工作表到新建的活頁簿中 Worksheets(" 工作表 1").Copy 34.4 其他複製如同以上搬移概念 35 Sub 刪除工作表 () ' 不顯示工作表刪除確認視窗 Application.DisplayAlerts=False Worksheets(" 工作表 1").Delete Application.DisplayAlerts=True ' 還原 DisplayAlerts 的值 36 Sub 隱藏工作表 () EXCEL VBA ( 2 / 8 ) Worksheets(" 工作表 1").Visible = xlsheethidden ' 也可以 Worksheets(" 工作表 1").Visible =False 'ActiveSheet.Visible = False ' 隱藏目前所在工作表 36.1 此法, 使用者將無法自行顯示被隱藏的工作表 Worksheets(" 工作表 1").Visible = xlsheetveryhidden ' 也可 Worksheets(" 工作表 1").Visible = xlveryhidden 36.2 ' 解除上述被隱藏的工作表 Sub 顯示工作表 () Worksheets(" 工作表 1").Visible = xlsheetvisible ' 也可以 Worksheets(" 工作表 1").Visible =True 37 備註 : 37.1 單引號 ' 表示 : 註解 37.2 一對雙引號 " " 表示 : 字串 37.3 字串中包含 " 符號之處理,EX:"a""b""c", 表示 a"b"c 37.4 敘述要串連下一列, 用 _ 符號, 注意 _ 之前要有空格, 例如後面第 #57 剪貼簿範例中有用到 37.5 敘述 1 : 敘述 2: 敘述 3 ( 一列當中多個敘述, 可用於運算視窗中只能一列敘述之限制 ) 37.6 WORD/ 檔案 / 選項 / 校訂 / 自動校正選項 : 自動校正 / 取消 : 英文句子第一個字母大寫表格儲存格第一個英文字母大寫輸入時自動套用格式 / 取消 : 將一般引號取代為智慧引號

3 EXCEL VBA-2,VBA 與儲存格 38 選取儲存格 39 Sub 選取儲存格 _range() Range("b4").Select 39.1 Range("B4:D8").Select 39.2 Range("b3,b5,d3,d5").select 39.3 Range("b3:d5,b6:d8").select 39.4 Range(" 範圍名稱 ").select 39.5 Range("2:2").select 39.6 Range("B:B").select 39.7 Range("1:3").select 39.8 Range("A:D").select 39.9 Range("1:3,5:5").select Range("A:D,E:E").select 40 Sub 選取儲存格 _cells() cells(4,3).activate cells(4,"c").activate 40.1 Cells.select ' 表示選取所有儲存格 40.2 Cells 屬性只能選取單一或是全部儲存格 41 Range(cells(1,2),cells(5,4)).select Range("b1:d5").select 42 Range(" 行列 ") cells( 列, 行 ) 42.1 Range("c5").select cells(5,3).activate 43 ' cells 屬性可使用變數, 例如 : Sub input1to100() dim i as integer for i = 1 to 10 cells(i, i) = i next i 44 'range 屬性選取的儲存格必須在工作表內的儲存格例如有 1 2 兩張工作表, 目前在 1, 要選取 2 當中的 A1:C5, 44.1 錯誤方法 worksheets("2").range("a1:c5").select 44.2 正確方法 worksheets("2").activate range("a1:c5").select 45 取得 / 設定儲存格的值 46 Sub 取值 () msgbox "test" msgbox range("a3").value 47 Sub 設定值 () range("a3").value = "ABC" cells(1,3).value="def" range("b2:d5").value ="test" 48 注意以下只有數值資料不用雙引號 range("a1").value= range("a2").value= "-1,234" range("a3").value= "2018/9/10" range("a4").value= "12:34:56" range("a5").value=" 文字 0123" 49 range("b5").value=range("a5").value range("b5")=range("a5") ' 可省略 value 50 取得 / 設定儲存格的計算式 51 range("a3").formula = "=$a$1+$a$2" ' 絕對參照 range("a3").formula = "=a1+a2" ' 相對參照 range("a5").formula= "=sum(a1:a4)" range("b5").formula= "=max(b1:b4)" range("c5").formula= "=if(a1>100,""abc"",""def"")" 52 ' 注意以下兩者用法, 在之後更改 "c1:c10" 為 "d1:d10" 之後呢? range("c1:c10").formular1c1= "=rc[-2]+rc[-1]" range("c1:c10").formula= "=a1+b1" ' 以下表示 formula 還是可以直接以 R1C1 設定值的 range("a5").formula= "=sum(r[-4]c:r[-1]c)" range("b5").formula= "=max(r[-4]c:r[-1]c)" 53 ' R1C1 當中使用變數取得位置 Dim i As Integer i = -3 ActiveCell.FormulaR1C1 = "=SUM(RC[" & Str(i) & "]:RC[-1])" 54 取值或是公式, 注意公式的相對與絕對 EX: range("a1").value=10 range("b1").value=20 range("c1").formula="=$a$1+$b$1" range("d1").value=range("c1").value ' d1=30 'range("d1").formula= range("c1").formula ' d1="=$a$1+$b$1" 'range("d1").formular1c1= range("c1").formular1c1 ' d1="=$a$1+$b$1" range("a1").value=10 range("b1").value=20 range("c1").formula="=a1+b1" range("d1").value=range("c1").value ' d1=30 ' 取計算結果值 'range("d1").formula= range("c1").formula ' d1="=a1+b1" ' 取公式字串 'range("d1").formular1c1= range("c1").formular1c1 ' d1="=b1+c1" ' 取相對公式字串 55 設定選取範圍中的反白位置點 range("a1:d5").select range("c3").activate 56 複製 / 貼上儲存格資料 EXCEL VBA ( 3 / 8 )

4 57 ' 透過剪貼簿 sheets(" 工作表 1").select range("a1:c10").select selection.copy sheets(" 工作表 2").select range("a1").select activesheet.paste 'activesheet.paste _ 'destination:=worksheets(" 工作表 1").range("b1:d10") Sub test2() ' 不透過剪貼簿 worksheets(" 工作表 1").range("a1:c10").copy _ destination:=worksheets(" 工作表 2").range("a1") Sub test3() ' 選擇性貼上 worksheets(" 工作表 1").range("c1:c5").copy worksheets(" 工作表 1").range("d1").PasteSpecial _ Paste:=xlPasteValues xlpasteall 'PS: cut 與 PasteSpecial 不能一起使用 'PS: 上例是選擇性貼上 " 值 ", 其他屬性如下 xlpasteformulas xlpastevalues xlpasteformats xlpastecomments xlpastevalidation xlpasteallusingsourcetheme 13 xlpasteallexceptborders xlpastecolumnwidths xlpasteformulasandnumberformats xlpastevaluesandnumberformats xlpasteallmergingconditionalformats 清除儲存格資料 59 ' 清除內容 Range("a5").Select Selection.ClearContents Activecell.value = "" Range("a6").Value = "" 60 Range("a3:b5").clearformats ' 清除格式 Range("c4:d6").clear 61 Sub 變更選取儲存格的範圍 () ' 本範例在開始時先選取 B3:C 會貼上一切會貼上公式會貼上值會貼上來源格式會貼上註解 6 會貼上驗證會使用來源佈景主題貼上一切 7 會貼上框線以外的一切 8 會貼上複製的欄寬 11 會貼上公式和數字格式 12 會貼上值和數字格式 ' 清除格式與資料會貼上一切並且合併條件格式 range("b3:c5").select selection.offset(-1,2).select selection.offset(2).select selection.offset(2,0).select selection.offset(0,-1).select selection.offset(,-1).select 62 Sub 隱藏 () worksheets(" 工作表 1").rows("5:7").hidden = true worksheets(" 工作表 1").rows("5:7").hidden = false ' 不能指定非連續範圍的複數列,ex rows("1:3,5,6") 63 range("b3:d6").select msgbox selection.rows.count selection.rows.value = "TEST" Selection.Value = "TEST" rows("8:9")="test" msgbox selection.columns.count selection.resize(selection.rows.count+2,selection.columns.co unt-1).select selection.offset(2).resize(, selection.columns.count+2).select 64 選取連續資料區域儲存格 Range("b4").CurrentRegion.Select Range("b4").CurrentRegion.name =" 範圍名稱 " ' 指定列印範圍 ActiveSheet.PageSetup.PrintArea =" 範圍名稱 " ActiveSheet.PrintOut ' 列印 ActiveSheet.PrintPreview ' 預覽列印 ' 列印資料筆數 ( 不含標題 ) Msgbox Range("b4").CurrentRegion.Rows.Count 連續資料區域的邊界儲存格 range ("b4").end(xlup).select 'ctrl+ 向上鍵 range ("b4").end(xldown).select 'ctrl+ 向下鍵 range ("b4").end(xltoleft).select 'ctrl+ 向左鍵 range ("b4").end(xltoright).select 'ctrl+ 向右鍵 66 移到新增資料的儲存格 Range("A65536").End(xlUp).Offset(1).Select 67 使用 END 取得特定資料 Range("A3",Range("a3").End(xltoRight)).select EXCEL VBA ( 4 / 8 )

5 EXCEL 68 變數宣告 VBA-3,VBA 與變數程式控制功能敘述 Dim abc Abc=workbooks(1).name Msgbox " 第一個活頁簿名稱為 :" & abc & " " 69 要求變數宣告的兩個對照範例 Sub test1() Dim abc Abc=workbooks(1).name Msgbox " 第一個活頁簿名稱為 :" & abd & " " ' 注意, 以上 abc 變數名稱打錯了, 執行沒有發現 Option Explicit Sub test2() Dim abc Abc=workbooks(1).name Msgbox " 第一個活頁簿名稱為 :" & abd & " " ' 注意, 以上 abc 變數名稱打錯了, 執行會有錯誤訊息 70 自動將 Option Explicit 陳述式加在模組中 : 70.1 工具 / 選項 / 編輯器 / 勾選 " 要求變數宣告 " 71 變數資料型態 : dim 變數 As 資料型態 71.1 Byte: 佔用 1 個位元組 71.2 Integer: 整數, 佔用 2 個位元組 71.3 Long: 長整數, 佔用 4 個位元組 71.4 Boolean: 佔用 2 個位元組 (TRUE FALSE) 71.5 Single: 佔用 4 個位元組 71.6 Double: 佔用 8 個位元組 71.7 Date: 佔用 8 個位元組 71.8 String: 字串 71.9 Variant: 可變動長度變數 Dim abc as variant 可省略為 dim abc Object: 物件變數, 佔用 4 個位元組 72 宣告多個變數 dim ab as worksheet set ab =workbooks("a.xlsx").worksheets("sheet1") ab.range("a1:d5").value="test" 72.1 Dim a as integer, b as integer ( 正確, 皆為 integer) 72.2 Dim a, b as integer ( 錯誤, 第一個會視為 variant) 73 自動顯示資料提示 ( 在逐行執行時, 點選程式中的變數, 可得到提示結果 ) 73.1 工具 / 選項 / 編輯器 / 勾選 " 自動顯示資料提示 " 74 變數的宣告區域與有限期限 75 VBA 的控制功能 75.1 算數運算子加減 * 乘 / 除 ^ 次方 \ 除 ( 只取商數 ) (EX: 5\3 ) Mod 除 ( 只取餘數 ) (EX: 5 mod 3 ) 75.2 邏輯運算子 And or not eqv xor EX: msgbox (1=1 and 2=2) 75.3 比較運算子 = > < >= <= <> 75.4 VBA 函數, 參考 : 檢視 / 瀏覽物件 range("a2").value= range("a3").value=int(range("a1").value) ' 輸入 "VBA." 之後, 會出現 VBA 的函數 75.5 在 VBA 中使用 EXCEL 工作表函數 dim a as long a=application.worksheetfunction.max(range("a1:b5").v alue) ' 輸入 " Application.WorksheetFunction." 之後, 會出現 'EXCEL 工作表中可用的函數 msgbox "MAX = " & a &" " 75.6 With Range("a2").value="test" Range("a2").font.name=" 標楷體 " Range("a2").forn.size=14 對照以下 with range("a2").value="test".font.name=" 標楷體 ".forn.size=14 end with 75.7 If then else If range("a1")="a" then msgbox "it s a" If range("b1")="b" then Msgbox "test 1" Msgbox "test 2" End if EXCEL VBA ( 5 / 8 )

6 If range("c1")="c" then Msgbox "it s c" Elseif range("c1")="d" then Msgbox "it s d" Elseif range("c1")="e" then Msgbox "it s e" Else Msgbox "it s f" End if A=range("a4").value If a>10 and a<20 then Msgbox "10<a<20" End if 75.8 Select case Dim a as integer, b as integer A=range("a1").value Select case a Case is >80 B=1 Case is >60 B=2 Case else B=3 End select Select case b Case is =1 Msgbox "1" Case 2 Msgbox "2" End select ' case 1 to 3 ' case 1, For next 'for i = a to b step c Dim i as integer, j as integer j=worksheets.count For i = 1 to j Worksheets(i).name="test" & i 'if i=3 then exit for ' 中間跳離的方式 Sub 九九乘法表 () Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9 Cells(i, j) = (i * j) Next j Do loop (until while ) Dim i as integer, j as integer i=0 j=0 Do i=i+1 j=j+i Loop until i=100 Msgbox i & "," & j ' 結果是 : 100, 5050 i = 0 j = 0 Do Until i = 100 i = i + 1 j = j + i Loop MsgBox i & "," & j ' 結果是 : 100, 5050 Dim i As Integer, j As Integer i = 0 j = 0 Do i =i + 1 j = j + i Loop While i = 100 MsgBox I & "," & j ' 結果是 1, 1 i = 0 j = 0 Do While i = 100 i = i + 1 j = j + i Loop MsgBox i & "," & j ' 結果是 0, 0 EXCEL VBA ( 6 / 8 )

7 76 建立對話型程序 (input /output) 76.1 Msgbox (prompt, buttons, title) Dim I as integer Prompt: 顯示的訊息, 不可省略 Buttons: 按鈕種類圖示類型預設按鈕按鈕種類 :vbokonly (0) vbokcancel (1) vbabortretryignore (2) vbyesnocancel(3) vbyesno(4) vbretrycancel (5) 圖示種類 :vbcritical(16) 錯誤圖示 vbquestion(32) 詢問圖示 vbexclamation 警告圖示 (48) vbinformation 資訊圖示 (64) 預設按鈕 :vbdefaultbutton1~4 ( ), 預設為 vbdefaultbutton1(0) 可將以上三組數字加起來表示功能組合 Title: 視窗標題 Msgbox 傳回值 vbok: vbcancel : vbabort : vbretry: vbignore : vbyes: vbno : 7 Msgbox "please input ", vbokonly+vbexclamation,"error" ' 以上同等於 Msgbox "please input ", 48,"ERROR" i=msgbox ("please input ", vbokonly+vbexclamation,"error") Msgbox i ' 注意以上第一個 msgbox 參數可沒有括號, 第二個必須有 MsgBox " 第一列 " & vbnewline & " 第二列 " 'MSGBOX 換列用法 ' 不論是 msgbox 函數或是其他函數, 若要將值寫入變數, 都要用括號將所有引數框起來 76.2 result=application.inputbox(prompt,title,default,type) prompt: 視窗中的訊息, 不可省略 title: 標題, 可略 default: 預設值, 可略 type: 資料型態, 預設值為文字串型態公式 : 數字 : 文字 ( 字串 ): 邏輯值 : 儲存格參照 (RANGE): 如 #N/A 的錯誤值 : 數值陣列 : 64 Sub test1() Dim a As Variant Dim i As Integer For i = 1 To 3 Selection.Offset(1).Select a = Application.InputBox("pls input number", "test") If a <> False Then Selection.Value = a ' 以下個範例搭配 "F8" 逐行執行, 並觀察區域變數視窗 Sub test2() Dim a As Integer a = 5 a = Val(InputBox("pls input a")) ' 測試 a = InputBox("pls input a") 並輸入 "kk" MsgBox (a) Sub test3() Dim a As Integer Dim i As Integer For i = 1 To 5 Selection.Offset(1).Select On Error Resume Next a = 0 ' 預防後面輸入文字內容 a = Application.InputBox("pls input number", "test", "aa") If a <> False Then Selection.Value = a ' 回傳值若是 " 取消 ", 則傳回 FALSE, 也就是 0 Sub test4() Dim a As Integer Dim i As Integer For i = 1 To 5 Selection.Offset(1).Select 'On Error Resume Next ' 改用將以下輸入加上 VAL 處理, 避免輸入文字問題 a = 0 a = val(application.inputbox("pls input number", "test", "aa")) If a <> False Then Selection.Value = a ' 回傳值若是 " 取消 ", 則傳回 FALSE, 也就是 0 77 建立巨集按鈕 77.1 先產生圖片, 例如用繪圖工具會至一個矩形, 且可以內插文字說明, 然後在其上按下滑鼠右鍵, 指定對應的巨集, 即可產生該巨集的按鈕 EXCEL VBA ( 7 / 8 )

EXCEL VBA 其他範例與補充 Ex: 將游標所在連續儲存格範圍內的資料作判斷, 如果 <60 的將字體顏色改為紅色 :( 方法 1) Sub t2() Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer Dim i As Integer, j As Integer ActiveCell.End(xlUp).

Column() 'MsgBox i1 & "," & i2 & "," & i3 & "," & i4 For i = i1 To i2 For j = i3 To i4 'If Cells(i, j).value < 60 Then Cells(i, j).font.colorindex = 3 Cells(i, j).select If ActiveCell.

ColorIndex = 3 Next j EX: 將游標所在連續儲存格範圍內的資料作判斷, 如果 <60 的將字體顏色改為紅色 :( 方法 2) Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer Dim i As Integer, j As Integer Selection.CurrentRegion.

8 EXCEL VBA 其他範例與補充 Ex: 將游標所在連續儲存格範圍內的資料作判斷, 如果 <60 的將字體顏色改為紅色 :( 方法 1) Sub t2() Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer Dim i As Integer, j As Integer ActiveCell.End(xlUp).Select i1 = ActiveCell.Row() ActiveCell.End(xlDown).Select i2 = ActiveCell.Row() ActiveCell.End(xlToLeft).Select i3 = ActiveCell.Column() ActiveCell.End(xlToRight).Select i4 = ActiveCell.Column() 'MsgBox i1 & "," & i2 & "," & i3 & "," & i4 For i = i1 To i2 For j = i3 To i4 'If Cells(i, j).value < 60 Then Cells(i, j).font.colorindex = 3 Cells(i, j).select If ActiveCell.Value < 60 Then ActiveCell.Font.ColorIndex = 3 Next j EX: 將游標所在連續儲存格範圍內的資料作判斷, 如果 <60 的將字體顏色改為紅色 :( 方法 2) Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer Dim i As Integer, j As Integer Selection.CurrentRegion.Select i1 = Selection.Row() i2 = Selection.Rows.Count i3 = Selection.Column() i4 = Selection.Columns.Count For i = i1 To i1 + i2-1 For j = i3 To i3 + i4-1 Cells(i, j).select If ActiveCell.Value < 60 Then ActiveCell.Font.ColorIndex = 3 Next j 其他補充 1 開啟活頁簿時候, 自動執行的巨集 1 2 插入 / 自訂表單 2 3 EX: 先選取一區域, 變更區域內文字為粗體, 並計算該區域起始所在的列行, 以及區域的列數行數 Selection.Font.Bold = True MsgBox Selection.Row() MsgBox Selection.Rows.Count MsgBox Selection.Column() MsgBox Selection.Columns.Count 表單名稱控制項表單 EX: 未先選取一區域, 利用自動選取所在連續區域, 並變更區域內文字為粗體, 並計算該區域起始所在的列行, 以及區域的列數行數 Selection.CurrentRegion.Select Selection.Font.Bold = True MsgBox Selection.Row() MsgBox Selection.Rows.Count MsgBox Selection.Column() MsgBox Selection.Columns.Count 3 表單控制項 / 右鍵 / 檢視程式碼 ( 或是 F7 鍵 ) 表單中兩個命令按鈕控制項當中的程式工作表開啟時, 自動開此表單呼叫其他巨集 EXCEL VBA ( 8 / 8 )

1 1 Excel VBA 說明 ( ) (_) STEP4 Excel 2 STEP5 A1 1 B2 2 C3 3 STEP6 A1 STEP7 > > 1-11

1-3 1-3-1 Excel VBA VBA OK CD DVD Excel VBA Excel VBA Excel Visual Basic A1 1 B2 2 C3 3 STEP1 Excel Ch01_VBA.xlsm 1 > > STEP2 Excel 1 2 STEP3 1-10 1 1 Excel VBA 說明 ( ) (_) STEP4 Excel 2 STEP5 A1 1 B2 2