[VBA] 比對資料及設定格式 先來一個簡單的巨集,當然對於巨集內容,如果你有更好的 寫法或意見,也歡迎和大家分享、討論喔~ [color=red]問題[/color]:Sheet1 及 Sheet2 內容如下 -- [img]http://home.pchome.com.tw/world/leonblue/forum/pc_vba_find.jpg[/img] 以 Sheet1 的[姓名]尋找 Sheet2,若有符合的 則將 Sheet1 該項目的編號、姓名、地址三欄 的底色設成黃色。 [color=red]方法[/color]:於 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 [[color=green]說明[/color]] 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ㄍㄍ的分享啦~~ 呵呵~~ |
所有時間均為 +8。現在的時間是 03:59 AM。 |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。