excel vb loop/concatenate - 我在做什么错

Question

我想让所有的btn都看不见。它们被命名为：

btnHere1 

btnHere2 

btnHere3 

btnHere4 

For i = 1 To 4 ["btnHere" & i].Visible = False Next

Answer 1

for i = 1 to 4 : me.controls("btnHere" & i).visible = false : next i 

如果从形式之外运行，通过表单对象引用来代替我。要做到这一点

Answer 2

一种方法是遍历窗体的所有控件：

Dim ctrl As Control 

For Each ctrl In Me.Controls 

    If TypeName(ctrl) = "CommandButton" Then 
     ctrl.Visible = False 
    End If 

Next ctrl 

这种技术意味着你不需要通过名称引用您的按钮在你的代码示例。

希望这会有所帮助。

Answer 3

如果您在电子表格中有按钮，而不是表格，但它们实际上是形状，尽管您仍然可以将它们命名为btnSomethingOrOther。

如果你想使这些看不见然后就通过上表形状迭代...

For Each control In ActiveSheet.Shapes 
    If Mid(control.Name, 1, 3) = "btn" Then 
     control.Visible = False 
    End If 
Next 

但是如果你有你使用那么实际的形式第一次的答案会做的伎俩罚款好。