12
返回列表 上一主題 發帖

請問如何讓其他欄位依照今天日期顯示不同底色

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-9-21 14:30 | 只看該作者

請問如何讓其他欄位依照今天日期顯示不同底色

本帖最後由 coafort 於 2022-9-21 14:34 編輯

請問各位大大
我AO這個欄位是日期
BA這個欄位是數值
我想讓今天日期的BA底色不同
比方
AO3是2022/9/20 BA3欄位底色正常
AO4是2022/9/21 BA4欄位底色變成紫色
請問該如何設計？
另外請教
如何設計可以只總計今日BA數值
比方
AO3是2022/9/20 BA3數值4
AO4是2022/9/21 BA4數值5
AO5是2022/9/21 BA5數值6
然後AB2顯示BA4+BA5
謝謝
收藏 分享

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 2022-9-21 16:48 | 只看該作者
回復 1# coafort


    謝謝前輩發表此主題
VBA方法供參考
後學練習3種方法
  1. Option Explicit
  2. Sub TEST_1()
  3. '讓今天日期的BA底色不同
  4. '只總計AO欄是今日的BA數值在BA2
  5. Application.ScreenUpdating = False
  6. Dim i
  7. [BA2] = ""
  8. For i = 3 To Cells(Rows.Count, "AO").End(xlUp).Row
  9.    If Cells(i, "AO") = Date Then
  10.       Cells(i, "AO").Interior.ColorIndex = 17
  11.       [BA2] = [BA2] + Cells(i, "BA")
  12.       Else
  13.          Cells(i, "AO").Interior.ColorIndex = xlNone
  14.    End If
  15. Next
  16. End Sub
  17. Sub TEST_2()
  18. '讓今天日期的BA底色不同
  19. '只總計AO欄是今日的BA數值在BA2
  20. Application.ScreenUpdating = False
  21. Dim i As Range, Y
  22. Set Y = CreateObject("Scripting.Dictionary")
  23. [BA2] = ""
  24. For Each i In Range([AO3], Cells(Rows.Count, "AO").End(3))
  25.    Y.Add i, i.Item(1, 13)
  26.    If i = Date Then
  27.       i.Interior.ColorIndex = 17
  28.       [BA2] = [BA2] + Y(i)
  29.       Else
  30.          i.Interior.ColorIndex = xlNone
  31.    End If
  32. Next
  33. End Sub
  34. Sub TEST_3()
  35. '讓今天日期的BA底色不同
  36. '只總計AO欄是今日的BA數值在BA2
  37. Application.ScreenUpdating = False
  38. Dim R&, Y, Z As Range, xR As Range
  39. Set Y = CreateObject("Scripting.Dictionary")
  40. [BA2] = ""
  41. Set Z = Range([AO3], Cells(Rows.Count, "AO").End(3))
  42. Z.Interior.ColorIndex = xlNone
  43. For Each xR In Z
  44.    Y(xR.Value) = Y(xR.Value) + xR.Item(1, 13).Value
  45.    If xR = Date Then
  46.       xR.Interior.ColorIndex = 17
  47.    End If
  48. Next
  49. [BA2] = Y(Date)
  50. End Sub
複製代碼

TOP

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
3#
發表於 2022-9-21 18:40 | 只看該作者
回復  coafort


    謝謝前輩發表此主題
VBA方法供參考
後學練習3種方法
Andy2483 發表於 2022-9-21 16:48



謝謝大大
但是我有上百列
請問這程式是否能用？
謝謝

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
4#
發表於 2022-9-21 19:00 | 只看該作者
回復 3# coafort
        謝謝前輩回覆
上百列是可以的
請前輩 試看看

TOP

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
5#
發表於 2022-9-22 07:14 | 只看該作者
回復  coafort
        謝謝前輩回覆
上百列是可以的
請前輩 試看看
Andy2483 發表於 2022-9-21 19:00


請問上百列需要改什麼呢？
謝謝大大

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
6#
發表於 2022-9-22 08:37 | 只看該作者
回復 5# coafort


    謝謝前輩回覆
簡易製作模擬情境範例,請前輩測試看看


TEST_20220922.zip (44.86 KB)
  1. Sub 亂數佈陣()
  2. Dim Brr(1 To 1000, 1 To 13), i, E
  3. Cells.Interior.ColorIndex = xlNone
  4. Call 清除篩選

  6. Brr(1, 1) = "日期"
  7. Brr(1, 13) = "今日合計"
  8. For i = 2 To UBound(Brr)
  9.    Brr(i, 1) = "=TODAY() + " & Int(Rnd() * 100) Mod 5
  10.    Brr(i, 13) = Int(Rnd() * 100)
  11. Next
  12. With [AO2].Resize(UBound(Brr), UBound(Brr, 2))
  13.    .Value = Brr
  14.    .Value = .Value
  15. End With
  16. End Sub
  17. Sub 篩選今天()
  18. Call 清除篩選

  20. If Application.Version >= 12 Then
  21.    Selection.AutoFilter Field:=41, Criteria1:= _
  22.         xlFilterToday, Operator:=xlFilterDynamic
  23.    Else
  24.       uDATE = Date
  25.       Selection.AutoFilter Field:=41, Criteria1:=uDATE, Operator:=xlAnd
  26. End If
  27. End Sub
  28. Sub 清除篩選()
  29. If Sheets(1).AutoFilter Is Nothing Then
  30.    [A2:BA2].AutoFilter
  31.    Else
  32.    If Sheets(1).FilterMode = True Then Sheets(1).ShowAllData
  33. End If
  34. End Sub
複製代碼

TOP

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
7#
發表於 2022-9-22 08:53 | 只看該作者
回復  coafort


    謝謝前輩回覆
簡易製作模擬情境範例,請前輩測試看看
Andy2483 發表於 2022-9-22 08:37


請問大大
可以設計成不用按篩選
然後會自己篩選嗎
謝謝大大

TOP

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
8#
發表於 2022-9-22 09:14 | 只看該作者
回復 6# Andy2483

還是說設定格式化條件
有辦法設定公式
讓今天日期的指定欄位變色？


謝謝大大

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-21 

熱烈參與勳章
9#
發表於 2022-9-22 09:43 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/588394112

參考~~
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
10#
發表於 2022-9-22 09:53 | 只看該作者
本帖最後由 Andy2483 於 2022-9-22 09:57 編輯

回復 8# coafort


    謝謝前輩回覆
1.後輩對格式化條件不熟,工作空檔正積極學習VBA
2.後學運用觸發方式範例如下
TEST_20220922_1.zip (45.8 KB)

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3.    If .Column = [AO3].Column And .Count = 1 And .Row >= 3 Then
  4.       Call TEST_1
  5.       
  6.    End If
  7. End With
  8. End Sub
複製代碼

TOP

        靜思自在 : 多做多得。少做多失。
12
返回列表 上一主題