[3주차] VBA 스터디 노트

'-----------------------------------------
'미션1) 나만의 Sequence 매크로 만들기
'Column로 시작열을 지정하고, Count로 순번 개수를 지정하면
'시작열의 1행부터 순번을 출력하는 매크로를 작성합니다.
'예상풀이시간 : 3분
'-----------------------------------------
Sub SequenceNumber()
 
Dim Column As String   '시작열 @ 예) "A", "B", "C", ...
Dim Count As Long       '출력할 순번 개수 @ 예) 5, 10,15 ...
Dim i As Long                ' For문 변수
 
Column = "c"
Count = 10
 
 
For i = 1 To Count
    Range(Column & i).Value = i
 
Next
 
 
End Sub
 
'-----------------------------------------
'미션2) 나만의 Sequence 매크로를 동적으로 만들기
'InitCell로 시작셀을 지정하고, Count로 출력할 순번 개수를 지정하면
'InitCell을 기준으로 한칸씩 내려가며 순번을 출력하는 매크로를 작성합니다.
'예상풀이시간 : 5분
'-----------------------------------------
Sub DynamicSequence()
 
Dim InitCell As Range       '시작셀 @ 예) Range("A1")
Dim Count As Long          '출력할 순번 개수 @ 예) 5, 10 15 ..
Dim i As Long                   'For문 변수
 
Set InitCell = Range("C5")
Count = 10
 
 
 
For i = 1 To Count
    InitCell.Offset(i - 1).Value = i '한칸씩 내려줌
Next
 
 
End Sub
 
'-----------------------------------------
'미션3) 나만의 TextJoin 함수 만들기
'문자를 병합할 범위를 Rng로 입력하고, 구분자를 지정하면
'Rng의 각 셀을 돌아가며 구분자로 병합하는 함수를 작성합니다.
'예상풀이시간 : 7분
'-----------------------------------------
Function MyTextJoin(Rng As Range, _
                                Optional Delimiter As String = ",")
 
'optional은 선택 옵션 함수의 마지막에만 입력 가능
 
'@ 인수 설명
'Rng : 값을 병합할 범위입니다.
'Delimiter : [선택인수] 구분자입니다. 기본값은 쉼표(,)입니다.
 
Dim r As Range              'For Each문 변수
Dim Result As String      '결과로 출력할 문자열
 
For Each r In Rng
    If r.Value <> "" Then
        Result = Result & r.Value & Delimiter '구분자는 쉼표
    End If
 
Next
'마지막에 구분자가 불필요하게 붙어 있어서 지워 주는데 마지막 한글자만 빼구고
 
MyTextJoin = Left(Result, Len(Result) - 1)
 
 
 
'힌트4) MyTextJoin = Left(○○○, Len(○○○) - 1)
 
 
End Function
 
Function DynamicRange(WS As Worksheet, Column As String, InitRow As Long) As Range
 
'셀을 선택하는데 아주 유용해요.
 
'Dim WS As Worksheet
'Dim Column As String
Dim i As Long
Dim Address As String
'Dim InitRow As Long
 
 
'Set WS = Sheet1
'Set WS = ThisWorkbook.Worksheets("품목검색")
'위에서 내려오는 방법은 멈춰, 그래서 마지막에서 올라오는게 더 유용해요
'Column = "C"
i = WS.Range(Column & "1048576").End(xlUp).Row
'InitRow = 2
If i < InitRow Then i = InitRow
Address = Column & InitRow & ":" & Column & i
 
 
Set DynamicRange = WS.Range(Address)
 
 
End Function
 
Sub Test()
MsgBox DynamicRange(Sheet1, "B", 2).Address
 
End Sub
 
 
Sub FilterItems()
 
'GroupRng(구분)의 조건을 비교해서, 구분에 해당하는 제품과 가격을 표시
 
Dim GroupRng As Range           ' 필터링 할 구분 범위 (동적으로 설정!)
Dim r As Range                  ' GroupRng를 For Each로 하나씩 참조할 셀
Dim FilterVal As String         ' 비교할 조건
Dim i As Long                   ' r의 값이 조건과 같을 경우, 1씩 증가할 정수
 
Set GroupRng = DynamicRange(Sheet1, "A", 2)
FilterVal = Sheet1.Range("E2").Value
 
 
i = 2
For Each r In GroupRng
    If r.Value = FilterVal Then
        Sheet1.Range("G" & i).Value = r.Offset(0, 1).Value
        Sheet1.Range("H" & i).Value = r.Offset(0, 2).Value
        i = i + 1
    End If
Next
 
 
End Sub
 
 
 
Sub ClearRange()
 
 
Dim i As Long
 
i = Sheet1.Range("G1048576").End(xlUp).Row
 
If i > 1 Then
    Sheet1.Range("G2:H" & i).ClearContents
 
'DynamicRange(Sheet1, "G", 2).ClearContents
'DynamicRange(Sheet1, "H", 2).ClearContents
 
End If
 
 
 
 
 
End Sub