MS WORD 체크박스(CheckBox) 활용예(WORD VBA 이용하여)

아래와 같은 WORD 문서에서 원하는 중식메뉴를 CheckBox에 체크하고 중식식권버튼을 클릭하면 하단의 텍스트박스에 선택한 주문리스트와 합산된 주문금액이 출력되도록 하는것입니다

 

아래는 짬뽕,삼선짬뽕,탕수육,유산슬을 선택하고 중식식권버튼을 눌렀을때의 결과입니다

몇줄 안되는 코딩이라서 별도로 설명하지 않고 아래에 소스를 리스트해두었습니다

Private Sub cmd중식식권_Click()

Set tbl = ActiveDocument.Tables(1)

iOrderSum = 0

sOrderList = ""

For iRow = 1 To tbl.Rows.Count

    Set myRange = tbl.Cell(iRow, 1).Range

    Set oTest = myRange.InlineShapes

    If oTest.Item(1).OLEFormat.Object.Value Then

        sOrderAmt = Replace(tbl.Cell(iRow, 3).Range.Text, Chr(13), "")

        sOrderAmt = Replace(sOrderAmt, ",", "")

        iOrderSum = iOrderSum + Val(sOrderAmt)

        

        sEachOrder = Replace(tbl.Cell(iRow, 2).Range.Text, Chr(13), "")

        sEachOrder = Replace(sEachOrder, Chr(7), "")

        sOrderList = sOrderList & sEachOrder & "/"

    End If

Next

ActiveDocument.txt선택메뉴.Text = sOrderList

ActiveDocument.txt금액.Text = iOrderSum

End Sub

혹시 직접 해보실 분을 위해서 소스를 첨부해두니 참고바랍니다

체크박스.doc