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

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 251
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

2^#

發表於 2019-5-12 13:51 | 只看該作者

回復 1# ziv976688

   請參考：
  http://forum.twbts.com/viewthrea ... p;extra=&page=5
43#

  謝謝

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 251
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2019-5-12 14:10 | 只看該作者

回復 1# ziv976688

建議版主把自己的程式 PO 出來，可以互相學習，
也較容易找出問題在哪裡。

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

4^#

發表於 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

5^#

發表於 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

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

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 251
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2019-5-13 22:06 | 只看該作者

回復 5# ziv976688

請核對是否所需：

新增資料表(Tab及欄位底色20190513).rar (69.02 KB)

好奇的問，同樣的東西好像有幾個人在問，這是甚麼東西?

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

7^#

發表於 2019-5-13 23:47 | 只看該作者

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

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

8^#

發表於 2019-5-14 02:13 | 只看該作者

回復 6# Scott090

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

測試檔:

Downloads.rar (87.42 KB)

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 251
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

9^#

發表於 2019-5-14 10:51 | 只看該作者

回復 8# ziv976688

   請加入紅色自的指令，用以避開有空白碼的錯誤：
   For i = 1 To 7 '(D、E、F、G、H、I、J)
                If xNumber(1, i) <> "" Then
                     j = Rng.Find(xNumber(1, i), LookIn:=xlValues, searchorder:=xlByColumns).Column
                     If i < 7 Then .Cells(1, j).Interior.ColorIndex = 6 Else .Cells(1, j).Interior.ColorIndex = 4
                End If
         Next

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

10^#

發表於 2019-5-14 12:04 | 只看該作者

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