本帖最後由 papaya 於 2019-12-22 08:32 編輯
測試用檔 :
 2019-1222.rar (149.71 KB)
'-抓日期,號碼填黃色和字顏--------------------------------- 列641
Set BK = ThisWorkbook '列642'
Set xF = Nothing
T = Format(Left(Right(A, 15), 10), "yyyy/m/d") & ChrW(160) '搜尋檔案日期
Set xF = BK.Sheets("DATA").Range("A:A").Find(T, Lookat:=xlPart) '搜尋=A欄日期
If Not xF Is Nothing Then
For V = 4 To 10
For Each AD In Array("B77:AX77", "B83:AX83", "B88:K97", "Q88:Z97", "BB88:BK97", "BO88:BX97")
If xF(2, V) <> "" Then
Set FF = Range(AD & "").Find(xF(2, V), Lookat:=xlWhole)
If Not FF Is Nothing Then FF.Interior.ColorIndex = IIf(V = 10, 8, 6)
End If
Next
Next V '列654
End If '列655
上列的程式碼是直接複製列373~列387的程式碼貼上，但執行後，Sheets(1)工作表的標示的底色全對；
可是，"前三小"工作表的標示︰
有的全對(EX︰49_尾數排序-排數總覽-(2019-11-01)-OK)
有的會產生錯誤的底色標示(49_尾數排序-排數總覽-(2019-11-22)-NG)；(49_尾數排序-排數總覽-(2019-11-26)-NG)
顯然直接複製Sheets(1)工作表的列373~列387程式碼套用到"前三小"工作表是錯誤的舉措。
請問︰列642~列655的程式碼要如何修正 ?
謝謝 ! |
發表於 2019-12-22 08:29
| 
發表於 2019-12-22 10:19
| 