打开UserForm时内容空白，自动加载数据功能失效求助

问题描述 #

点击按钮执行Button8_Click()打开UserForm1时，窗体内容空白。该窗体原本会通过UserForm1_Initialize()事件自动加载Sheet4中A3、B3、C3、D3单元格的数据到对应控件，此前功能正常但突然失效。

相关代码 #

打开用户窗体代码：

Sub Button8_Click()
UserForm1.Show
End Sub

初始化加载数据代码：

Option Explicit

Private Sub UserForm1_Initialize()

TBITEMNUMBER.Value = Sheets("Sheet4").Range("A3").Value
COLORS.Value = Sheets("Sheet4").Range("B3").Value
ITEMDESCRIPTION.Value = Sheets("Sheet4").Range("C3").Value
DESCRIPTION2.Value = Sheets("Sheet4").Range("C3").Value
SEARCHWORDS.Value = Sheets("Sheet4").Range("D3").Value
 
End Sub

排查与解决步骤 #

• 确认事件代码存放位置：打开VBE（Alt+F11），双击左侧工程窗口中的UserForm1，确保UserForm1_Initialize()代码存放在该窗体的专属代码模块内，而非标准模块或工作表模块。

• 核对控件名称一致性：右键UserForm1上的每个控件，选择“属性”查看名称，确保和代码中的TBITEMNUMBER、COLORS、ITEMDESCRIPTION、DESCRIPTION2、SEARCHWORDS完全一致（VBA对控件名称大小写敏感）。

• 验证Sheet4与数据有效性：

  • 右键工作表标签选择“查看代码”，在属性窗口查看(Name)字段，确认工作表的VBA内部名称确实是“Sheet4”（注意区分工作表标签名和VBA内部名称）。
  • 检查Sheet4的A3、B3、C3、D3单元格是否有数据，未被清空或隐藏。

• 添加错误捕获定位问题：修改初始化代码，加入错误捕获逻辑，运行时直接获取错误详情：

Option Explicit

Private Sub UserForm1_Initialize()
    On Error GoTo ErrHandler
    
    TBITEMNUMBER.Value = Sheets("Sheet4").Range("A3").Value
    COLORS.Value = Sheets("Sheet4").Range("B3").Value
    ITEMDESCRIPTION.Value = Sheets("Sheet4").Range("C3").Value
    DESCRIPTION2.Value = Sheets("Sheet4").Range("C3").Value
    SEARCHWORDS.Value = Sheets("Sheet4").Range("D3").Value
    
    Exit Sub
ErrHandler:
    MsgBox "初始化出错：" & Err.Description & " 错误代码：" & Err.Number
End Sub

运行窗体时若弹出错误提示，可直接定位问题（如控件不存在、工作表引用错误等）。

• 排查干扰代码：检查是否存在UserForm1_Activate()等其他事件代码覆盖控件值，或有其他代码修改了Sheet4的目标单元格数据。

• 修复VBA工程损坏：若上述步骤无效，可能是VBA工程文件损坏：

  1. 右键UserForm1和相关模块，选择“导出文件”备份代码。
  2. 删除原工程中的UserForm1和对应模块。
  3. 重新导入备份的代码文件。
  4. 保存文件并重启Excel后测试。

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