固定表头、打开excel for Mac后自动跳转到当前日期所在列并高亮显示

固定表头

打开excel工作簿后自动跳转到当前日期所在列

当前日期：21年5月2日

右键工作表名查看代码

双击打开ThisWorkbook中输入如下，主要实现一打开excel就自动定位当前日期

Private Sub Workbook_Open()
Dim C As Integer, W As WorksheetFunction, D As Long
Set W = WorksheetFunction
D = Date
C = W.Match(D, Sheet1.Range("2:2"), 0)
'Sheet1改成自己的工作表名
'Range(表中日期所处的行数)，我的放在第二行就是2:2
Sheet1.Cells(2, C).Select
'数字同上
End Sub

双击打开当前sheet（Sheet1）中输入如下，主要实现跳转到其他工作表再跳转回来当前工作表也能实现自动定位当前日期

Private Sub Worksheet_Activate()
Dim C As Integer, W As WorksheetFunction, D As Long
Set W = WorksheetFunction
D = Date
C = W.Match(D, Me.Range("2:2"), 0)
Me.Cells(2, C).Select
End Sub

当前日期高亮

选择日期所在行，开始>条件格式，如下图步骤