엑셀 vba 유저폼 값을 바꾸면 작동하는 매크로

엑사남 15강 Study

 

엑셀 파일 다운로드

유저폼 값을 바꾸면 작동하는 매크로.xlsm

0.10MB

Sub Filter_Show()          UserForm1.Show      End Sub

Sub Color_Make() Dim rngR    As Range    'for문에 사용할 변수 Dim rngD    As Range    '전체범위 받을 변수      Dim lngR    As Long     '범위의 행의 갯수 받을 변수 lngR = Cells(Rows.Count, "k").End(xlUp).Row      Set rngD = Range("k8:k" & lngR) '초기화 Range("i8:n" & lngR).Interior.ColorIndex = 0     For Each rngR In rngD         If rngR = Range("g3") And _                 rngR.Offset(0, 3) >= Range("g4").Value Then                          rngR.Offset(0, -2).Resize(1, 6).Interior.ColorIndex = 6         End If     Next End Sub

Private Sub ComboBox1_Change()     Range("g3") = Me.ComboBox1.Value     Call Color_Make End Sub

Private Sub TextBox1_AfterUpdate()     Range("g4") = Me.TextBox1.Value     Call Color_Make End Sub