[發問] 第一列增加顏色標示。

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2019-5-12 16:29 | 顯示全部帖子

回復 3# Scott090

我不會寫VBA，只是想請教以你的解答再增加第1列的需求，應該如何增寫?
謝謝你!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2019-5-12 16:53 | 顯示全部帖子

本帖最後由 ziv976688 於 2019-5-12 16:55 編輯

回復 2# Scott090
有看到下列2段程式碼:
FinishCatFile:
   With shSample
         .[b2].Resize(colorNo, colNo) = arDATA
         .Range(.[A1], .[AZ1]).Interior.ColorIndex = 0
         GoSub HasTheData

ColoringFields:
         For i = 1 To 7 '(D、E、F、G、H、I、J)
               If i < 7 Then .Cells(1, xNumber(1, i) + 1).Interior.ColorIndex = 6 Else .Cells(1, xNumber(1, i) + 1).Interior.ColorIndex = 8
         Next

         .Copy
   End With

HasTheData:
   xDate = Format(Mid(Cat, 2, 10), "yyyy/m/d")
   With ThisWorkbook.Sheets("總表")
         RowNo = 0
         RowNo = .[A:A].Find(xDate, Lookat:=xlPart).Row
         If RowNo <> 0 Then xNumber = .Range(.Cells(RowNo , "D"), .Cells(RowNo , "J")).Value
   End With       'end of numbers getting

但不知道要如何修改和插入的位列?
請你指教!謝謝你!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

4^#

發表於 2019-5-13 23:47 | 顯示全部帖子

回復 6# Scott090
感謝指導!
應該是下載了同樣的統計App

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2019-5-14 02:13 | 顯示全部帖子

回復 6# Scott090

請問S大:
當DATA!A欄日期=檔案日期，但=DATA!A欄日期的D:J是""(沒有數字)時，則也能繼續執行完成增加"前三小"的工作表和索引標籤標示黃色的需求。
只是工作表的第一列沒有再標示黃色和綠色(EX:2019-05-07)-Ans。
程式碼要怎麼修正?
謝謝你!

測試檔:

Downloads.rar (87.42 KB)

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2019-5-14 12:04 | 顯示全部帖子

回復 9# Scott090
感謝修正!
再次謝謝你的幫忙!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

7^#

發表於 2019-5-16 21:58 | 顯示全部帖子

回復 9# Scott090
測試檔 :

新增資料夾(0516).rar (95.53 KB)
請教一下:
在列65插入 If xNumber(1, i) <> "" Then
在列68插入 End If
當天(0513)測試是OK的。

但今天(0516)測試同樣的攩案，卻跑出下列的情況 :

請問:程式碼列59要怎麼修正?謝謝你!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

8^#

發表於 2019-5-17 04:22 | 顯示全部帖子

本帖最後由 ziv976688 於 2019-5-17 04:29 編輯

回復 9# Scott090
Scott090大大 :
11樓的發言請忽略。謝謝!
比對了一夜，終於知道原因了。
等全部整理好之後再一併請教!
謝謝您!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

9^#

發表於 2019-5-17 05:56 | 顯示全部帖子

回復 9# Scott090
Scott090大大 :
重新製作新的測試檔，又全部測試成功~忙了1個通霄~有點啼笑皆非

11樓和12樓的發言請全部忽略。謝謝!
一再打擾你，尚請見諒!
謝謝您!

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

10^#

發表於 2019-5-18 16:53 | 顯示全部帖子

本帖最後由 ziv976688 於 2019-5-18 16:55 編輯

回復 14# Scott090
與問題的是否解決無關^^"
是我偷懶，以手動更改測試過的檔案的日期和工作表日期(二個日期相同)，再將前3小的工作表刪除，作為新的測試檔案，因而發生11樓的狀況~理論上應該是不會才對，但就是發生了。
總之~後來都用程式主檔跑出來的初始檔案作為測試檔案，就都沒有問題了。
不好意思，打擾你了