[Excel] VBA 정리

 

 

https://mainia.tistory.com/5533

엑셀 VBA 시트 더블클릭 이벤트로 셀에 배경색 변경하기

 

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Interior.Color = vbRed Then
        Target.Interior.Color = xlNone
    Else
        Target.Interior.Color = vbRed
    End If
    Cancel = True
    
End Sub

 

 

https://blog.daum.net/monogatari/13409674

[엑셀] 셀선택시 값이 다른셀에 자동표시 VBA

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("b4:b200")) Is Nothing Then
        Range("b2").Value = TargetValue
    End If
End Sub

 

 

 

 

https://pfe2000.tistory.com/382

엑셀 셀 클릭 매크로 연결하기 (VBA 문법 몰라도 되요^^)

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("e1")) Is Nothing Then
            Call 원화표시
        End If
        If Not Intersect(Target, Range("d2")) Is Nothing Then
            Call 오름정렬
        End If
        If Not Intersect(Target, Range("d1")) Is Nothing Then
            Call 내림정렬
        End If
        If Not Intersect(Target, Range("c1")) Is Nothing Then
            Call 수입보기
        End If
        If Not Intersect(Target, Range("b1")) Is Nothing Then
            Call 전체보기
        End If
        If Not Intersect(Target, Range("b4")) Is Nothing Then
            Call 지출_저축_투자
        End If
        If Not Intersect(Target, Range("b5")) Is Nothing Then
            Call 지출_주거
        End If
        If Not Intersect(Target, Range("b6")) Is Nothing Then
            Call 지출_식비
        End If
        If Not Intersect(Target, Range("b7")) Is Nothing Then
            Call 지출_생활용품
        End If
        If Not Intersect(Target, Range("b8")) Is Nothing Then
            Call 지출_의복_미용
        End If
        If Not Intersect(Target, Range("b9")) Is Nothing Then
            Call 지출_건강
        End If
        If Not Intersect(Target, Range("b10")) Is Nothing Then
            Call 지출_자기계발
        End If
        If Not Intersect(Target, Range("b11")) Is Nothing Then
            Call 지출_자동차
        End If
        If Not Intersect(Target, Range("b12")) Is Nothing Then
            Call 지출_육아
        End If
        If Not Intersect(Target, Range("b13")) Is Nothing Then
            Call 지출_보험
        End If
        If Not Intersect(Target, Range("b14")) Is Nothing Then
            Call 지출_이벤트
        End If
        If Not Intersect(Target, Range("b15")) Is Nothing Then
            Call 지출_섬김비
        End If
        If Not Intersect(Target, Range("b16")) Is Nothing Then
            Call 지출_헌금
        End If
        If Not Intersect(Target, Range("b17")) Is Nothing Then
            Call 지출_기부
        End If
        If Not Intersect(Target, Range("b18")) Is Nothing Then
            Call 지출_통신비
        End If
        If Not Intersect(Target, Range("b19")) Is Nothing Then
            Call 지출_기타
        End If
    End If
End Sub

 

 

 

 

 Dim ~ As Boolean : a와 b가 Boolean 형

Sub T()

    Dim a As Boolean
    Dim b As Boolean

    a = True
    b = 0
    Debug.Print (a)
    Debug.print (b)

End Sub

 

 

https://wikidocs.net/33048

03-1 다시 변수

 

 

 

 

 

Function. 함수 만들기

Sub T()

    Cells(1, 1) = 멘트(이름)

End Sub

Function 멘트(이름)

    ment = "안녕하세요"
    ment = ment + 이름
    ment = ment + "님 프로그램을 시작하겠습니다."

    멘트 = ment

End Function

 

 

 

 

 

 

 

 

 

https://wikidocs.net/46453

04-2 직접 만드는 함수

 

 

 

 

 

 

참고

https://wikidocs.net/33048

03-1 다시 변수