[VBA] 比對資料及設定格式 - PCZONE 討論區

返回   PCZONE 討論區 > ▲ -- 電 腦 軟 體 討 論 區 > -- OFFICE 相 關 軟 體 討 論 版


PCZONE 討論區



通知

-- OFFICE 相 關 軟 體 討 論 版 Word、Excel、PowerPoint、Access、Outlook、FrontPage或Office XP等的問題解答與經驗分享

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 
本站使用 vBulletin 合法版權程式
站務信箱 : [email protected]

本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。