[2주차] Dim, Set, For, If
VBA 4주 완성
작성자
LaLaLa
작성일
2022-07-09 23:44
조회
28
1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!
(위쪽 카메라 버튼을 클릭해서 이미지를 삽입할 수 있습니다)
2. 이번 스터디에서 새롭게 알게되거나 유익했던 내용을 3가지로 요약해주세요!
- dim, set, for, if 의 특성 및 사용법
- for와 if의 결합
- 진화된 나만의 함수(xlookup)
3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.
VBA의 기본 구조(특히 변수 선언, 개체 선언 등)에 대해 이해할 수 있게 돼서 좋았습니다.
4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.
미션 1. 시트 목차 생성 매크로 만들기
Sub CreateToC() '변수 선언 Dim WB As Workbook Dim WS As Worksheet Dim i As Long Set WB = ThisWorkbook Set WS = WB.Worksheets("목차") 'MsgBox WB.Worksheets.Count For i = 1 To WB.Worksheets.Count '1) C★셀 -> 시트이름 'Debug.Print i 'Debug.Print WB.Worksheets(i).Name WS.Range("C" & i).Value = WB.Worksheets(i).Name 'Anchor = 링크를 추가할 셀 'Address = 웹파일주소 or 파일경로 'SubAddress = [선택인수]내부 시트로 이동할 때 주소 '시트이름!A1 '2) C★셀 -> 링크, 대상 목표셀 : 시트명!A1 'Debug.Print WB.Worksheets(i).Name & "!A1" WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1" '=VLOOKUP(찾을값, 범위,열번호,...) 'WS.Hyperlinks.Add(앵커, 링크,..) 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 '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 Next End Sub
보너스 미션. XLOOKUP 함수 만들기
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 ○○○.Cells(○).value = ○○ Then ... End If If lookup_range.Cells(i).Value = lookup_value Then MyXLookUp = return_range.Cells(i) Exit Function End If 'MyXLookup 함수의 결과값으로 반환범위의 i번째 값을 출력한 후 명령문을 강제로 종료한다. '※힌트 : MyXLookup = ○○○.Cells(○).Value '※힌트 : Exit Function Next End Function
전체 0
댓글을 남기려면 로그인하세요.
전체 1,208
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
![]() ![]() |
![]() ![]() |
2022.07.31 | 8 | 1160 | ||
40636 | VBA 4주 완성 |
4주차 VBA강의 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 143 |
40631 | VBA 4주 완성 |
[4주차]VBA 4주 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 50 |
40630 | VBA 4주 완성 |
[3주차]VBA 4주 교육
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 41 |
40627 | VBA 4주 완성 |
[2주차]VBA 4주 완성 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 39 |
40622 | VBA 4주 완성 |
[4주차] VBA 4주차 스터디 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 43 |
40621 | VBA 4주 완성 |
[4주차]엑셀 VBA 4주완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 31 |
40618 | VBA 4주 완성 |
[4주차] 스터디 노트, 미션
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 37 |
40616 | VBA 4주 완성 |
[4주차] VBA 4주 완성 특별스터디 4강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 42 |
40615 | VBA 4주 완성 |
[3주차] VBA 4주 완성 특별스터디 3강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 30 |
40614 | VBA 4주 완성 |
[2주차] VBA 4주 완성 특별스터디 2강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 36 |
40612 | VBA 4주 완성 |
[1주차] VBA 4주 완성 특별스터디 1강
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 56 |
40609 | VBA 4주 완성 |
[4주차] VBA 4주 완성 스터디노트
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 34 |
40607 | VBA 4주 완성 |
[4주차] 스터디
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 33 |
40596 | VBA 4주 완성 |
[3주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 32 |
40595 | VBA 4주 완성 |
[3주차] VBA 4주 완성
![]() ![]() |
![]() |
2022.07.29 | - | 32 |
40592 | VBA 4주 완성 |
[4주차] VBA 4주 완성
![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 30 |
40591 | VBA 4주 완성 |
[2주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 42 |
40589 | VBA 4주 완성 |
콜렉션및 배열등
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 32 |
40588 | VBA 4주 완성 |
[3주차] VBA 4주 완성 노트 및 과제
![]() ![]() ![]() |
![]() |
2022.07.29 | - | 35 |
40586 | VBA 4주 완성 |
[4주차]VBA 4주 완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 36 |