嘿，这个需求其实不难实现——因为Excel Solver本质还是依赖单元格区域完成计算，我们只需要加一个文本框↔单元格的中转层就行。简单来说就是：把用户在文本框输入的运输成本写到Solver依赖的输入单元格，运行求解后，再把计算出的物品数量从输出单元格读取到结果文本框里。下面是具体步骤：

1. 添加输入输出文本框 #

先在Excel里创建需要的文本框控件：

• 打开「开发工具」选项卡（如果没显示，就在Excel选项里勾选「开发工具」）
• 点击「插入」→ 选择「ActiveX控件」里的「文本框（ActiveX控件）」
• 根据你的运输成本输入项数量，添加对应数量的输入文本框；再添加一个用于显示结果的输出文本框
• 进入「设计模式」（开发工具里的按钮），选中文本框，在右侧「属性」窗口修改它们的Name属性（比如输入框叫txtCost_1、txtCost_2...，输出框叫txtResult），方便后续VBA代码引用

2. 修改VBA代码，整合文本框交互 #

把原来的Solver代码和文本框读写逻辑整合起来，示例代码如下：

Sub RunSolverWithTextBoxInput()
    ' --------------------------
    ' 第一步：把文本框输入写入Solver输入单元格
    ' --------------------------
    ' 假设你的运输成本对应单元格是B2:B10，根据实际情况替换
    Range("B2").Value = txtCost_1.Value
    Range("B3").Value = txtCost_2.Value
    Range("B4").Value = txtCost_3.Value
    ' 继续添加所有运输成本输入项的对应关系...

    ' --------------------------
    ' 第二步：执行Solver求解
    ' --------------------------
    ' 保留你原来的Solver配置，这里直接复用你的代码
    SolverOk SetCell:="$I$35", MaxMinVal:=2, ValueOf:=0, ByChange:= _
        "$O$9:$S$28,$Q$5:$S$5", Engine:=2, EngineDesc:="Simplex LP"
    ' UserFinish:=True 可以跳过求解完成的弹窗，直接执行后续代码
    SolverSolve UserFinish:=True

    ' --------------------------
    ' 第三步：把Solver结果读取到输出文本框
    ' --------------------------
    Dim resultContent As String
    resultContent = "计算得到的所需物品数量：" & vbCrLf & vbCrLf
    
    ' 遍历输出单元格区域，把结果整理成可读文本
    Dim targetCell As Range
    For Each targetCell In Range("$O$9:$S$28,$Q$5:$S$5")
        ' 只显示有数值的项（避免显示大量0）
        If targetCell.Value > 0 Then
            resultContent = resultContent & targetCell.Address(False, False) & ": " & targetCell.Value & vbCrLf
        End If
    Next targetCell
    
    ' 把整理好的内容写入输出文本框
    txtResult.Value = resultContent
End Sub

3. 给用户添加触发按钮 #

为了让用户方便执行操作：

• 同样在「开发工具→插入」里选择「命令按钮（ActiveX控件）」
• 进入设计模式，修改按钮的Caption属性为「开始计算」
• 右键按钮→「查看代码」，在按钮的点击事件里调用上面的宏：

Private Sub CommandButton1_Click()
    RunSolverWithTextBoxInput
End Sub

注意事项 #

• 确保文本框的Name和VBA代码里引用的完全一致，否则会报错
• 运输成本的文本框和输入单元格的对应关系要准确，不能搞混位置
• 如果你的输出区域有特殊格式需求，可以调整第三步里的文本拼接逻辑（比如按分类显示、保留小数位数等）
• 记得在使用前确保Solver加载项已经启用（开发工具→加载项→勾选「Solver加载项」）

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