如何将Windows 11计算器结果保存至Userform Textbox？求VBA实现代码

一、调用外部Windows计算器并获取结果 #

通过Shell启动计算器，结合Windows API激活窗口、模拟复制操作，将结果读取到Userform的Textbox中。

代码实现（需放在Userform模块或标准模块） #

' 声明Windows API函数，放在模块顶部
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As LongPtr

Private Sub cmdLaunchCalculator_Click()
    Dim calcHWnd As LongPtr
    
    ' 启动Windows 11计算器
    Shell "calc.exe", vbNormalFocus
    ' 等待计算器加载完成（可根据系统性能调整等待时长）
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 查找计算器窗口句柄（Windows 11计算器类名为"ApplicationFrameWindow"）
    calcHWnd = FindWindow("ApplicationFrameWindow", "计算器")
    
    If calcHWnd <> 0 Then
        ' 激活计算器窗口
        SetForegroundWindow calcHWnd
        ' 发送Ctrl+C复制当前计算结果
        SendKeys "^c", True
        ' 等待复制操作完成
        Application.Wait Now + TimeValue("00:00:01")
        ' 将剪贴板内容写入目标Textbox
        Me.txtResult.Text = GetClipboardText()
    Else
        MsgBox "未找到计算器窗口", vbExclamation
    End If
End Sub

' 读取剪贴板文本的辅助函数
Private Function GetClipboardText() As String
    Dim dataObj As Object
    Set dataObj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    On Error Resume Next
    GetClipboardText = dataObj.GetText
    On Error GoTo 0
End Function

二、嵌入式计算器Userform（类似Trevor Eyre DatePicker风格） #

如果需要直接在Userform内集成计算器（无需调用外部程序），可自定义一个带计算功能的窗体，以下是完整示例：

1. 窗体布局 #

在Userform中添加以下控件：

• 1个TextBox（命名为txtDisplay，用于显示输入和结果）
• 16个CommandButton：
  • 数字按钮：cmd0-cmd9（Caption分别设为0-9）
  • 运算符按钮：cmdPlus（+）、cmdMinus（-）、cmdMultiply（*）、cmdDivide（/）
  • 功能按钮：cmdEquals（=）、cmdClear（C）

2. 窗体代码实现 #

Private currentInput As String
Private calcOperator As String
Private firstOperand As Double

' 清除按钮点击事件
Private Sub cmdClear_Click()
    currentInput = ""
    calcOperator = ""
    firstOperand = 0
    txtDisplay.Text = ""
End Sub

' 数字按钮统一处理事件（可将所有数字按钮的Click事件绑定到该过程）
Private Sub cmdNumber_Click(sender As CommandButton)
    currentInput = currentInput & sender.Caption
    txtDisplay.Text = currentInput
End Sub

' 运算符按钮统一处理事件（将所有运算符按钮的Click事件绑定到该过程）
Private Sub cmdOperator_Click(sender As CommandButton)
    If currentInput <> "" Then
        firstOperand = CDbl(currentInput)
        calcOperator = sender.Caption
        currentInput = ""
        txtDisplay.Text = calcOperator
    End If
End Sub

' 等于按钮点击事件
Private Sub cmdEquals_Click()
    Dim secondOperand As Double
    Dim calcResult As Double
    
    If currentInput <> "" And calcOperator <> "" Then
        secondOperand = CDbl(currentInput)
        Select Case calcOperator
            Case "+"
                calcResult = firstOperand + secondOperand
            Case "-"
                calcResult = firstOperand - secondOperand
            Case "*"
                calcResult = firstOperand * secondOperand
            Case "/"
                If secondOperand <> 0 Then
                    calcResult = firstOperand / secondOperand
                Else
                    MsgBox "除数不能为0", vbCritical
                    Exit Sub
                End If
        End Select
        txtDisplay.Text = CStr(calcResult)
        currentInput = CStr(calcResult) ' 保留结果用于后续计算
        calcOperator = ""
    End If
End Sub

' 获取计算结果的公共属性（供父窗体调用）
Public Property Get CalculationResult() As String
    CalculationResult = txtDisplay.Text
End Property

' 窗体初始化事件
Private Sub UserForm_Initialize()
    cmdClear_Click
End Sub

3. 主窗体调用示例 #

在需要使用计算器的主Userform中，添加按钮并编写以下代码：

Private Sub cmdOpenCalcForm_Click()
    ' 显示自定义计算器窗体
    CalculatorForm.Show vbModal
    ' 将计算结果写入主窗体的Textbox
    Me.txtTarget.Text = CalculatorForm.CalculationResult
    ' 释放计算器窗体资源
    Unload CalculatorForm
End Sub

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