Excel VBA InputBox Type=0模式下公式输入无交互问题求助

你遇到的输入内容被覆盖的情况是VBA内置Application.InputBox设置Type:=0（公式类型）的固有设计限制：

• 该模式下点击工作表单元格时，输入框会直接用选中单元格地址替换整个输入框的已有内容，不会识别光标位置插入引用，与工作表单元格原生的公式编辑逻辑不一致
• 你提供的现有代码无语法错误，仅调用的内置控件功能不符合预期需求

方案1：内置InputBox轻量优化 #

无需调整现有窗体结构，通过逻辑判断实现引用拼接避免全量覆盖，兼容32/64位Office，代码如下：

Option Explicit

Dim errFormula As String
' 声明API用于适配输入框内容识别（32位/64位兼容）
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function GetDlgItem Lib "user32" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long) As LongPtr
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
#End If

' 用户窗体中点击生成公式按钮后触发运行
Private Sub cmdBformula_Click()
    Dim newForm As Variant
    Dim oldContent As String
    
    ' 读取已有公式作为初始值
    oldContent = errFormula
    
    Do
        newForm = Application.InputBox("Enter Formula for " & Range(Replace(RefEdit1.Value, "$", ""))(1).Address(False, False) _
        & " : ", Title:="ERROR Value Formula Editor", Default:=oldContent, Type:=0)
        
        ' 用户点击取消直接退出
        If newForm = False Then Exit Sub
        
        ' 判断新输入内容是否为纯单元格引用，如果是则拼接到原有内容末尾而非替换
        If newForm Like "=*" And Not newForm Like "*[!$A-Za-z0-9:!()]*" And oldContent <> "" And newForm <> oldContent Then
            oldContent = oldContent & Right(newForm, Len(newForm) - 1)
        Else
            oldContent = newForm
            Exit Do
        End If
    Loop
    
    errFormula = oldContent
End Sub

优化逻辑说明：

• 自动识别用户点击单元格生成的纯引用内容，将其拼接到已有输入内容的末尾而非直接替换
• 保留用户手动修改内容的能力，点击取消按钮可直接退出

方案2：自定义公式输入窗体（完全匹配原生体验） #

如果需要实现光标处插入引用、支持复杂公式编辑等全量能力，建议放弃内置InputBox，开发自定义输入窗体：

1. 新增空白窗体，添加1个文本框（用于公式编辑）、1个RefEdit控件（用于单元格选择）、确认/取消两个按钮
2. 开启文本框的MultiLine、EnterKeyBehavior属性为True
3. 监听RefEdit的Change事件，将选中的单元格地址插入到文本框当前光标位置
   该方案逻辑完全可控，可实现与Excel原生公式编辑完全一致的交互体验。

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