如何在VBA中引用UserForm文本框的值替换XLookup的单元格参数？

核心引用方法 #

直接通过 UserForm名称.文本框名称.Value 获取UserForm中文本框的输入值。比如你的UserForm名为UserForm1，文本框叫txtPhone，就用UserForm1.txtPhone.Value来引用。

修改后的代码示例 #

把原代码中Worksheets("Input").Range("phone")替换为文本框的值，同时建议去掉不必要的Select操作（提升代码效率），直接给目标单元格赋值：

Sub bizlookup()
    ' 替换为你的UserForm和文本框实际名称
    Dim lookupValue As Variant
    lookupValue = UserForm1.txtPhone.Value
    
    ' 直接赋值，无需选中单元格
    Worksheets("Input").Range("company").Value = Application.XLookup( _
        lookupValue, _
        Worksheets("MASTER").Range("S:S"), _
        Worksheets("MASTER").Range("U:U") _
    )
End Sub

额外提示 #

• 要确保UserForm和文本框的名称与代码一致，可在VBA编辑器的「属性窗口」查看或修改名称
• 如果需要处理空输入的情况，可添加简单判断避免错误：

  If Trim(lookupValue) = "" Then
      MsgBox "请输入手机号"
      Exit Sub
  End If
  

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