728x90 반응형 VisualBasicforApplications50 (VBA) 구구단 만들기 - Range(), Offset(), Select, For 🔢 구구단 만들기 기본적인 명령어들로 구구단 만들기입니다 Range, Offset, select. for 🔢 구구단 Private Sub CommandButton1_Click() Dim Dan As Integer Dim Soo As Integer Dim Pos As String For Dan = 2 To 9 Select Case Dan Case 2 Pos = "B2" '2단 Case 3 Pos = "E2" '3단 Case 4 Pos = "H2" '4단 Case 5 Pos = "K2" '5단 Case 6 Pos = "N2" '6단 Case 7 Pos = "Q2" '7단 Case 8 Pos = "T2" '8단 Case 9 Pos = "W2" '9단 End Select For Soo = 1 To 9 Range.. 2023. 8. 13. (VBA) Range, Cells 같이 사용해서 셀 지정하기 - Range(), Cells() 🗑️ Range + Cells Range로 셀 범위를 지정하고 지정한 범위 안에서 Cells로 셀을 지정합니다 🗑️ Range + Cells 셀 지정 Private Sub CommandButton1_Click() Range("B2:D9").Cells(5, 2).Interior.Color = vbYellow End Sub 🗑️ 설 명 Range("B2:D9") >> 범위를 지정 Cells(5, 2) >> 지정한 범위 내에서 5행 2열을 지정합니다 Interior.Color = vbYellow >> 지정한 셀 배경색을 노란색으로 변경합니다 이렇게 같이 사용해서 셀을 지정할 수 있습니다 2023. 8. 13. (VBA) Offset 셀 지정하는 방법 - Offset() Offset ( [행 이동수], [열 이동수] ) 🈁 Offset 하나의 기준이 되는 셀을 지정하고 그 기준 위치에서 상하좌우로 셀 위치를 지정할 수도 있고 범위를 지정했을 경우에는 지장한 위치로 이동한 후 지정한 범위만큼 셀을 지정합니다 🈁 Offest 셀 지정 (기준) Private Sub CommandButton1_Click() Range("B2").Offset(0, 2).Value = "티스토리" End Sub "B2"를 기준으로 0행 2열을 이동한 셀을 지정하고 "티스토리"를 입력합니다 (오른쪽으로 2칸 이동) 왼쪽으로 이동 시 "-2"하시면 됩니다 Private Sub CommandButton1_Click() Range("B2").Offset(2, 0).Value = "티스토리" End Sub.. 2023. 8. 12. (VBA) Cells 셀 지정하는 방법 - Cells() Cells( [Coulmn(행)], [Row(열)] ) 🈁 Cells 하나의 셀을 지정하는데 열 번호 / 행 번호로 지정합니다 (범위 지정은 안됩니다) 🈁 Cells 셀 지정 Cells(3, 2) 🈁 설명 범위 지정을 할 수 없지만 Range로 범위를 지정하고 그 범위에서 열과 행 번호로 지정할 때 사용할 수 있습니다 2023. 8. 12. (VBA) Range 셀 지정하는 방법 - Range() Range( [Row(열)] [Column(행)] ) Range( [Row(열)] [Column(행)] : [Row(열)] [Column(행)] ) 🈁 Range 하나의 셀이나 범위로 셀을 지정할 수 있습니다 🈁 Range 셀 지정 (단일) Range("B2") 🈁 Range 셀 지정 (범위) Range("B2:C6") 🈁 Range 셀 지정 (그 외) 하나의 셀을 지정할 경우 Range("B" & "2") Range("B" & 2) 이런 식으로도 지정할 수 있습니다 (범위 지정은 안됩니다) 2023. 8. 12. (VBA) 반복문 중 "Until" 알아보기 - Do, Until, Loop 🚫 Until문 구조 Do Until [조건] [연산자] [조건] [명령어] Loop Do [명령어] Loop Until [조건] [연산자] [조건] While문과 실행은 똑같이 합니다 그런데 차이점은 조건을 설정하면 반대로 작동한다는 겁니다 조건을 "10보다 크면 반복해라"라고 설정하려면 🚫 Do Until Loop Private Sub CommandButton1_Click() Dim i As Integer Do Until i > 10 Debug.Print i i = i + 1 Loop End Sub 잘 보시면 조건이 "10보다 크면"입니다 그런데 결과는 0 ~ 10까지 출력이 됩니다 왜나하면 Until문이기 때문에 10보다 크면 반복문을 멈추고 10보다 작으면 반복문이 실행됩니다 🚫 Do Until .. 2023. 8. 9. (VBA) 반복문 중 "While" 알아보기 - Do, While, Loop 🔃 While문 구조 Do While [조건] [연산자] [조건] [명령어] Loop Do [명령어] Loop While [조건] [연산자] [조건] 조건을 설정해서 조건에 맞게 반복하는 반복문입니다 근데 2가지 구조를 가집니다 예제를 통해서 알아보겠습니다 🔃 Do While Loop Private Sub CommandButton1_Click() Dim i As Integer i = 1 Do While i 2023. 8. 8. (VBA) 반복문 중 "For Each" 알아보기 - For Each, Next 🔃 For Each문 구조 For Each [변수] In [모든 객체] [명령어] Next For문은 숫자로 반복 횟수를 설정해서 반복을 한다면 For Each는 객체나 배열을 순차적으로 반복을 합니다 (말이 좀 어렵네요.....) 🔃 생성된 전체 시트 이름 알아보기 Private Sub CommandButton1_Click() Dim WS As Worksheet For Each WS In Worksheets Debug.Print WS.Name Next End Sub 보시면 [변수]는 Worksheet [모든 객체]는 Worksheets 영어는 잘 모르지만 뒤에 "s"가 붙으면 복수이므로 [모든 객체]에서 시트 하나하나씩 [변수]에 담으면서 반복합니다 🔃 배열 모든 값 알아보기 Private Sub Co.. 2023. 8. 8. (VBA) 반복문 중 "For" 알아보기 - For, Next 🔃 For문 구조 For [변수] = [시작] To [끝] [명령어] Next 정해진 횟수([시작] To [끝])만큼 반복하는 명령어입니다 Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 10 Debug.Print i Next End Sub [변수]는 현재 몇 번째 반복인지를 저장합니다 그래서 "i" 변수를 출력하면 1~10을 각각 출력합니다 (10번 반복) 🔃 For문 빠져나오기 (Exit For) 반복문 실행 중 반복문을 중지하기 위해 사용합니다 Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 10 Debug.Print i If i = 5 Then Exit For E.. 2023. 8. 8. 이전 1 2 3 4 5 6 다음 728x90 반응형
