■ Excel/ㅡExcel VBA Study

엑셀 vba 유저폼 리스트박스

with seok 2020. 6. 29. 20:52
엑사남님의 vba 강의 28강 따라하기
엑셀 파일 다운로드

유저폼 리스트박스.xlsm
0.03MB

1. 범위 이름 정의

2. 유저폼 리스트 박스 만들기

3. 리스트 박스 속성 바꾸기

4. 코드로 리스트박스 설정
Option Explicit

Private Sub UserForm_Initialize()

Dim intEndRow As Integer
Dim rngList As Range

intEndRow = Range("B10000").End(xlUp).Row
Set rngList = Range("B3:K" & intEndRow)

    With Me.ListBox1
        .RowSource = rngList.Address
        .ColumnCount = 10
        .ColumnHeads = True
        .ColumnWidths = "40;30;40;30;25;30;30;30;30;30;"
        .TextAlign = fmTextAlignCenter
    End With

End Sub
5. 반선택 라디오버튼

Option Explicit
------------------------------------------------------
Private Sub OptionButton1_Click()

Dim intEndRow As Integer
Dim rngList As Range

intEndRow = Range("B10000").End(xlUp).Row
Set rngList = Range("B3:K" & intEndRow)

With Me.ListBox1
    .RowSource = Range("일반리스트").Address
    .ColumnCount = 10
    .ColumnHeads = True
    .ColumnWidths = "40;30;40;30;25;30;30;30;30;30;"
    .TextAlign = fmTextAlignCenter
End With

End Sub
------------------------------------------------------
Private Sub OptionButton2_Click()

Dim intEndRow As Integer
Dim rngList As Range

intEndRow = Range("B10000").End(xlUp).Row
Set rngList = Range("B3:K" & intEndRow)

With Me.ListBox1
    .RowSource = Range("이반리스트").Address
    .ColumnCount = 10
    .ColumnHeads = True
    .ColumnWidths = "40;30;40;30;25;30;30;30;30;30;"
    .TextAlign = fmTextAlignCenter
End With

End Sub
------------------------------------------------------
Private Sub OptionButton3_Click()

Dim intEndRow As Integer
Dim rngList As Range

intEndRow = Range("B10000").End(xlUp).Row
Set rngList = Range("B3:K" & intEndRow)

With Me.ListBox1
    .RowSource = Range("삼반리스트").Address
    .ColumnCount = 10
    .ColumnHeads = True
    .ColumnWidths = "40;30;40;30;25;30;30;30;30;30;"
    .TextAlign = fmTextAlignCenter
End With

End Sub
728x90
저작자표시 비영리 변경금지