[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
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
![]() ![]() |
![]() ![]() |
2022.07.31 | 8 | 1340 | ||
40636 | VBA 4주 완성 |
4주차 VBA강의 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 154 |
40631 | VBA 4주 완성 |
[4주차]VBA 4주 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 53 |
40630 | VBA 4주 완성 |
[3주차]VBA 4주 교육
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 41 |
40627 | VBA 4주 완성 |
[2주차]VBA 4주 완성 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 41 |
40622 | VBA 4주 완성 |
[4주차] VBA 4주차 스터디 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 43 |
40621 | VBA 4주 완성 |
[4주차]엑셀 VBA 4주완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 33 |
40618 | VBA 4주 완성 |
[4주차] 스터디 노트, 미션
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 39 |
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 | - | 37 |
40612 | VBA 4주 완성 |
[1주차] VBA 4주 완성 특별스터디 1강
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 57 |
40609 | VBA 4주 완성 |
[4주차] VBA 4주 완성 스터디노트
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 34 |
40607 | VBA 4주 완성 |
[4주차] 스터디
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 34 |
40596 | VBA 4주 완성 |
[3주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 33 |
40595 | VBA 4주 완성 |
[3주차] VBA 4주 완성
![]() ![]() |
![]() |
2022.07.29 | - | 32 |
40592 | VBA 4주 완성 |
[4주차] VBA 4주 완성
![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 33 |
40591 | VBA 4주 완성 |
[2주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 46 |
40589 | VBA 4주 완성 |
콜렉션및 배열등
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 32 |
40588 | VBA 4주 완성 |
[3주차] VBA 4주 완성 노트 및 과제
![]() ![]() ![]() |
![]() |
2022.07.29 | - | 36 |
40586 | VBA 4주 완성 |
[4주차]VBA 4주 완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 37 |