Home » エクセルマクロ・Excel VBAの使い方 » マクロのサンプル » マクロで値の貼り付けをショートカットキーに

マクロで値の貼り付けをショートカットキーに

対象：Excel97,Excel2000,Excel2002,Excel2003

［値の貼り付け］ボタンをツールバー上に作成し、アクセスキ−を表示させることによって、疑似ショートカットキー操作によって値の貼り付けを実行できることをご紹介しました。

本当のショートカットキー操作ができるようにするには、マクロを作成する必要があります。

［スポンサードリンク］

まずは値の貼り付けのマクロを作成します。

▼値の貼り付けを行うマクロ
Sub PasteValues()
　On Error Resume Next
　Selection.PasteSpecial xlPasteValues
End Sub

値の貼り付けに実際必要なコードは
「Selection.PasteSpecial xlPasteValues」
という1行だけですが、コピーが行われていない状態でこのマクロが実行されると、エラーが発生するため、それを回避するために「On Error Resume Next」ステートメントを入れています。

値の貼り付けマクロができたら、マクロをショートカットキーで実行できるようにするイベントプロシージャを作成します。

▼PasteValuesマクロにショートカットキー：［Ctrl］＋［Shift］＋［V］を割り当てるWorkbook_Openイベントプロシージャ

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

Application.OnKeyメソッドの
第1引数にキーを表す文字列：「+^v」
第2引数に実行したいプロシージャ名：「PasteValues」
をそれぞれ指定しています。

「+^v」の
「+」が［Shift］キー
「^」が［Ctrl］キー
を表し、
［Ctrl］＋［Shift］＋［V］キーでPasteValuesマクロが実行できます。

▼サンプルファイル（001988.xls　24KByte）ダウンロード

このサイトでは、Workbook_Openイベントプロシージャによるショートカットキー割り当てについて以下のようなネタをご紹介していますので、合わせてご参照ください。

関連語句

キーボードショートカット

［スポンサードリンク］