固定表头
打开excel工作簿后自动跳转到当前日期所在列
当前日期:5月2日
右键工作表名查看代码
双击打开ThisWorkbook中输入如下,主要实现一打开excel就自动定位当前日期
Private Sub Workbook_Open()Dim C As Integer, W As WorksheetFunction, D As LongSet W = WorksheetFunctionD = DateC = W.Match(D, Sheet1.Range("2:2"), 0)'Sheet1改成自己的工作表名'Range(表中日期所处的行数),我的放在第二行就是2:2Sheet1.Cells(2, C).Select'数字同上End Sub
双击打开当前sheet(Sheet1)中输入如下,主要实现跳转到其他工作表再跳转回来当前工作表也能实现自动定位当前日期
Private Sub Worksheet_Activate()Dim C As Integer, W As WorksheetFunction, D As LongSet W = WorksheetFunctionD = DateC = W.Match(D, Me.Range("2:2"), 0)Me.Cells(2, C).SelectEnd Sub
当前日期高亮
选择日期所在行,开始>条件格式,如下图步骤