안녕하세요. 나가노라고 합니다. 평소에는 웹 제작에서 어떻게든 먹는 사람입니다.

업무에서 Excel을 자주 사용하므로 매크로에 등록되어 있는 단축키 등을 소개합니다.

VBA에서 단축키 등록 방법

매크로 사용하시는 분은 알고 있습니다만, 매크로의 메뉴에는 표준으로 단축키의 등록 항목이 있습니다

매크로를 사용하는 것만이라면 이쪽으로 충분하다고 생각합니다만,

목록이 없기 때문에 등록이 많으면 모르는 & 확인이 번거롭습니다

F1~F12나 방향키 등은 등록할 수 없다

Ctrl을 제거한 바로 가기 키를 등록 할 수 없습니다

등 불편한 곳도 얼른 있습니다.
VBA를 사용할 수 있다면 Application.OnKey를 사용하여 등록하는 것이
위의 단점은 해결되어 편리합니다.

Application.OnKey

예를 들어 값 붙여넣기의 Shift+ctrl+v로 등록하고 싶으면 이런 식으로 됩니다.

Sub 値貼り付け()
'
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
End Sub

(別のsubプロ―ジャに記録)
Application.OnKey "+^v", "値貼り付け"

+는 shift, ^는 ctrl, 그리고 프로저명(여기서는 「값 붙여넣기」)을 쓰면, 등록한 단축키로 할당할 수 있는 매크로가 실행됩니다.

또한 F1에서 도움말이 시작되지만 필요하지 않으면

Application.OnKey "{F1}", ""

라고 쓰면 F1을 눌러도 도움이 나오지 않습니다.

OnKey 메서드에 대한 자세한 내용은 여기에 설명되어 있습니다.
●OnKey 메서드(Excel) - Office VBA 참조
htps : // / cs. mic로소 ft. 코 m/쟈-jp/오후우세/v바/아피/에 x세 l. 아 ぃ카치온. 온케 y

그러나 이러한 Application.OnKey에 등록한 바로 가기 키를 활성화하려면 프로저를 한 번 실행해야 합니다.
따라서 Workbook_Open이나 Auto_Open에서 파일이 열렸을 때, 혹은 엑셀이 열렸을 때에 정리해 실행시키는 것이 좋다고 생각합니다.

Private Sub Auto_Open()

Application.OnKey "+^f", "式貼り付け"
Application.OnKey "+^v", "値貼り付け"
Application.OnKey "+^d", "シート削除"
Application.OnKey "+^t", "データ貼り付け"
Application.OnKey "+^g", "値入れ替え貼り付け"

End Sub

매크로 소개

이어서 내가 바로 가기 등록하거나 작성한 매크로도 가볍게 소개
(수시로 추가…의 예정입니다만, 덤이므로 저절로)

식 붙여넣기

Sub 式を貼り付け()
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=True, Transpose:=False
End Sub

현재 시트 삭제

Sub シート削除()
    ActiveWindow.SelectedSheets.Delete
End Sub

데이터 붙여넣기

데이터를 사이트에서 복사했을 때 HTML 형식 등은 반영하지 않고 붙여 넣습니다.

Sub データ貼り付け()
    ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
End Sub

참고・관련 링크

htps : // / cs. mic로소 ft. 코 m/쟈-jp/오후우세/v바/아피/에 x세 l. 아 ぃ카치온. 온케 y
h tps:// 퀵했다. 소 m/오쿠노 켄토/있어 MS/788C44BD2っc3186f1845
htps : // 에 x 세 l 우라. 이 m / e x 세 lv 1 / e X 세 LV 428. HTML