Excel VBA - ynjch97/YNJCH_WIKI GitHub Wiki

1. 변수 설정

• Dim : Dimension의 약자로, 변수를 선언하는 명령어
• Dim 뒤에 사용자가 지정한 변수명을 입력
• AS 뒤에 해당 변수의 자료형을 지정 (입력하지 않아도 무방)

Dim fileName As String
Dim fileSize As Integer

2. 조건문과 반복문

2-1. If 문

If fileSize > 0 Then
    Exit Sub
ElseIf fileSize = 0 Then
    fileName = Cells(2, "A").Value
Else
    fileName = Cells(3, "A").Value
End If

2-2. Case 문

• Select Case Target.Column : Target.Column 즉, 열에 대한 Case 문임
• Case 7 : 일곱 번째 열인 G열을 뜻함
• Target.Row : 선택한 셀의 행 번호를 리턴

Select Case Target.Column
    Case 7
        fileSize = 0
    Case 10
        Cells(Target.Row, "A").Value
    Case Else
        Exit Sub
End Select

2-3. For 문

For i = [시작값] To [종료값]
    (생략)
Next i

3. 셀 제어

3-1. 특정 셀에 포커스 주기

• If Target.Column = 2 And Target.Row = 7 Then : 선택한 타겟이 2열(B열) 7행이라면
• Target.Value : 선택한 대상 셀의 값을 가져옴
• Range("B4") 또는 Cells(4, "B") : B4열 제어 시 Range 또는 Cells 사용
• Range("B4").Select : B4셀에 포커스 주기

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    Select Case Target.Column
        Case 2, 3, 4, 5
            If Target.Column = 2 And Target.Row = 7 Then
                Range("B" & (Target.Value + 9)).Select
                Cells((Target.Value + 9), "B").Select
            End If
        Case Else
            Exit Sub
    End Select
    
End Sub

4. 마우스 이벤트

• 아래와 같이 더블 클릭, 오른쪽 마우스 클릭 등에 이벤트를 설정할 수 있음

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    (내용 입력)
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    (내용 입력)
End Sub

4-1. 활용 예시

• 10~14열에 대해 우클릭 시 배경색 변경 이벤트 적용
• 15열에 대해 우클릭 시 "O","X" 토글 이벤트 적용
• 1~9행은 오른쪽 마우스를 클릭해도 반응하지 않도록 처리

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Select Case Target.Column
        Case 10, 11, 12, 13, 14, 15
            If Target.Row < 10 Then '1~9행은 Exit Sub
                Exit Sub
            End If
        Case Else '10~15열이 아니면 Exit Sub
            Exit Sub
    End Select
    
    Select Case Target.Column
        Case 10, 11, 12, 13, 14 '배경색 변경
            If Target.Interior.Color = RGB(153, 153, 255) Then
                Target.Interior.Color = RGB(255, 255, 255)
            Else
                Target.Interior.Color = RGB(153, 153, 255)
            End If
                
        Case 15 'O,X 변경
            If Target.Value = "O" Then
                Target.Value = "X"
            Else
                Target.Value = "O"
            End If
            
        Case Else
            Exit Sub
    End Select

End Sub

5. 외부 프로그램 호출

5-1. 텍스트 파일 열기

Dim filePath As String
Dim fileName As String
Dim progPath As String

filePath = "y:\경로1\경로1-1\"
fileName = filePath & Target.Value & ".sql"

If Dir(fileName) = "" Then '설정한 경로에 해당 파일이 없는 경우
    Exit Sub
Else
    Workbooks.Open fileName:=fileName '파일이 존재하면 열기
End If
    progPath = "C:\Users\YNJCH\AppData\Local\Programs\Microsoft VS Code\Code.exe" '실행시킬 파일 경로
    progPath = "notepad.exe" '실행시킬 파일 경로
    Proc = Shell(progPath & " " & fileName, vbNormalFocus) '파일 실행!!

5-2. Excel 파일 열기

Dim filePath As String
Dim fileName As String

filePath = "y:\경로1\경로1-1\"
fileName = filePath & "Excel.xlsx"

If Dir(fileName) = "" Then '설정한 경로에 해당 파일이 없는 경우
    Exit Sub
Else
    Workbooks.Open fileName:=fileName '파일이 존재하면 열기
End If

5-3. Excel 파일명 가져오기

• For 문으로 선택한 셀의 행과 그 이후 3개 행의 값을 확인
• Dir("A*.xlsx") : A로 시작하는 Excel 파일을 가져옴

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Dim abbName As String
    Dim fileName As String
    Dim filePath As String
    Dim idx As Integer
    
    Select Case Target.Column
        Case 7 '선택한 셀이 G열인 경우 For 문 시작
            For i = Target.Row To Target.Row + 3 
                filePath = "y:\경로1\경로1-1\"
                fileName = "" '파일명 변수는 빈값으로 선언

                If Len(Cells(i, "F").Value) > 0 Then 'F열의 i행에 값이 있는 경우 Excel 파일명 가져오기
                    fileName = Dir(filePath & Cells(i, "F").Value & "*.xlsx")
                End If
                
                Cells(i, "Q") = Left(Right(fileName, 16), 11)
            Next i
            
        Case Else
            Exit Sub
    End Select
    
End Sub