第一列增加顏色標示。 - Excel程式區

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

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

1^# 跳轉到 »

發表於 2019-5-12 13:51 | 顯示全部帖子

回復 1# ziv976688

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

  謝謝

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

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

2^#

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

回復 1# ziv976688

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

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

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

3^#

發表於 2019-5-13 22:06 | 顯示全部帖子

回復 5# ziv976688

請核對是否所需：

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

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

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

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

4^#

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

TOP

Scott090