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 

은 그러나 첫 번째 대답은 잘 트릭을 할 것입니다 잘.