【Excel VBA】値貼り付けのショートカットキー: へなちょこOLのおもちゃ箱

2018年01月22日

【Excel VBA】値貼り付けのショートカットキー

やりたいこと

Excelの悪仕様のおかげで、うっかりふつーに貼ったら、無駄にリンクされちゃったり。
書式とか入力規則とか、モレなくおまけで付いてこられても嬉しくないし。

おまけはいらん。

Excelでの貼り付けの95%は値 or 式です。
でも、毎回毎回右クリックして[値]ボタン押すの、めんどくさい。

[Ctrl] +[Shift] + [V]で値貼り付けできるようにしましょ。

コード

標準モジュール


 Sub PasteOnlyValues()
On Error Resume Next
Selection.PasteSpecial xlPasteValues
End Sub

　※コピーが行われていない状態で実行するとエラーが発生するため、｢On Error Resume Next｣で回避

クラスモジュール


 Private Sub Workbook_Open()
Application.OnKey "+^v", "PasteOnlyValues"
End Sub

※[Ctrl] + [Shift] +[V]で貼り付けた場合、アンドゥ(元に戻す)は効きません。
※いつでも使いたいので、PERSONAL.XLSBに保存するか、.xlamでアドイン化しておきましょう。

特殊キー

キー

コード

Shift

+ (正符号)

Ctrl

^ (カレット)

Alt

% (パーセント記号)

一般キー

キー	コード
BackSpace	{BACKSPACE} または {BS}
Break	{BREAK}
CapsLock	{CAPSLOCK}
Clear	{CLEAR}
Delete または Del	{DELETE} または {DEL}
↓	{DOWN}
End	{END}
Enter (テンキー)	{ENTER}
Enter	~ (チルダ)
Esc	{ ESCAPE} または {ESC}
Help	{HELP}
Home	{HOME}
Ins	{INSERT}
←	{LEFT}
NumLock	{NUMLOCK}
PageDown	{PGDN}
PageUp	{PGUP}
Return	{RETURN}
→	{RIGHT}
ScrollLock	{SCROLLLOCK}
Tab	{TAB}
↑	{UP}
F1 ～ F15	{F1} ～ {F15}