Worksheet_Calculate()事件中全局变量值始终异常的技术求助

咱们一步步拆解排查这个问题，从最容易踩坑的点开始：

1. 先确认Workbook_Open事件是否真的触发了 #

你加了MsgBox验证，但如果打开工作簿时宏被系统禁用，这个事件根本不会执行，NumRows会保持Long类型的默认值0。你可以手动运行一次Workbook_Open宏（按Alt+F8找到它执行），看看MsgBox是否弹出正确数值——如果手动运行正常，那就是宏权限的问题，调整信任中心设置允许当前工作簿的宏运行即可。

2. 检查工作表引用是否准确 #

Worksheets("TableSize")是按工作表的显示名称引用的，如果这个工作表被改名、或者存在同名的隐藏工作表，就会导致引用错误。更稳妥的方式是用工作表的代码名（在VBA编辑器的属性窗口里，工作表的(Name)属性，默认是Sheet1、Sheet2这类），比如假设TableSize的代码名是wsTableSize，把赋值代码改成：

NumRows = wsTableSize.Range("A1").Value

这样不管工作表显示名怎么改，都能精准定位到目标工作表。

3. 排查数据类型不匹配问题 #

NumRows是Long数值类型，如果TableSize!A1里的内容是文本格式的数字（比如单元格格式设为文本后输入的数字），直接赋值给Long变量会失败，变量会被设为0。你可以先把A1的单元格格式改成数值型，或者在赋值时强制做类型转换：

NumRows = CLng(Worksheets("TableSize").Range("A1").Value)

这样即使是文本格式的数字，也能转换成合法的Long类型值。

4. 确认全局变量的作用域是否正确 #

你是在哪里声明Public NumRows As Long的？如果是在ThisWorkbook模块里声明的，其他模块调用时需要加上ThisWorkbook.前缀，比如MsgBox ThisWorkbook.NumRows；更推荐的做法是把全局变量放在标准模块（比如Module1）里声明，这样所有模块都能直接调用，不用加前缀，避免作用域混淆。

5. 排查是否有其他代码修改了NumRows #

因为是全局变量，其他宏如果不小心给它赋值了错误的值，也会导致结果不对。你可以在VBA编辑器里按Ctrl+F搜索整个项目里的NumRows，看看有没有其他地方修改了这个变量的内容。

先从手动运行Workbook_Open开始排查，能快速定位是事件触发问题还是代码本身的问题，再按上面的顺序逐一验证即可。

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