返回列表 上一主題 發帖

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

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

本帖最後由 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
謝謝

謝謝大大
VB真的很強
只是我對VB真的一竅不通
coafort 發表於 2022-9-22 14:00



    一起學習!
後學也是從錄製開始學起的,學10年了才懂皮毛!
努力學習,樂此不疲,勤能補拙!

GOOGLE搜尋:巨集錄製
就會有很多教學影片

科技的進步源於惰性
時間該花在更有意義的事!

TOP

回復  coafort


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


謝謝大大
VB真的很強
只是我對VB真的一竅不通:Q

TOP

參考~~
hcm19522 發表於 2022-9-22 09:43



謝謝大大
已經用=(AO34-TODAY()=0)
解決了顯示問題
計算問題還沒解決
計算問題我是用這個
=SUMPRODUCT((AO3:AO39=TODAY())*BG46:BG82)
但是我AO欄位是用計算式顯示日期
=IF(AS3="","",IF(AO3="",TEXT(TODAY(),"YYYY/mm/dd"),AO3))
導致SUMPRODUCT無法判斷
請問大大有方法嗎
謝謝

TOP

本帖最後由 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

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

TOP

回復 6# Andy2483

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


謝謝大大

TOP

回復  coafort


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


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

TOP

回復 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 清除篩選

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

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

TOP

回復  coafort
        謝謝前輩回覆
上百列是可以的
請前輩 試看看
Andy2483 發表於 2022-9-21 19:00


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

TOP

        靜思自在 : 滴水成河。粒米成蘿,勿輕己靈,勿以善小而不為。
返回列表 上一主題