VBAの引数Targetの使い方【クリックでVBAの実行が可能】

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

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

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

引数Targetを扱えるようになるとこんなことが可能になります。

セルのクリックで作ったマクロを実行させる
セルのクリックでドロップダウンリストを表示させる
セルのクリックで背景色を変化させる

ひらめく人

「セルをクリックで〇〇できる」ってことですね。

VBAの実行でよく使われるのが、「ユーザーフォームによる実行」や「ボタン」です。

ですが、

業務内容によって、「ユーザーフォームによる実行」や「ボタン」が邪魔くさい！と感じることがあります。

セルのクリックでマクロを実行できるようになると、シンプルでかっこいいエクセルにすることができます。

マクロの実行方法で悩んでいる方は是非参考にしてみてください。

1 【VBA】引数Targetでできることとは？
2 【VBA】引数Targetとは
3 【VBA】引数Targetの使い方
- 3.1 引数Targetと関数Ifの組み合わせ
- 3.2 引数Targetとプルダウンリストの組み合わせ
4 【VBA】引数Targetを使ったVBAの注意事項
5 【VBA】引数Targetを使った事例
- 5.1 プルダウンリストの内容が変化するエクセル家計簿
- 5.2 ユーザーフォームが表示されるエクセルカレンダー
6 VBAの導入は「エクセル作業の効率アップ」に必須事項

【VBA】引数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

実行結果がこちら

セルをクリックして背景色を変化させるマクロは「チェック表」に導入すると使い勝手がよくかなり便利です。

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に作成する！ということです。

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

引数ターゲットはSheetにVBAをつくる！ということを覚えておいてください。

使い方としては、

Target.Row=〇〇または Target.column=△△、もしくは Target.Row=〇〇 And Target.column=△△

と記載します。

〇〇行目、△△列目という意味です。

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

【VBA】引数Targetの使い方

引数Targetを実務に導入するためのおすすめの使い方をご紹介します。

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

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

引数Targetは関数IFと組み合わせることで、とても便利に使うことができます。

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

セルをクリックするとセル内のテキストがどんどん変化する

「空欄」→「〇」→「×」→「△」→「空欄」のような変化をするサンプルVBAを紹介します。

サンプル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

実行結果