[2주차]VBA 기초 4주 완성 스터디

VBA 4주 완성
작성자
로즈
작성일
2022-07-12 01:17
조회
56

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

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

  1. VBA를 통한 하이퍼링크 설정(목차 설정)
  2. VBB를 통한 값 바꾸기(변환 및 포인트색 설정)
  3. Dim, Set, For, If 용어

 

3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.

아무래도 짧은 시간안에 다양한 내용을 듣다보니 살짝 이해하기가 어려웠지만 복습하면서 이해할 수 있었다.

 

 

4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.

Sub 장보기()

Dim i As Long 'i를 숫자로
Dim s As String 's를 문자로
Dim Rng As Range 'rng로 범위 데이터

i = 1
s = "사과" '문자에는 " 필수
Set Rng = Range("a1") '범위 개체이기 때문에 set 필수

'f8키를 누르면 지역창에서 실행 내역이 보임(순차적)

MsgBox Rng.Value 'rng의 값을 메세지로 보여주세요
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
Set WS = WB.Worksheets("1월매출")
Set Rng = WS.Range("c5")

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
' Debug.Print i '직접실행창에 값 표현
'Debug.Print Wb.Worksheets(i).Name 시트명 표현

WS.Range("c" & i).Value = WB.Worksheets(i).Name
'anchor = 링크추가할셀
'address=주소, 경로
'subaddress =[선택인수]내부시트 이동할때 주소
'시트이름!A1

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

Next

End Sub
Sub FindReplace()

Dim WB As Workbook
Dim WS As Worksheet
Dim FindValue As String
Dim ReplaceValue As String
Dim Rng As Range
Dim R As Range

 

Set WB = ThisWorkbook
Set WS = WB.Worksheets("확진자경로")
FindValue = WS.Range("j4").Value
ReplaceValue = WS.Range("j5").Value

Set Rng = Selection
For Each R In Rng
If R.Value = FindValue Then
R.Value = ReplaceValue
R.Interior.Color = 65535

End If
Next

End Sub

Function MyXLookup(찾을값, 찾을범위 As Range, 출력범위 As Range)

Dim i As Long
For i = 1 To 찾을값.Rows.Count
If 찾을범위.Cells(i).Value = 찾을값 Then
MyXLookup = 출력범위.Cells(i).Value

Exit Function

End If

Next

End Function

 

 

 

 

 

전체 0

전체 1,208
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1160
오빠두엑셀 2022.07.31 8 1160
40636 VBA 4주 완성
4주차 VBA강의 노트 엑셀파일첨부파일
이명환 | 2022.07.30 | 추천 0 | 조회 142
이명환 2022.07.30 - 142
40631 VBA 4주 완성
[4주차]VBA 4주 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 50
이상민 2022.07.30 - 50
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 | 조회 39
이상민 2022.07.30 - 39
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 | 조회 31
최동국 2022.07.30 - 31
40618 VBA 4주 완성
[4주차] 스터디 노트, 미션 첨부파일
달구름 | 2022.07.30 | 추천 0 | 조회 37
달구름 2022.07.30 - 37
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 | 조회 36
Gladiolus 2022.07.30 - 36
40612 VBA 4주 완성
[1주차] VBA 4주 완성 특별스터디 1강 엑셀파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 56
Gladiolus 2022.07.30 - 56
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 | 조회 33
girls**** 2022.07.30 - 33
40596 VBA 4주 완성
[3주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 31
DanP 2022.07.29 - 31
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 | 조회 30
익명 2022.07.29 - 30
40591 VBA 4주 완성
[2주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 40
DanP 2022.07.29 - 40
40589 VBA 4주 완성
콜렉션및 배열등 엑셀파일첨부파일
브랑카 | 2022.07.29 | 추천 0 | 조회 32
브랑카 2022.07.29 - 32
40588 VBA 4주 완성
[3주차] VBA 4주 완성 노트 및 과제 엑셀파일첨부파일
토토니 | 2022.07.29 | 추천 0 | 조회 35
토토니 2022.07.29 - 35
40586 VBA 4주 완성
[4주차]VBA 4주 완성 엑셀파일첨부파일
ㅇㅇ나두 | 2022.07.29 | 추천 0 | 조회 36
ㅇㅇ나두 2022.07.29 - 36
글쓰기