Excel VBA：用户窗体文本框能否基于工作表表格实现动态数据验证？

别纠结文本框了，用**组合框（ComboBox）**完全能满足你的需求——既可以从列表选已有姓名，还允许输入新姓名并自动添加到数据源表格，而且能实现动态更新列表。下面分两种常用方法实现：

方法1：利用Excel结构化表格（ListObject）实现自动动态范围 #

如果你已经把联系人姓名存到了Excel的结构化表格（插入→表格创建的带表头表），这是最省心的方式：

假设你的结构化表格名为tblContacts，姓名列表在「姓名」列，用户窗体里的组合框名为cboReceiver。

1. 窗体初始化加载数据：
   打开用户窗体的代码窗口，粘贴以下代码：

   Private Sub UserForm_Initialize()
       ' 清空组合框原有内容
       cboReceiver.Clear
       ' 引用结构化表格的姓名列数据（跳过表头）
       Dim nameRange As Range
       Set nameRange = ThisWorkbook.Worksheets("联系人表").ListObjects("tblContacts").ListColumns("姓名").DataBodyRange
       
       ' 如果表格有数据，逐个添加到组合框
       If Not nameRange Is Nothing Then
           Dim cell As Range
           For Each cell In nameRange
               cboReceiver.AddItem cell.Value
           Next cell
       End If
       
       ' 允许用户输入新内容（可选，按需开启）
       cboReceiver.Style = fmStyleDropDownCombo
   End Sub
   

2. 实时刷新组合框（数据源更新时）：
   若希望联系人表格新增姓名后，打开窗体自动加载新数据，上面的初始化代码已足够（每次打开都会读取最新数据）。如果要在窗体打开状态下实时刷新，给联系人表格所在工作表加Change事件：

   ' 打开联系人表的代码窗口，粘贴以下代码
   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 检查修改的单元格是否在姓名列
       Dim nameCol As Integer
       nameCol = Me.ListObjects("tblContacts").ListColumns("姓名").Index
       
       If Not Intersect(Target, Me.ListObjects("tblContacts").ListColumns("姓名").Range) Is Nothing Then
           ' 如果窗体正在打开，刷新组合框
           If UserForms.Count > 0 Then
               Dim frm As UserForm
               Set frm = UserForms("你的窗体名称")
               frm.cboReceiver.Clear
               ' 重新加载数据
               Dim nameRange As Range
               Set nameRange = Me.ListObjects("tblContacts").ListColumns("姓名").DataBodyRange
               If Not nameRange Is Nothing Then
                   Dim cell As Range
                   For Each cell In nameRange
                       frm.cboReceiver.AddItem cell.Value
                   Next cell
               End If
           End If
       End If
   End Sub
   

方法2：普通单元格区域实现动态范围 #

如果没用结构化表格，用普通单元格区域也能动态获取最后一行数据：

假设姓名存放在「联系人表」的A列，表头在A1，数据从A2开始：

1. 窗体初始化加载数据：

   Private Sub UserForm_Initialize()
       cboReceiver.Clear
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Worksheets("联系人表")
       ' 获取姓名列最后一行的行号
       Dim lastRow As Long
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       
       ' 如果有数据（至少A2有内容）
       If lastRow >= 2 Then
           Dim i As Long
           For i = 2 To lastRow
               cboReceiver.AddItem ws.Cells(i, "A").Value
           Next i
       End If
       
       ' 允许输入新内容
       cboReceiver.Style = fmStyleDropDownCombo
   End Sub
   

2. 允许用户输入新姓名并添加到表格：
   若希望用户在组合框输入新姓名后自动添加到联系人表格，可在组合框的LostFocus事件里处理：

   Private Sub cboReceiver_LostFocus()
       Dim newName As String
       newName = Trim(cboReceiver.Value)
       If newName = "" Then Exit Sub
       
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Worksheets("联系人表")
       Dim lastRow As Long
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       
       ' 检查姓名是否已存在
       Dim exists As Boolean
       exists = False
       Dim i As Long
       For i = 2 To lastRow
           If ws.Cells(i, "A").Value = newName Then
               exists = True
               Exit For
           End If
       Next i
       
       ' 如果不存在，添加到表格和组合框
       If Not exists Then
           ws.Cells(lastRow + 1, "A").Value = newName
           cboReceiver.AddItem newName
       End If
   End Sub
   

关键注意点 #

• 组合框的Style属性设为fmStyleDropDownCombo（默认是fmStyleDropDownList），才能同时支持选择和手动输入。
• 所有代码里的工作表名称、表格名称、控件名称，要替换成你实际使用的名称。
• 结构化表格的优势是新增行时会自动扩展范围，无需手动调整数据区域。

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