求助：创建打开工作表时自动按当前日期选择对应列的VBA宏

问题背景 #

工作簿包含300+项目工作表，每个表的第4行是2017年1月1日至2031年12月1日的每月日期（H4对应2017年1月1日），A-F列固定冻结，窗口冻结在G5位置。需求是打开工作表时，自动定位到当前月份对应的列，确保屏幕显示A-F列、上月、当月及后续月份。

原宏通过硬编码列号110实现定位，无法随月份自动更新；尝试调用另一工作表中命名为Screen_Column的单元格值时，因代码逻辑错误失效。

错误代码问题分析 #

你之前的代码把变量赋值逻辑搞反了，应该是把命名单元格的值赋给变量，而非反过来，导致变量COLU始终为空：

' 错误逻辑：空变量赋值给命名单元格，COLU无有效值
Dim COLU As Integer
Screen_Column = COLU

解决方案 #

1. 修正赋值逻辑+正确引用命名单元格

Screen_Column作为跨工作表的命名单元格，可直接通过命名范围的Value属性取值，无需额外指定工作表（命名范围本身已关联对应工作表）。

2. 优化定位逻辑（避免不必要的Select操作）

VBA中Select操作效率低且易引发错误，直接设置窗口的ScrollColumn属性即可实现滚动定位，同时保留冻结列的显示效果。

完整可用代码 #

Sub AutoLocateCurrentMonth()
    Dim targetCol As Integer
    
    ' 从命名单元格Screen_Column读取目标列号
    targetCol = ThisWorkbook.Names("Screen_Column").RefersToRange.Value
    
    ' 定位到G6确保冻结列显示正常（若冻结设置稳定可省略）
    Range("G6").Select
    
    ' 设置窗口滚动到目标列，保持A-F冻结列可见
    ActiveWindow.ScrollColumn = targetCol
    
    ' 可选：选中目标列第19行单元格，强化定位视觉效果
    Cells(19, targetCol).Select
End Sub

额外优化：自动计算目标列号（无需手动维护Screen_Column） #

如果不想手动更新Screen_Column的数值，可直接通过当前日期计算对应列号，彻底实现自动化：

Sub AutoLocateCurrentMonth_AutoCalc()
    Dim currentDate As Date
    Dim startDate As Date
    Dim monthDiff As Integer
    Dim targetCol As Integer
    
    ' 基准日期：H4对应2017年1月1日，列号为8
    startDate = DateSerial(2017, 1, 1)
    currentDate = DateSerial(Year(Date), Month(Date), 1)
    
    ' 计算当前月份与基准月份的差值，加上基准列号8得到目标列
    monthDiff = DateDiff("m", startDate, currentDate)
    targetCol = 8 + monthDiff
    
    ' 滚动到目标列
    ActiveWindow.ScrollColumn = targetCol
    Cells(19, targetCol).Select
End Sub

触发方式 #

要实现打开工作表时自动执行，可在对应工作表的Worksheet_Activate事件中调用上述宏：

Private Sub Worksheet_Activate()
    AutoLocateCurrentMonth ' 或调用AutoLocateCurrentMonth_AutoCalc
End Sub

（注：若要给300+工作表批量添加事件，可通过VBA遍历工作表插入代码，或使用工作簿级别的Workbook_SheetActivate事件）

内容的提问来源于stack exchange，提问作者Madcap