VBAの引数Targetの使い方【クリックでマクロを実行するテクニック】

VBAでいろんなマクロを設定していると、

セルをクリックして作成したマクロを実行させたい

と感じる方が多いのではないでしょうか。

こんな要望にお応えします。

どうすればいいのかと言うと、引数Targetを使ってVBAを作る！です。

引数Targetを使えば、

セルをクリックするだけで作成したマクロを実行できる

ようになります。

たとえば、こんな感じ

セルのクリックで罫線を引く
セルのクリックでドロップダウンリストを表示させる
セルのクリックで背景色を変化させる

ボタンやユーザーフォームでマクロを実行するよりも、

シンプルでかっこいいエクセルファイルになること間違いなし！

この記事では、

引数Targetの基礎から応用まで、初心者にも分かりやすく解説。データ入力の自動化やレポート作成の効率化など、具体的な活用例も紹介

しています。

これを読めば、あなたのExcel作業が劇的に変わるかも？面倒な作業から解放されて、本当にやりたいことに集中できる未来が待っています。

引数Targetの使い方をマスターして、作業効率のアップを実現しませんか？

1 【VBA】引数Targetでできることとは？
2 【VBA】引数Targetとは
3 【VBA】引数Targetの活用事例
4 【VBA】引数Targetを使ったVBAの注意事項

【VBA】引数Targetでできることとは？

先ほども紹介しましたが引数Targetを導入することで

「セルをクリックすることで作成したマクロを実行する」

ことができるようになります。

「クリックしたセルの背景色を変えたい」「クリックしたセルの右隣のセルを削除したい」のように、

セルをクリックすると〇〇したい！

こんなマクロを設定したいシーンって結構ありますよね。

ガッツポーズの人

引数Targetを扱えるようになれば、こんな処理も思い通りに設定できるようになる。

Targetの解説に入る前に、

具体的にんなことができるのか！？

をサンプル事例を使ってご紹介していきます。

C列のセルをクリックすると背景色が緑色になる

引数字TargetとCloumn（列の指定）を組み合わせることで、指定する列のセルをクリックするとマクロを実行させることが可能になります。

C列のセルをクリックすると背景色を緑に変化させるマクロがこちら

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 Then
Target.Cells.Interior.Color = RGB(0, 255, 0)
Else
End If
If Err <> 0 Then
Err.Clear
End If
End Sub

実行結果がこちら

セルをクリックして背景色を変化させるVBAは

「チェック表」や「予定表」に導入すると使い勝手がよくかなり便利

です。

3行目のセルをクリックすると背景色が赤色になる

引数字TargetとRow（行の指定）を組み合わせることで、指定する行のセルをクリックするとマクロを実行させることが可能になります。

3行目のセルをクリックすると背景色を赤に変化させるマクロがこちら

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Row = 3 Then
Target.Cells.Interior.Color = RGB(255, 0, 0)
Else
End If
If Err <> 0 Then
Err.Clear
End If
End Sub

実行結果がこちら

C3セルをクリックすると背景色が黄色になる

引数字TargetとRow（行の指定）、Cloumn（列の指定）を組み合わせることで、指定するセルをクリックするとマクロを実行させることが可能になります。

C3セルをクリックすると背景色を黄色に変化させるマクロがこちら

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (Target.Column = 3) And (Target.Row = 3) Then
Target.Cells.Interior.Color = RGB(255, 255, 0)
Else
End If
If Err <> 0 Then
Err.Clear
End If
End Sub

実行結果はこちら

指定したセルをクリックすると色が塗りつぶされるマクロをつくることができました。

セルをクリックして実行させる方法はいろんなことに応用することができますよね。

実際に、私の勤めていた職場では引数Targetを応用させたマクロを数多く導入していました。

・色を変化させ、チェック作業に応用

・内容が変化するプルダウンリストを作成

・注意喚起ボタンを使って忘れ防止VBAの作成

エクセルを使った業務がある！という方には絶対に役立つマクロなので是非使い方をマスターしてみてください。

【VBA】引数Targetとは

WorkSheet_Changeイベントの引数Targetは、

セルの範囲を指定したり、セルをクリックしたときにVBAを実行する

ときに使われます。

下記では、引数Targetの使い方を動画で解説しています。

引数Targetを使う際、

WorkSheet_Changeイベントはプロシージャではなく、Sheetに作成する！

がポイントです。

標準モジュールで引数ターゲットを使おうとしてもうまくいきません。

ガッツポーズの人

引数TargetのVBAはSheetに入力する！を覚えておいてください。

引数Targetでセルの場所を指定するコードの書き方がこちら

Target.Row=〇〇

Target.column=△△

Target.Row=〇〇 And Target.column=△△

Cells(Target.Row,Target.column)

「クリックした行が〇〇行、クリックした列が△△列目」

という意味です。

この基本的な使い方さえ覚えておけばいろんなマクロに応用させることができます。

【VBA】引数Targetの活用事例

引数Targetが使われた事例をいくつかご紹介します。

え！？こんなことできるの？？

いろんなエクセル業務に応用できるかも？？

と感じてくれるはずです。

エクセル作業の効率アップに繋がるヒントが見つかると思いますので是非チェックしてみてください。

引数Targetと関数Ifの組み合わせ

引数Targetは関数IFと組み合わせることで、あらゆるエクセル業務に応用させることができます。

サンプル内容がこちら

セルをクリックするとセル内のテキストが、「空欄」→「〇」→「×」→「△」→「空欄」の順番で変化する

サンプルVBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Value = "" Then
Target.Value = "〇"
ElseIf Target.Value = "〇" Then
Target.Value = "×"
ElseIf Target.Value = "×" Then
Target.Value = "△"
ElseIf Target.Value = "△" Then
Target.Cells.ClearContents
Else
End If
If Err <> 0 Then
Err.Clear
End If
End Sub

実行結果

セルをクリックするだけでテキストをどんどん変化させることができました。

チェック欄にこのマクロを設定し、

クリックを繰り返すだけでどんどん作業を進める

ことが可能です。

ひらめく人

膨大な量のデータチェックを行うことがあるのでとても重宝されています。

引数Targetとプルダウンリストの組み合わせ

VBAでプルダウンリストを設定したいときには必ず引数Targetが必要になります。

サンプル事例内容がこちら

セルのクリックでプルダウンリストを表示する

サンプルVBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells.Validation.Delete
With Target.Validation
.Add Type:=xlValidateList, Formula1:="〇,×"
.ShowError = False
End With
If Err <> 0 Then
Err.Clear
End If
End Sub

実行結果