Controls Collection 用名字动态引用控件 · Excel

重点内容

桌面版通用（Excel 365 / 2021 / 2019 等）。

Private Sub CommandButton1_Click()
  UserForm1.Show vbModeless
End Sub

📌 vbModeless 让表单打开后，工作表本身仍然可以点击操作，不会被表单挡住无法互动（默认是 Modal，工作表会被锁住）。

打开方式	工作表能否同时操作	适合场景
`UserForm1.Show`（默认 Modal）	不能，表单没关闭前工作表被锁住	需要使用者先填完/确认表单再继续
`UserForm1.Show vbModeless`	可以，表单和工作表可以同时互动	表单要边看工作表边操作，例如本篇批量填充文本框

Private Sub CommandButton1_Click()
  Dim i As Integer
  For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
  Next i
End Sub

Controls("TextBox" & i)：用字符串拼接的方式，动态组出 "TextBox1"、"TextBox2"……"TextBox10" 这些控件名称，逐一引用
只要控件命名有规律（数字编号连续），就能用一个循环处理十个控件，不用写十行几乎一样的代码

📷 画面提示

以 vbModeless 打开的表单同时停留在画面上，10 个文本框已经被工作表数据批量填满，背后的工作表仍然可以点击操作

Blog / Website：