演算子｜Excel VBA (Part.4)【比較演算子】条件の発展的な利用（後編）｜プログラミング学習おすすめ書籍情報発信パソコン初心者エンジニア希望者新人エンジニア IT業界への就職・転職希望者サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site

お知らせ
目標
比較演算子の発展的な利用方法を確認する（後編）
- 少し変わった「条件」を考えてみる（後編）
ブックマークのすすめ

お知らせ

こちらの記事は、電子書籍「難しく考えないExcel VBA基礎学習編」として出版されました。記事は途中までが試し読みの対象となります。

howahowablogのVBA記事が電子書籍にて販売となりました。

リンク

目標

VBAの比較演算子について発展的な利用ができる

この記事では前回の演算子Part.3の続きで、少し変わった条件の書き方について後半の４つのプロシージャを作成してみたいと思います。

比較演算子の発展的な利用方法を確認する（後編）

少し変わった「条件」を考えてみる（後編）

前回からの続きで少し変わった条件の書き方のうち、残りの４つについてプロシージャを作成してみたいと思います。

選択したセルを条件に利用
セルが選択された時、値が「空」の場合にTrueを返すWorksheet_SelectionChangeを利用。

※セル選択時にプロシージャを起動するイベントWorksheet_SelectionChangeを利用します。Worksheet_SelectionChangeの引数にはTarget変数を利用します。これはワークシートが持つイベントプロシージャです。記述は個別のワークシートのプロシージャとして記述します。ここでは「Sheet1」にプロシージャを記述します。

MsgBoxのボタンの定数を利用する条件。

→vbYesとvbNoが押された場合で条件を分ける。

FileSystemObjectを利用してフォルダの有無を条件として利用。
FileSystemObjectはOSのファイル管理のプログラムを利用するためのプログラム。

→FileSystemObjectのFolderExistsメソッドを利用して条件を記述。

ユーザーフォームのオプションボタンを条件として利用。

→OptionButton1.ValueがTrueの場合。

条件の書き方としては、次のようになります。一例ではありますが、よく利用する書き方でもあるので、知っておくと便利です。

選択したセルが「空」の場合をTrueとする。

→Target変数を利用した条件を記述。
※イベントにWorksheet_SelectionChangeを利用（セル選択時にプロシージャを起動）
※sheet1にプロシージャを用意します。

※Worksheet_SelectionChangeなどの設定はまた別の機会に記事に書きたいと思います。

プロジェクトエクスプローラー内のSheet1（下キャプチャの赤枠）をダブルクリックするとシート専用のエディタが開きます。開いたエディタ内に以下のプロシージャを作成します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Value = "" Then
        MsgBox "選択したセルは空です。"
    Else
        MsgBox "何か入力されています。"
    End If

End Sub

実行結果

セルを選択するたびにプロシージャが動くようになっています。条件としては選択したセル（ターゲットのセル）に値があるか、ないかです。