[2주차] 스터디 노트 및 미션

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

 

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

dim / set / for / if 기본 개념을 익힐 수 있었다.

새로운 함수 만드는 기능을 위 4개 구문을 통해 만들 수 있어 좋았다.

for 와 if 가 특히 도움이 될 것 같다는 느낌이 듭니다.

 

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

이번 주는 실제 사용할 수 있을 것 같다는 것이 느낌이 들었습니다.

 

 

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

 

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
MsgBox WB.FullName 'name/path/fullname

Set WS = WB.Worksheets("1월매출")
WS.Activate '시트 활성화(선택) - 하기 코드 실행 시 activate 필요x

Set Rng = WS.Range("C5")
MsgBox Rng.Value

End Sub

Sub CreateToC()

' 미션1 - 시트 목차 작성 매크로

'변수 선언
Dim WB As Workbook
Dim WS As Worksheet
Dim i As Long

Set WB = ThisWorkbook
Set WS = WB.Worksheets("목차") '> WB 중 '목차'이름의 WS

'MsgBox WB.Worksheets.Count '> 시트 개수를 확인

For i = 1 To WB.Worksheets.Count
'Debug.Print WB.Worksheets(i).Name '> 왼쪽 직접실행 창에 출력화면 보여줌
'1) C★셀 > 시트 이름 넣기
WS.Range("C" & i).Value = WB.Worksheets(i).Name

'Anchor = 링크를 추가할 셀
'Address = 웹페이지주소 or 파일경로
'SubAddress - [선택인수] 내부 시트로 이동할 때 주소
'시트이름!A1

'2) C★셀 > 링크, 대상 목표셀: 시트명!A1
WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1"

' & 기호는 띄어쓰기로 연결! 붙여서 작성하면 컴파일 오류 발생

Next

End Sub

Sub Findreplace()

'미션2 - 찾기 및 바꾸기 매크로

'변수 선언
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 '줄 바꿈해서 end if로 if문 끝난걸 알려줌

Next

 

End Sub

Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)
'=MyXlookup(찾을값, 찾을범위, 출력범위) - index & match 함수와 동일

' 변수 선언
' 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).Value
Exit Function '> 값을 찾았으면 함수를 종료
End If

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

End Function