- 帖子
- 678
- 主題
- 147
- 精華
- 0
- 積分
- 799
- 點名
- 0
- 作業系統
- win 8
- 軟體版本
- MS 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2016-2-9
- 最後登錄
- 2022-1-20
|
2#
發表於 2019-5-31 17:24
| 只看該作者
回復 1# ziv976688
主程式檔_Test.rar (60.08 KB)
有節錄准提版主的程式碼,並將其放置 :
在列6~列8插入
Dim T$, V%
Dim BK As Workbook, xB As Workbook, xS As Worksheet, xF As Range
Set BK = ThisWorkbook
在列29~列40插入
'-抓日期,號碼填黃色---------------------------------
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
If xF(1, V) <> "" Then
xS.[B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 38, 6) '顯示=A欄日期+1列的號碼
xB.Sheets(1).[B1:AX1].Find(xF(1, V), Lookat:=xlWhole).Interior.ColorIndex = IIf(V = 10, 38, 6)
End If
Next V
End If
但執行 後產生偵錯,不知哪裡不對?
請各位大大指正!
謝謝各位的幫忙! |
|