[2주차] VBA 4주 특강 두번째
1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!
(위쪽 카메라 버튼을 클릭해서 이미지를 삽입할 수 있습니다)
2. 이번 스터디에서 새롭게 알게되거나 유익했던 내용을 3가지로 요약해주세요!
- Dim! 변수선언함으로써 빠르게 계산 가능
- Set! 값이 아닌 개체는 set으로 할당 필요
- For! i as Long으로 반복문 작성 가능!
3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.
책으로 보면 한없이 늘어놓는 이야긴데, 정말 중요하고 꼭 필요한 내용만 콕 찍어서 정리하신걸 보니,
오빠두님이 노력하신게 정말 눈에 보이더라구요. 정말 잘 배우고 갑니다! 복받으실꺼에요!
4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.
미션1. 시트 목차 생성 매크로 만들기
'목차만들기. 목차시트에 C1셀부터 목차리스트 만들기
Sub CreateToC()
'변수선언
Dim WB As Workbook
Dim WS As Worksheet
Dim i As Long
Set WB = ThisWorkbook
Set WS = WB.Worksheets("목차")
'현재 있는 통합문서에서 워크시트가 몇개있는지? 8
'MsgBox WB.Worksheets.Count
For i = 1 To WB.Worksheets.Count
'1) C#셀에 시트 이름 작성
'debug.print는 직접실행창에 값을 보여주는 것임.
'Debug.Print i
'Debug.Print WB.Worksheets(i).Name
'목차시트에 C1셀부터 목차리스트 만들기
WS.Range("C" & i).Value = WB.Worksheets(i).Name
'하이퍼링크 해보기. 모듈2에 녹화있음
'anchor = 링크를 추가할 셀
'address = 웹페이지주소 or 파일경로
'subaddress = [선택인수] 내부시트로 이동할때 주소
'내부시트라서 address는 공백. subaddress는 시트이름!A1
'Debug.Print WB.Worksheets(i).Name & "!A1"
'2) C#셀에 링크, 대상목표셀
WS.Hyperlinks.Add WS.Range("C" & i), "", WB.Worksheets(i).Name & "!A1"
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("확진자경로")
'찾을값 J4 , 바꿀값 J5. 값이기 떄문에 set을 안씀
FindValue = WS.Range("J4").Value
ReplaceValue = WS.Range("J5").Value
'MsgBox FindValue & "," & ReplaceValue
'현재 선택한 범위를 동적으로 가져오기
Set Rng = Selection
'MsgBox Rng.Address
'R은 Rng안에 있는걸 하나씩 보는 값이기떄문에 set을 안써도된다.
For Each R In Rng
If R.Value = FindValue Then
R.Value = ReplaceValue
'색을 노란색으로 넣어보자
R.Interior.Color = 65535
End If
Next
'값 바꾸기 버튼에 매크로 적용하기
End Sub
보너스 미션. MyXLookup 함수 만들기
Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)
'=MyXLookup(찾을값,찾을범위,출력범위)
Dim i As Long
For i = 1 To lookup_range.Rows.Count
If lookup_range.Cells(i).Value = lookup_value Then
MyXLookUp = return_range.Cells(i).Value
Exit Function
End If
Next
End Function
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (133)
![]() ![]() |
![]() ![]() |
2022.02.03 | 383 | 67516 | ||
40636 | VBA 4주 완성 |
4주차 VBA강의 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 158 |
40631 | VBA 4주 완성 |
[4주차]VBA 4주 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 55 |
40630 | VBA 4주 완성 |
[3주차]VBA 4주 교육
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 43 |
40627 | VBA 4주 완성 |
[2주차]VBA 4주 완성 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 43 |
40622 | VBA 4주 완성 |
[4주차] VBA 4주차 스터디 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 45 |
40621 | VBA 4주 완성 |
[4주차]엑셀 VBA 4주완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 35 |
40618 | VBA 4주 완성 |
[4주차] 스터디 노트, 미션
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 42 |
40616 | VBA 4주 완성 |
[4주차] VBA 4주 완성 특별스터디 4강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 44 |
40615 | VBA 4주 완성 |
[3주차] VBA 4주 완성 특별스터디 3강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 32 |
40614 | VBA 4주 완성 |
[2주차] VBA 4주 완성 특별스터디 2강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 39 |
40612 | VBA 4주 완성 |
[1주차] VBA 4주 완성 특별스터디 1강
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 59 |
40609 | VBA 4주 완성 |
[4주차] VBA 4주 완성 스터디노트
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 36 |
40607 | VBA 4주 완성 |
[4주차] 스터디
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 36 |
40596 | VBA 4주 완성 |
[3주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 35 |
40595 | VBA 4주 완성 |
[3주차] VBA 4주 완성
![]() ![]() |
![]() |
2022.07.29 | - | 34 |
40592 | VBA 4주 완성 |
[4주차] VBA 4주 완성
![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 35 |
40591 | VBA 4주 완성 |
[2주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 48 |
40589 | VBA 4주 완성 |
콜렉션및 배열등
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 34 |
40588 | VBA 4주 완성 |
[3주차] VBA 4주 완성 노트 및 과제
![]() ![]() ![]() |
![]() |
2022.07.29 | - | 40 |
40586 | VBA 4주 완성 |
[4주차]VBA 4주 완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 39 |