엑셀 VBA를 더블 클릭

Question

에 열에서 선택한 모든 세포를 대문자 I가 매우 간단한 VBA 스크립트를 가지고, 그 선택한 셀 대문자 : 그것은 기대 작품으로

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    ActiveCell.Value = UCase(ActiveCell.Value) 
End Sub 

을, 그러나 때때로 나는 모든 세포를 활용하고 싶습니다 선택한 열에 있지만 열 자체를 두 번 클릭해야만 열 필드를 클릭하면 Worksheet_BeforeDoubleClick으로 이벤트를 수신 할 수없는 것 같습니다.

해결 방법이 있습니까?

Answer 1

내가 언급 한 것처럼, 왜 단축키가 필요하지 않습니까?.

아래와 같이 당신은 이제 당신이해야 할 모든 열을 선택하고 바로 가기 키를 눌러입니다 매크로에 대한 바로 가기 키를 할당 할 수 있습니다.

도 아닌 열의 각 셀을 통해 루핑 여기 Peter Albert하여 ONE LINER HACK에 기초하는 코드이다.

모듈에 넣으십시오.

Sub ChangeToUpper() 
    Dim rng As Range 

    '~~> Check if what the user selected is a valid range 
    If TypeName(Selection) <> "Range" Then 
     MsgBox "Select a range first." 
     Exit Sub 
    End If 

    Set rng = Selection 

    rng = WorksheetFunction.Transpose(Split(UCase(Join(_ 
      WorksheetFunction.Transpose(rng), vbBack)), vbBack)) 
End Sub 

스크린 샷 :

Answer 2

DoubleClick이 필수가 아닌 경우 BeforeRightClick을 사용할 수 있습니다. 당신이 원래 마우스 오른쪽 버튼으로 클릭 컨텍스트 메뉴를 유지하려는 경우, 당신은 module을 가져 Ctrl 키/Alt 키를 확인/

Option Explicit 

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
    Dim condition As Boolean 
    condition = True ' check Ctrl/Alt/Shift using http://www.cpearson.com/excel/KeyTest.aspx 
    If condition Then 
     MsgBox "Right Click at " & Target.Address 
     Cancel = True 
    End If 
End Sub 

또 다른 옵션은 이벤트 처리 대신 매크로 매크로 옵션에 Ctrl+[]을 할당하는 것입니다 Shift 키 수 매크로를 호출하여 Selection 개체를 처리합니다.