取消隐藏文本框

Question

我想请你帮我处理用户表单中的文本框。我有 3 个 multipgaes，第一个用于输入输入数据。第二个是为每张发票插入发票编号和金额。我有 200 个文本框，但只有 24 个可见（12 个用于发票编号，12 个用于金额）。此页面包含复选框，以防有人想要输入超过 12 张发票。如何使用 VBA 代码取消隐藏所有这些发票？我不想复制粘贴相同的代码将近 200 次：me.tb1.visible = true, me.tb2.visible = true ... 我用 cycle 试过了，但没用：

for i = 13 to 100
   me.tb(i).visible = true
next i

我试图找到类似

的内容

dim Utextbox as textbox

for each Utextbox in VBA.userforms
    [code]
next

请帮我解决这个问题。谢谢

Answer 1

你们非常亲密！试试这个：

For i = 13 To 100
   Me.Controls("tb" & i).Visible = True
Next

取消隐藏文本框

Unhiding textboxes

vba

textbox

object

userform