Sub 장보기()

Dim i As Long
Dim s As String
Dim Rng As Range

i = 1
s = "사과"
Set Rng = Range("A1")

MsgBox Rng.Value
MsgBox Rng.Font.Size

End Sub

Sub Test()

'1) 통합문서 / 2) 시트 3) 범위
Dim WB As Workbook
Dim WS As Worksheet
Dim Rng As Range

Set WB = ThisWorkbook
Set WS = WB.Worksheets("1월매출")
Set Rng = WS.Range("C5")
MsgBox Rng.Value

End Sub

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

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

Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)
'=MyXLookup(찾을값, 찾을범위, 출력범위)

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