【VBA】 클릭한 셀의 색을 바꾸는 방법

이번에는 클릭 한 셀의 색상을 변경하는 방법입니다.

무엇을 사용할 수 있습니까? ? 라는 느낌이지만, 써 갑니다 w

↓실연 동영상
htps: //같다. 베 / Tn X0 5tv

이번에는 시트 이름을 마우스 오른쪽 버튼으로 클릭하고 "코드 표시"를 클릭하십시오.
이번에는 그 안에 코드를 써 갑니다.


소스 코드는 아래와 같습니다.

'ダブルクリックの処理
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Target.Interior.Color = vbRed

 End Sub

  '右クリックの処理
 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Target.Interior.Color = vbGreen

 End Sub

'左クリックの処理
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column > 9 Then Exit Sub

    Select Case Target.Interior.ColorIndex
    Case Is = xlNone
        Target.Interior.ColorIndex = 5
    Case Else
        Target.Interior.ColorIndex = xlNone
    End Select

End Sub

자세한 내용을 설명합니다.

① 더블 클릭 판정

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

더블 클릭을 결정하려면 Worksheet_BeforeDoubleClick 프로 시저를 사용하십시오.

Worksheet_BeforeDoubleClick에 대해서는 아래 사이트가 도움이 될 것입니다.
htps : // v 바베 긴 r. 네 t /에서 ct-s 1

Target.Interior.Color = vbRed

Target에는 더블 클릭된 셀의 위치가 들어 있으므로, 그 셀의 색을 적색으로 변경하고 있습니다.

② 오른쪽 클릭 판정

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

오른쪽 클릭을 결정하려면 Worksheet_BeforeRightClick 프로 시저를 선택합니다.

Worksheet_BeforeRightClick에 대해서는 아래 사이트가 도움이 될 것입니다.
htps : // v 바베 긴 r. 네 t/를 rk 하고 t_베후레리 ghtcぃck/

Target.Interior.Color = vbGreen

Target에는 오른쪽 클릭된 셀의 위치가 들어 있으므로, 그 셀의 색을 녹색으로 변경하고 있습니다.

③왼쪽 클릭 판정

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

왼쪽 클릭을 결정하려면 Worksheet_SelectionChange 프로 시저를 사용하십시오.

Worksheet_SelectionChange에 대해서는, 아래의 사이트가 참고가 된다고 생각합니다.
h tp // w w. 예 xse l. s 츠오오카즈. jp / mg2 / 바 ck없는 m r / m20040727. HTML

If Target.Column > 9 Then Exit Sub

이것은 반영하는 범위를 제어하기 위해 작성되었습니다.
열의 열 10 이후의 셀을 선택한 경우 처리를 종료하는 것입니다.

Select Case Target.Interior.ColorIndex
    Case Is = xlNone
        Target.Interior.ColorIndex = 5
    Case Else
        Target.Interior.ColorIndex = xlNone
End Select

Case 문에서 클릭한 셀이 채우기 없는 경우 ColorIndex에서 번호를 지정하여 색상을 변경하고, 그렇지 않으면 채우기 없이 변경하고 있습니다.

이상이 클릭한 셀의 색을 바꾸는 방법이었습니다.