[2주차] VBA 강좌 과제 및 학습 결과 제출

Sub 장보기()
 
Dim i As Long
Dim s As String
Dim Rng As Range
 
 
i = 1
s = "사과f2"
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")
Magbox Rng.Value
 
 
End Sub
 
Sub CreatToC()
 
'변수선언
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(찾을값,찾을범위,출력범위)
' 변수 선언
' i = 찾을범위 반복할 순번
Dim i As Long
 
' 찾을범위의 시작부터 끝까지 돌아가면서
For i = 1 To lookup_range.Rows.Count
    '찾을범위의 i번째 값이 찾을값과 동일하면
    If lookup_range.Cells(i).Value = lookup_value Then
 
        MyXLookUp = return_range.Cells(i).Value
        Exit Function
 
    End If
 
Next
 
End Function