[2주차] VBA Study Note

VBA 4주 완성
작성자
iy1002
작성일
2022-07-11 20:29
조회
34

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

 

 

 

 

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

  • Dim = 번수 선언, 마치 쇼핑 전에 쇼핑리스트를 작성하는 개념으로 효율적인 코딩을 할 수 있고, 명령문을 작성 및 실행할 때, 더 빠르게 동작하기 위해서 데이터 중 무엇을 쓸지 알려주는 역할. 즉, 변수를 설정하지 않아도 코딩이 가능하지만, VBA는 자동으로 Variant로 설정되어 속도가 느려지며 오탈자 방지를 못한다는 단점이 있기 때문에 변수를 설정하는 것이 좋다라고 할 수 있다.
  • Set = 변수 할당, 개체는 값이 아니기 때문에 Set을 이용하여 변수를 할당하는 것.
  • For(Do, Loop도 있음)와 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

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

'dim 통합문서 As WorkBook
'1. Set 통합문서 = ThisWorkBook
'2. Set 통합문서 = ActiveWorkBook
'3. Set 통합문서 = Application.Workbooks.Open(경로)

'Dim 시트 As WorkSheet
'1. Set 시트 = ActibeSheet
'2. Set 시트 = 통합문서.WorkSheets("시트이름" or 순번)
'3. Set 시트 = Sheet1

'Dim 범위 As Range
'1. Set 범위 = 시트.Range("A1:A2")
'2. Set 범위 = 시트.Cells(행번호,열번호)
'3. Set 범위 = Selection

Sub Test()

'1) 통합문서
'2) 시트
'3) 범위
Dim WB As Workbook
Dim WS As Worksheet
Dim Rng As Range

Set WB = ThisWorkbook
Set WS = WB.Worksheets("1월매출")
Set Rng = WS.Range("C5")
MsgBox Rng.Value

'WS.Activate

'MsgBox WB.Name
'MsgBox WB.Path
'MsgBox WB.FullName

End Sub

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

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
WS.Range("c" & i).Value = WB.Worksheets(i).Name
'Anchor = 링크를 추가할 셀
'Address = 웹페이지주소 or 파일경로
'SubAddress = [선택인수] 내부 시트로 이동할 때 주소
'시트이름!A1

WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1"

'Debug.Print i
'Debug.Print WB.Worksheets(i).Name
Next

End Sub

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

Sub FindReplace()

'변수 선언
Dim WS As Worksheet
Dim FindValue As String
Dim RepalceValue 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

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

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).Value
Exit Function
End If

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

End Function

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

 

 

전체 0

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