Excel VBA表单点击计算按钮后无结果显示问题求助

问题代码中的核心错误 #

• 变量声明不规范：Dim Result, X, Y As Long 仅Y被声明为Long类型，Result和X默认是Variant类型，可能引发计算异常
• 无上下文的点引用：X = .txtA.Value 中的.没有对应With块，VBA无法识别控件所属表单
• 表单名称拼写错误：With frmFrom 应为With frmForm（拼写错误：From→Form）
• 控件赋值不严谨：.txtC = Result 应明确使用.Value属性，避免属性混淆

修复后的完整代码 #

Sub Calc()
    ' 明确声明所有变量类型
    Dim Result As Long, X As Long, Y As Long
    
    ' 错误处理：捕获非数字输入
    On Error GoTo ErrorHandler
    
    ' 使用With块统一表单上下文
    With frmForm
        X = CLng(.txtA.Value)
        Y = CLng(.txtB.Value)
        Result = X * Y
        .txtC.Value = Result
    End With
    
    Exit Sub ' 正常执行后跳过错误处理
    
ErrorHandler:
    MsgBox "请在txtA和txtB中输入有效数字！", vbExclamation, "输入错误"
End Sub

额外优化建议 #

• 优先将代码写在表单按钮的Click事件中，而非全局宏，避免绑定错误
• 若需支持小数计算，可将Long类型改为Double，转换函数改用CDbl()

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