728x90
| 엑사남님의 vba 강의 28강 따라하기 |
| 엑셀 파일 다운로드 |
| 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
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba 조건에 맞는 행 색칠하기 (0) | 2020.06.30 |
|---|---|
| 엑셀 vba 유저폼 리스트 박스에서 다른 리스트 박스로 복사 (0) | 2020.06.30 |
| 엑셀 vba 파일저장 경로 및 공용 변수 선언 (0) | 2020.06.29 |
| 엑셀 vba 유효성 검사와 유저폼 (0) | 2020.06.29 |
| 엑셀 VBA창에서 주석 처리 간단하게(엑사남님의 강의) (0) | 2020.06.26 |