Question

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

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

取消隐藏文本框

1 个答案: