Excel Option 버튼에서 복수선택 VBA 처리

엑셀쉬트내에 옵션버튼은 복수개의 옵션버튼을 만들어도 선택은 하나만 할수있다
그런데 업무처리상 옵션그룹을 복수로 만들어야 할 경우가 있다

예를 들어 주간, 월간 선택
               A팀, B팀, C팀 중 선택

 
이런 경우 속성창을 열고 GroupName을 지정해주면 된다

작업구분을 JopTp   팀구분을 TeamTp등으로 지정하면 각각의 옵션선택이 가능하다

보고서작성 버튼에 할당된 모듈에서 이를 구분하여 처리하는 방법은 다음과 같다

Private Sub CommandButton1_Click()
Dim sJobTp as String
Dim oShape as Shape

For Each obj In Sheets("메뉴").OLEObjects
    If Obj.Name Like "*Option*" Then
        If obj.Object.GroupName = "JobTp" And obj.Object.Value = True Then
            sJobTp = obj.Object.Caption
            Exit For
        End If
    End If
Next

For Each obj In Sheets("메뉴").OLEObjects
    If Obj.Name Like "*Option*" Then
        If obj.Object.GroupName = "TeamTp" And obj.Object.Value = True Then
            test1 sJopTp, obj.Object.Caption
        End If
    End If
Next