Take it easy~ | [VBA] 比對資料及設定格式 先來一個簡單的巨集,當然對於巨集內容,如果你有更好的 寫法或意見,也歡迎和大家分享、討論喔~ 問題:Sheet1 及 Sheet2 內容如下 -- 以 Sheet1 的[姓名]尋找 Sheet2,若有符合的 則將 Sheet1 該項目的編號、姓名、地址三欄 的底色設成黃色。 方法:於 Sheet1 執行此巨集: Sub 小巨集() 1 r = 2 2 Do While Cells(r, 1) <> "" 3 Set f = Sheets(2).Columns(1).Find(Cells(r, 2)) 4 If Not f Is Nothing Then 5 Rows(r).Range("A1:C1").Interior.Color = vbYellow 6 End If: r = r + 1 7 Loop End Sub [說明] 1 設定變數 r 為起啟列號 (row) 初值。 2 對第一欄做迴圈,直到儲存格是空白為止。 此迴圈執行 Do...Loop 之間 (3~6行) 的動作。 3 在 Sheet2 的第一欄尋找此姓名,將搜尋結果存為一變數 f。 4 若 f 變數不是空值 (表示有找到) 則執行 If..End If 之間的動作。 5 將第 r 列前三個儲存格的底色設為黃色。 6 結束 If 判斷,將 r 變數加 1 以繼續處理下一列。 7 結束 Do...Loop 迴圈。 PS. 為說明之便而在程式碼前加上行號,一般是不需要的。 |
回覆 |
會員 | 哇~~~ 現在才看到這幾篇VBA的文章~~ 謝謝Leon Chouㄍㄍ的提供分享~~ VBA在OFFICE裡面真的是粉方便的唷~~ 許多小指令的設定又快又好用~~ 真的謝謝Leon Chouㄍㄍ的分享啦~~ 呵呵~~ |
回覆 |
主題工具 | |
|
類似的主題 | ||||
主題 | 主題作者 | 討論版 | 回覆 | 最後發表 |
【問題】Excel VBA 比較 | aquen | -- OFFICE 相 關 軟 體 討 論 版 | 2 | 2007-04-29 12:19 AM |
在EXCEL中如何判斷顏色取值?(VBA) | TPBUNNY | -- OFFICE 相 關 軟 體 討 論 版 | 7 | 2003-08-12 07:16 PM |
[VBA]月曆控制項亂碼問題 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2003-04-27 03:50 PM |
[VBA] 巨集簡介 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 0 | 2001-08-26 05:40 PM |
[VBA] 自動巨集與活頁薄事件 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2001-08-22 08:32 PM |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。