루프로 코드 단순화

Question

안녕하세요 저는 vba에서 꽤 새로워졌습니다. 제발 코드를 쏘지 마세요 .--). 나는 리셋 코드 세트를 가지고있다. 나는 코드 명을 점점 더 많이 사용하면서이 코드를 단순화하고자한다. 나는 달릴 수 없다. 이 길을가는 길에 누군가 나를 조금 도울 수 있습니까? 내가 뭘하려고하는지 아래.

Sub Sheet1() 
If SheetCheckBox1.Visible = False Then Exit Sub 
If SheetCheckBox1.value = True Then 
    Sheets("Item_1").Select 
    Call Finalize 
End If 
End Sub 

Sub Sheet2() 
If SheetCheckBox2.Visible = False Then Exit Sub 
If SheetCheckBox2.value = True Then 
    Sheets("Item_2").Select 
    Call Finalize 
End If 
End Sub 

Sub Sheet3() 
If SheetCheckBox3.Visible = False Then Exit Sub 
If SheetCheckBox3.value = True Then 
    Sheets("Item_3").Select 
    Call Finalize 
End If 
End Sub 

당신이 볼 수 있듯이해야한다 : 두 번째 블록은 이제 코드의 일부이다

Sub sheet41() 
Dim i As Integer 
Dim chkname As Integer 
chkname = "SheetCheckBox" & i 
i = 1 
Do 
    i = i + 1 
    If chkname.Visible = False Then Exit Sub 
    If chkname.value = True Then 
    Sheets("Item_" & i).Select 
    Call Finalize 
    End If 
Loop Until i = ThisWorkbook.Worksheets.Count 
End Sub 

이 이전 코드입니다 (그것은 단지 수를 증가 같은 코드의 40 개 블록이다) 나는 asume을 청소할 수 있습니다.

Answer 1

시트에 체크 박스가 ActiveX 컨트롤이있는 경우, 당신은 체크 박스에 액세스하려면이 옵션을 사용할 수 있습니다 : 당신이 체크 박스의 값을 변경하려는 경우,

Sheets("sheet1").OLEObjects("chkTest").Object 

를 같이 사용 :

Sheets("sheet1").OLEObjects("chkTest").Object.Value = True 

이제 실제 시트 이름으로 "sheet1"을 대체하고 문자열 chkname

그래서 완전한 C에 "chkTest" 변경 ode는 다음과 같아야합니다.

Dim i As Integer 
Dim sheetname As String 
Dim chkname As String 

sheetname = "YOUR SHEETNAME HERE" 

For i = 1 To ThisWorkbook.Worksheets.Count Step 1 

    chkname = "SheetCheckBox" & i 

    If Sheets(sheetname).OLEObjects(chkname).Object.Visible = False Then Exit Sub 

    If Sheets(sheetname).OLEObjects(chkname).Object.Value = True Then 

     Sheets("Item_" & i).Select 
     Call Finalize 
    End If 
Next i 

Answer 2

이렇게해야합니다. 워크 시트에서 finalize이 호출되지 않은 경우 이유가 직접 실행 창에 인쇄됩니다.

Sub ProcessWorkSheets() 

    Dim check As MSForms.CHECKBOX 
    Dim i As Integer 
    For i = 1 To Worksheets.Count 

     On Error Resume Next 
     Set check = Worksheets(i).OLEObjects("SheetCheckBox" & i).Object 
     On Error GoTo 0 
     If check Is Nothing Then 
      Debug.Print Worksheets(i).Name; " - Checkbox not found" 
     Else 
      If check.Visible And check.Value Then 
       Worksheets(i).Select 
       Call Finalize 
      Else 
       Debug.Print Worksheets(i).Name; " - Checkbox", "Visible", check.Visible, "Value:", check.Value 
      End If 
     End If 

     Set check = Nothing 
    Next 

End Sub