[2주차] Dim, Set, For, If

Sub CreateToC() '변수 선언 Dim WB As Workbook Dim WS As Worksheet Dim i As Long Set WB = ThisWorkbook Set WS = WB.Worksheets("목차") 'MsgBox WB.Worksheets.Count For i = 1 To WB.Worksheets.Count '1) C★셀 -> 시트이름 'Debug.Print i 'Debug.Print WB.Worksheets(i).Name WS.Range("C" & i).Value = WB.Worksheets(i).Name 'Anchor = 링크를 추가할 셀 'Address = 웹파일주소 or 파일경로 'SubAddress = [선택인수]내부 시트로 이동할 때 주소 '시트이름!A1 '2) C★셀 -> 링크, 대상 목표셀 : 시트명!A1 'Debug.Print WB.Worksheets(i).Name & "!A1" WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1" '=VLOOKUP(찾을값, 범위,열번호,...) 'WS.Hyperlinks.Add(앵커, 링크,..) Next End Sub

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 'MsgBox FindValue & "," & ReplaceValue Set Rng = Selection 'MsgBox Rng.Address For Each R In Rng If R.Value = FindValue Then R.Value = ReplaceValue R.Interior.Color = 65535 End If Next End Sub

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