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

VBA 4주 완성
작성자
조쌍이
작성일
2022-07-16 18:11
조회
44

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

 

 

 

 

전체 0

전체 1,208
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1340
오빠두엑셀 2022.07.31 8 1340
40636 VBA 4주 완성
4주차 VBA강의 노트 엑셀파일첨부파일
이명환 | 2022.07.30 | 추천 0 | 조회 154
이명환 2022.07.30 - 154
40631 VBA 4주 완성
[4주차]VBA 4주 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 53
이상민 2022.07.30 - 53
40630 VBA 4주 완성
[3주차]VBA 4주 교육 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 41
이상민 2022.07.30 - 41
40627 VBA 4주 완성
[2주차]VBA 4주 완성 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 41
이상민 2022.07.30 - 41
40622 VBA 4주 완성
[4주차] VBA 4주차 스터디 노트 엑셀파일첨부파일 (1)
사랑2 | 2022.07.30 | 추천 0 | 조회 43
사랑2 2022.07.30 - 43
40621 VBA 4주 완성
[4주차]엑셀 VBA 4주완성 엑셀파일첨부파일
최동국 | 2022.07.30 | 추천 0 | 조회 33
최동국 2022.07.30 - 33
40618 VBA 4주 완성
[4주차] 스터디 노트, 미션 첨부파일
달구름 | 2022.07.30 | 추천 0 | 조회 39
달구름 2022.07.30 - 39
40616 VBA 4주 완성
[4주차] VBA 4주 완성 특별스터디 4강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 42
Gladiolus 2022.07.30 - 42
40615 VBA 4주 완성
[3주차] VBA 4주 완성 특별스터디 3강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 30
Gladiolus 2022.07.30 - 30
40614 VBA 4주 완성
[2주차] VBA 4주 완성 특별스터디 2강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 37
Gladiolus 2022.07.30 - 37
40612 VBA 4주 완성
[1주차] VBA 4주 완성 특별스터디 1강 엑셀파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 57
Gladiolus 2022.07.30 - 57
40609 VBA 4주 완성
[4주차] VBA 4주 완성 스터디노트 첨부파일
ㅊH 운ㅓ | 2022.07.30 | 추천 0 | 조회 34
ㅊH 운ㅓ 2022.07.30 - 34
40607 VBA 4주 완성
[4주차] 스터디 첨부파일
girls**** | 2022.07.30 | 추천 0 | 조회 34
girls**** 2022.07.30 - 34
40596 VBA 4주 완성
[3주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 33
DanP 2022.07.29 - 33
40595 VBA 4주 완성
[3주차] VBA 4주 완성 첨부파일
| 2022.07.29 | 추천 0 | 조회 32
2022.07.29 - 32
40592 VBA 4주 완성
[4주차] VBA 4주 완성 첨부파일
익명 | 2022.07.29 | 추천 0 | 조회 33
익명 2022.07.29 - 33
40591 VBA 4주 완성
[2주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 46
DanP 2022.07.29 - 46
40589 VBA 4주 완성
콜렉션및 배열등 엑셀파일첨부파일
브랑카 | 2022.07.29 | 추천 0 | 조회 32
브랑카 2022.07.29 - 32
40588 VBA 4주 완성
[3주차] VBA 4주 완성 노트 및 과제 엑셀파일첨부파일
토토니 | 2022.07.29 | 추천 0 | 조회 36
토토니 2022.07.29 - 36
40586 VBA 4주 완성
[4주차]VBA 4주 완성 엑셀파일첨부파일
ㅇㅇ나두 | 2022.07.29 | 추천 0 | 조회 37
ㅇㅇ나두 2022.07.29 - 37
글쓰기