이비그치면

엑셀2007의 새롭게 향상된 표기능중 요약행, 계산된 열기능등을 이용하면 행이 추가되거나 할 때 별도로 수식행을 복사하거나 채우기 할 필요가 없다

다음은 VBA를 이용하여 테이블에  행을 추가하고 추가된 row의 특정셀에 값을 넣는 방법이다

Sub test()
Dim oNewRow as ListRow
Set  oNewRow =Activesheet.ListObjects("표1").ListRows.Add(AlwaysInsert:=True)
oNewRow.Range.Cells(1,1).Value = "777" 
End Sub

 

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

예를 들어 주간, 월간 선택
               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

엑셀 또는 워드 VBA 에서 String Array에 특정String이 있는지 확인 또는 
특정String의 위치값(Array Index) 확인

 BibleAbbr = Array("창", "출", "레", "민", "신", "수", "삿", "롯", "삼상", "삼하")
 Index = Application.Match("민", BibleAbbr, 0)