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 

但是如果你有你使用那麼實際的形式第一次的答案會做的伎倆罰款好。