Lv,Gucci,Lv包包,Lv錢夾,Lv手錶,Lv目錄,Gucci公仔包,Lv購物包,Lv水桶包,Lv批發,愛美仕名牌購物

EXCEL VBA．〔指定序號〕後，在目標〔序號〕資料列填入底色
　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■程式碼：增修如下。
　Sub 共用參照()
　～～
　～～
　Set DataSht = Sheets("DATA")
　xCunt = DataSht.Range("B65536").End(xlUp).Row - 1
　'↓先還原全表的底色為〔無填滿〕，否則會累積填色 　
　DataSht.Range("A2:H" & xCunt + 1).Interior.ColorIndex = 0
　～～
　～～
　～～
　'↓在〔指定序號〕位置８個儲存格填入〔黃底色〕 　
　DataSht.Range("A" & MaxR + 1).Resize(1, 8).Interior.ColorIndex = 6
　End Sub
　
■說明：
　１．因〔DATA〕的〔條件格式化〕將非空格的底色設為〔無填滿〕，
　　　請將此項設定清除，才能正常填色。
　２．〔共用參照〕主要在傳遞〔變數．參數〕讓其他區段使用，
　　　所以儘量避免有與〔共用〕除外的程式，尤其是較費時間者，
　　　讓其他程式呼叫時，幾乎感覺不到它的存在，否則失其設置目的。
　　　故，若要增加新需求時，請注意。　
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－