[083] VBA의 옵션버튼과 체크박스의 간단한 활용예

작성자윤슬|작성시간11.03.01|조회수1,554 목록 댓글 0

안녕하세요?

얼마전 VBA 세미나 진행이후 VBA에 대한 관심이 부쩍 많아지신듯 합니다.

[아낌없이주는나무]님의 질문내용에 대한 답변으로 옵션버튼과 체크박스의 간단한 활용예입니다.

아래는 첨부파일에 사용된 코드입니다.

Option Explicit

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Me.TextBox1.Value = Date
Else
Me.TextBox1.Value = ""
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub OptionButton1_Click()
Me.ListBox1.RowSource = "a1:a5"
End Sub

Private Sub OptionButton2_Click()
Me.ListBox1.RowSource = "b1:b5"
End Sub

자세한 내용은 첨부파일을 참고로...

그럼 또...!

====================================================================================

첨부파일

110301_옵션상자와_체크박스.xlsm

====================================================================================

CAFE