问：Excel工作表第一行的每一列都是按顺序排列的日期。打开工作簿时如何自动跳转到当前日期所在的列？如下图，如果今天是4月6日，2月19日，打开工作簿后会自动选择该列。

很简单。在工作簿_打开过程中输入以下代码：

私有子工作簿_打开()

将周调暗为工作表

缩小搜索范围

将列调暗为长

设置工作周=工作表(“工作表1”)

第一行最后一列数据的列号。

lngLastColumn=wks。范围(“A1”)。结束(xlToRight)。圆柱

第一行中的数据区域。

设置rngSearch=wks。范围(“A1”)。Offset(，)。调整大小(1，lngLastColumn)

找到当前日期所在的单元格并激活它。

rngSearch。查找(日期)。使活动

末端接头

打开工作簿时，代码首先确定工作表Sheet1第一行中所有已使用的单元格区域，然后使用Find方法在该区域中查找当前日期并激活当前日期所在的单元格。

请注意，代码应该放在此工作簿模块中。

代码的图片版本如下：