[2주차] DIM, SET, FOR, IF 만 알면된다.

1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!

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

1. Dim/Set/For/If 는 중요하다.
2. Dim사용 = 통합문서, 시트, 범위
   Dim  통합문서 as WorkBook
   Dim 시트 as WorkSheet
   Dim  범위  as Range
3. If 조건문=함수와 유사한 구조

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

이제 어려워지는 것 같습니다. 복습에 좀 더 노력하겠습니다.

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

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
   WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1"

   Next

   End Sub

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 함수 만들기
   Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)Dim i As Long

   For i = 1 To lookup_range.Rows.Count
   If lookup_range.Cells(i).Value = lookup_value Then
   MyXLookUp = return_range.Cells(i).Value
   Exit Function
   End If

   Next

   End Function