[2주차] VBA 4주 강의

1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!
(위쪽 카메라 버튼을 클릭해서 이미지를 삽입할 수 있습니다)

2. 이번 스터디에서 새롭게 알게되거나 유익했던 내용을 3가지로 요약해주세요!

(1) 변수 선언

(2) 변수 할당, 개체 변수는 Set을 사용할 것

(3) For, If 문

3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.

너무 쉽게 설명해주셔서 100% 이해하고 갑니다!

4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.

(1) 미션1 : 시트 목차 생성 매크로 만들기

Sub CreateToC()

'변수 선언
Dim WB As Workbook
Dim WS As Worksheet
Dim i As Long

Set WB = ThisWorkbook
Set WS = WB.Worksheets("목차")

For i = 1 To WB.Worksheets.Count
WS.Range("C" & i).Value = WB.Worksheets(i).Name
'Anchor = 링크를 추가할 셀
'Address = 웹페이지 주소 or 파일 경로
'SubAddress = [선택인수] 내부 시트로 이동할 때 주소
'시트이름!A1
'Debug.Print WB.Worksheets(i).Name & "!A1"

WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1"

Next

End Sub

(2) 미션2 : 찾기 및 바꾸기 매크로 만들기

Sub FindReplace()

'변수 선언
Dim WS As Worksheet
Dim FindValue As String
Dim ReplaceValue As String
Dim Rng As Range
Dim R As Range

Set WS = ThisWorkbook.Worksheets("확진자경로")
FindValue = WS.Range("J4").Value
ReplaceValue = WS.Range("J5").Value

Set Rng = Selection

For Each R In Rng
If R.Value = FindValue Then
R.Value = ReplaceValue
R.Interior.Color = 65535
End If
Next

End Sub

(3) 보너스 미션 : XLOOKUP 함수 만들기

'보너스 미션 XLOOKUP 함수 만들기
Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)
'=MyXLookUp(찾을 값, 찾을 범위, 출력 범위)

' 변수 선언
' i = 찾을범위 반복할 순번
Dim i As Long

' 찾을범위의 시작부터 끝까지 돌아가면서
For i = 1 To lookup_range.Rows.Count
'찾을범위의 i번째 값이 찾을값과 동일하면
'※힌트 : If ○○○.Cells(○).value = ○○ Then ... End If
If lookup_range.Cells(i).Value = lookup_value Then
MyXLookUp = return_range.Cells(i).Value
Exit Function
End If

'MyXLookup 함수의 결과값으로 반환범위의 i번째 값을 출력한 후 명령문을 강제로 종료한다.
'※힌트 : MyXLookup = ○○○.Cells(○).Value
'※힌트 : Exit Function
Next

End Function