[2주차] vba 4주 완성 _2일 교육

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

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

1. 변수 선언의 사유를 알게  되었네요

2. 1일차 강의를 다시 복습해야한다는 것을 알게 되었습니다.

3.  녹화 기능을 잘 활용해야 합니다.

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). myxlookup 만들기

Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)

' 변수 선언
' i = 찾을범위 반복할 순번
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).Value
Exit Function
End If

Next

End Function