[2주차] 학습노트!

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

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

워크시트 선택 및 활성화, 범위지정,

셀 값을 가져와서 함수로 계산하기 등을 배웠습니다

실무에 잘 이용할 수 있겠네요

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

매우 만족합니다

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

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) = 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)

Dim i As Long

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

End Function