关于自动根据日期定位单元格并选择单元格改变颜色

mb1867

大佬们，请教一下。就是每当打开这个工作簿。当我选择工作表  “1-库存统计 ”时，自动定位到当前日期，并且将当前日期对应的单元格，填充为指定颜色。（后期在下面新增单元格也能适应这个规则）

同样的道理，当我选择“2-辅料库存”时，一样的操作。
请问一下，这个能用VBA实现吗

zxsea_7426

增加一个触发事件（工作表激活即运行代码）

mb1867

zxsea_7426 发表于 2023-4-13 09:33
增加一个触发事件（工作表激活即运行代码）

不知道怎么写这个代码

仙女配凡人

在1-库存统计工作表对象添加代码
Private Sub Worksheet_Activate()
    Dim d$, rng As Range, target As Range
    d = Date
    Set rng = Rows(1)
    Set target = rng.Find(d)
    If Not target Is Nothing Then target.Interior.Color = vbYellow '黄色，自己改需要的颜色
End Sub

zxsea_7426

1. Private Sub Worksheet_Activate()
   
2.     col_0 = Cells(2, Columns.Count).End(1).Column
   
3.     For j = 1 To col_0
   
4.         If Cells(2, j) = Date Then
   
5.             col_1 = j
   
6.             Exit For
   
7.         End If
   
8.     Next j
   
9.     Cells.Interior.Color = xlNone
   
10.     If col_1 Then
    
11.         Columns(col_1).Interior.Color = 16776960     '颜色根据自己喜好调整
    
12.     End If
    
13. End Sub

复制代码

1. Private Sub Worksheet_Activate()
   
2.     col_0 = Cells(1, Columns.Count).End(1).Column
   
3.     For j = 1 To col_0
   
4.         If Cells(1, j) = (Date) Then
   
5.             col_1 = j
   
6.             Exit For
   
7.         End If
   
8.     Next j
   
9.     Cells.Interior.Color = xlNone
   
10.     If col_1 Then
    
11.         Columns(col_1).Interior.Color = 16776960     '颜色根据自己喜好调整
    
12.     End If
    
13. End Sub

复制代码

zxsea_7426

我全列加底色了。

tanglf188

.................

mb1867

zxsea_7426 发表于 2023-4-13 10:19
我全列加底色了。

好的，非常感谢，我先学习下代码。