判断 | 独学エクセル塾

【マクロVBA練習問題23】文字・数値のみのデータのみカウント！数式や空白を判定して除外する

matsu — Thu, 20 Jul 2023 17:30:52 +0000

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題23について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
1. ・ヒントその1
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
まとめ

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題23について

こちらはマクロVBAの知識で少し発展した課題になります。

今回は文字・数値のみのデータのみカウントし、数式や空白を判定して除外するする練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

ル番地A1からA10までのセルのうち、文字・数値のみが含まれているセルの個数を数え、その個数をセル番地C2に表示する。

動作説明

VBAを使用して、指定された範囲のセルを調査し、文字や数値が含まれているセルの個数を数えます。

その結果をセル番地C1に表示します。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

条件分岐を使用して、セルの内容が文字や数値を含んでいるかを判定します。
条件式を使って、文字や数値が含まれている場合にカウントを増やします。

一例を紹介します。

数値の判定：①IsNumeric(判定対象) ・・・空白・数式で計算した数値を含める
　　　　　　②WorksheetFunction.IsNumber(判定対象) ・・・数式で計算した数値を含める

文字の判定：①VarType(判定対象) = vbString・・・文字・数値・数式で計算した文字・数値を含める
　　　　　　②WorksheetFunction.IsText(判定対象)・・・文字・数式で計算した文字を含める

空白の判定：①IsEmpty(判定対象)

数式の判定：①判定対象.HasFormula

数値・文字の判定でもそれぞれ特徴があるので注意が必要です。

以上のヒントを参考に課題に取り組んでみてください！

最新・便利な機能を搭載したExcel・officeを試しませんか？
Excel 2013以下を使用している方はサポートが終了しているので注意が必要です！
【最新2023年】Excel・Officeの価格比較！あなたに合ったオススメの製品の選定方法から購入 ► 独学エクセル塾 (dokugakuexcel.com)

解答コード

では回答を見ていきましょう！

・回答その①

Sub Exercise23to1()
Dim rng As Range
Dim cell As Range
Dim count As Integer

‘ ソース範囲を設定
Set rng = Range(“A1:A10”)

‘ カウンターを初期化
count = 0

‘ 各セルをチェックして文字列または数値のみをカウント
For Each cell In rng
‘ 空白または数式のセルを除外
If Not IsEmpty(cell.value) And Not cell.HasFormula Then
‘ 文字列または数値のみをカウント
If IsNumeric(cell.value) Or VarType(cell.value) = vbString Then
count = count + 1
End If
End If
Next cell

‘ 結果を表示
Range(“C2”).value = count

End Sub

上記のコードは、セル番地A1からA10までのセルのうち、文字や数値が含まれているセルの個数を数え、
その結果をセル番地B1に表示するVBAのマクロです

コードの解説
1. Dim count As Integerによって、カウントを格納するための変数countを宣言します。
2. count = 0で、カウントの初期値を0に設定します。
3. For Each cell In rngで、セル番地A1からA10までの範囲をループ処理します。
4. [If Not IsEmpty(cell.value) And Not cell.HasFormula Then]で、空白または数式のセルを除外します。
5. [If IsNumeric(cell.value) Or VarType(cell.value) = vbString Then]でセルの内容が数値または文字列であるかを判定します。
　条件を満たす場合、カウントを増やします。
6. Next cellでループを次に進めます。
7. Range(“C2”).Value = countで、カウント結果をセル番地C2に表示します。

それでは実行してみましょう。
結果はこのようになります。

文字・数値のみカウントすることが出来ていますね。

・回答その②

Sub Exercise23to2()
　Dim rng As Range
　Dim cell As Range
　Dim count As Integer

‘ ソース範囲を設定
Set rng = Range(“A1:A10”)

‘ カウンターを初期化
count = 0

‘ 各セルをチェックして文字列または数値のみをカウント
For Each cell In rng
‘ 空白または数式のセルを除外
　If Not IsEmpty(cell.value) And Not cell.HasFormula Then
‘ 文字列または数値のみをカウント
　　If WorksheetFunction.IsNumber(cell.value) Or WorksheetFunction.IsText(cell.value) Then
　　　count = count + 1
　　End If
　End If
Next cell

‘ 結果を表示

Range(“B1”).value = count
End Sub

動作は一緒ですが、判断に使用するソースコードが異なります。

今回は数式の判別に「cell.HasFormula 」を使用し、
数値を「WorksheetFunction.IsNumber(cell.value)」、文字を「WorksheetFunction.IsText(cell.value) 」で判定しています。

判定するコードも複数あるので特徴を理解して使用してください。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

数値の判定

IsNumeric関数またはWorksheetFunction.IsNumberを使用して数値であるか判断します。
しかし、IsNumeric関数は空白を含める特徴があります

【マクロVBA】IsNumeric関数を使って数値判定！変数・セルの値でも数字であるか判別可能 ► 独学エクセル塾 (dokugakuexcel.com)

文字の判定

VarTypeまたはWorksheetFunction.IsTextを使用して文字であるか判断します。
しかし、VarTypeを「vbString」で条件分岐した場合は数値を含める特徴があります

空白の判定

IsEmptyを使用して空白であるか判断します。

空白の判定：①IsEmpty(判定対象)

【マクロVBA】セルや変数が空白かどうかを判断する方法！IsEmpty関数の使い方と注意点も紹介 ► 独学エクセル塾 (dokugakuexcel.com)

数式の値の判定

HasFormulaを使用して空白であるか判断します。

数式の判定：①判定対象.HasFormula

【マクロVBA】セルが数式を含んでいるか判断・判定する方法！HasFormula関数で簡単チェック！ ► 独学エクセル塾 (dokugakuexcel.com)

まとめ

この練習問題では、VBAを使用してセルの範囲内に含まれる文字や数値を判定し、個数を数える操作について学びました。

具体的には、セル番地A1からA10までのセルのうち、文字や数値が含まれているセルの個数を数え、
その結果をセル番地C2に表示する問題を解きました。

この問題を解くためには、ループ構造や条件分岐を活用し、セルの値を判定する方法が必要でした。

VBAを使うことで、Excelの操作やデータ処理を自動化し、効率化することができます。

練習問題を通じて、VBAの基本的な構文や関数、ループ処理、条件分岐などのスキルを向上させましょう。

次の練習問題では、さらに応用的な操作や問題に取り組んでいきますので、ステップバイステップで取り組んでスキルを磨いていきましょう。

以上が練習問題23となります。お疲れ様でした！

【マクロVBA練習問題22】文字・数値の置き換え！指定範囲をまとめて置換・出力する方法

matsu — Mon, 17 Jul 2023 14:33:54 +0000

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題22について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
1. ・ヒントその1
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
まとめ

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題22について

こちらはマクロVBAの知識で少し発展した課題になります。

今回は指定範囲内の文字・数値を置換する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までのセルに入力されたテキストの中で、一部の文字列を別の文字列に置換して、結果をセル番地C1からC10に表示する。

動作説明

この問題では、セル番地A1からA10までのセルに入力されたテキストを操作し、指定した文字列を別の文字列に置換します。

そして、置換後の結果をセル番地C1からC10に表示します。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

テキストの置換には、VBAの組み込み関数であるReplace関数を使用します。
この関数は、指定した文字列内の一部の文字列を別の文字列に置換するために使用されます。

Replace(対象文字列, 置換前の文字列, 置換後の文字列, [開始位置], [置換回数], [比較方法])
　※[]内は省略可能

– 対象文字列: 置換を行いたい文字列。
– 置換前の文字列: 置換したい部分文字列。
– 置換後の文字列: 置換後の文字列。
– 開始位置 (オプション): 置換を開始する位置。省略すると1番目の文字から置換が始まります。
– 置換回数 (オプション): 置換を行う回数。省略するとすべての一致箇所が置換されます。
– 比較方法 (オプション): 文字列の比較方法を指定します。省略するとバイナリ比較が行われます。

これらのヒントを参考にして、解答コードを作成してみてください。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

Sub Exercise22to1()
　Dim rng As Range
　Dim cell As Range

‘ 対象範囲を指定
　Set rng = Range(“A1:A10”)

‘ 置換処理を実行
For Each cell In rng
　cell.Offset(0, 2).value = Replace(cell.value, “エクセル”, “Excel”)
Next cell
End Sub

上記のコードでは、セル番地A1からA10までのセルに入力されたテキストの中で、エクセルをExcelに置換しています。

置換後の結果は、元のテキストとは別のセルのC列に表示されます。

それでは実行してみましょう。
結果はこのようになります。

エクセルをExcelに置き換えることが出来ていますね。

・回答その②

Sub Exercise22to2()
　Dim rng As Range
　Dim cell As Range

‘ 対象範囲を指定
Set rng = Range(“A1:A10”)

‘ 置換処理を実行
For Each cell In rng
　cell.Offset(0, 2).value = WorksheetFunction.Substitute(cell.value, “エクセル”, “Excel”)
Next cell
End Sub

上記のコードでは、WorksheetFunction.Substitute関数を使用して文字列の置換を行っています。

この関数は、指定した文字列内の一部の文字列を別の文字列に置換するために使用されます。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

Offsetメソッド

Offsetメソッドは、Rangeオブジェクトの位置をずらすために使用されます。

Offsetメソッドを使用して、対象セルからの相対的な位置に移動することができます。

Replace関数

Replace関数は、指定した文字列内の一部の文字列を別の文字列に置換するために使用されます。

置換前の文字列と置換後の文字列を指定することで、テキストの置換を行うことができます。

【マクロVBA】文字・数値の置き換え!部分・完全一致や大・小文字、全角半角などオプションも解説 ► 独学エクセル塾 (dokugakuexcel.com)

WorksheetFunctionの使用

Substitute関数の置換をするためには、WorksheetFunctionが必要です。
下記参考記事で紹介しています！

【マクロVBA】通常のワークシート関数の機能をVBAでも使用する方法~WorksheetFunction~ ► 独学エクセル塾 (dokugakuexcel.com)

まとめ

この練習問題では、指定したセル範囲に入力されたテキストの中から一部の文字列を置換する操作について学びました。

具体的には、セル番地A1からA10までのセルに入力されたテキストの中で、指定した文字列を別の文字列に置換し、
結果を別のセル範囲に表示する問題を解きました。

解答コードでは、RangeオブジェクトやOffsetメソッドを使用して対象範囲を指定し、Replace関数を使用してテキストの置換を行いました。

VBAを使うことで、セル内のテキスト操作や置換など、様々なデータ処理を自動化することができます。
練習問題を通じて、VBAのスキルを向上させ、エクセルの操作を効率化する方法を学んでいきましょう。

以上が練習問題21となります。お疲れ様でした！

【マクロVBA練習問題21】重複の判定！指定セル範囲内で同じ文字・数値がある場合は色を付ける

matsu — Thu, 13 Jul 2023 07:48:42 +0000

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題21について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
1. セルの背景色の変更
2. コレクションや辞書の使用
まとめ

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題21について

こちらはマクロVBAの知識で少し発展した課題になります。

指定範囲内の重複した文字・数値を判定して、重複しているセルに色を付ける練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までのセルに入力されたテキストの中で、重複する値を持つセルの背景色を赤色に変更する。

動作説明

VBAを使用して、指定されたセル範囲内のテキストの重複をチェックし、

重複がある場合にそのセルの背景色を赤色に変更します。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルの背景色を変更するには、Interiorプロパティを使用します。

例えば、Range(“A1”).Interior.Color = RGB(255, 0, 0)というコードを使って、セルA1の背景色を赤色に変更することができます。

・ヒントその2

テキストの重複をチェックするためには、ループや条件分岐を使用します。

ループを使ってセル範囲内の値を1つずつ取得し、重複をチェックする必要があります。

・ヒントその3

重複をチェックするためには、配列やコレクションを使用する方法もあります。

セル範囲の値を配列に格納し、配列内で重複をチェックすることで効率的に処理できます。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

Sub Exercise21to1()
　Dim rng As Range
　Dim cell As Range
　Dim values As Collection

Set rng = Range(“A1:A10”)
Set values = New Collection

‘重複する値を持つセルを赤色に変更
For Each cell In rng
　On Error Resume Next
　values.Add cell.value, CStr(cell.value)
　If Err.Number <> 0 Then
　　cell.Interior.Color = RGB(255, 0, 0) ‘背景色を赤色に変更
　　Err.Clear
　End If
On Error GoTo 0
Next cell
End Sub

上記のコードは、セル範囲A1からA10のテキストの中で重複する値を持つセルの背景色を赤色に変更するVBAのマクロです。

解答コードでは、Collectionオブジェクトを使用して重複をチェックしています。

セル範囲内の値を順に処理し、値が既にコレクションに存在する場合は重複とみなし、セルの背景色を赤色に変更しています。

それでは実行してみましょう。
結果はこのようになります。

A5とA9はA3と同じ「エクセル」であるため重複と判断し、背景色が変わっています。

・回答その②

Sub Exercise21to2()
　Dim rng As Range
　Dim cell As Range
　Dim values As Object

Set rng = Range(“A1:A10”)
Set values = CreateObject(“Scripting.Dictionary”)

‘重複する値を持つセルを赤色に変更
For Each cellIn rng
　If Not values.Exists(cell.value) Then
　　　values.Add cell.value, 1
　　Else
　　　cell.Interior.Color = RGB(255, 0, 0) ‘背景色を赤色に変更
　End If
Next cell
End Sub

この回答コードでは、Scripting.Dictionaryオブジェクトを使用して重複をチェックしています。

セル範囲内の値を順に処理し、値が辞書に存在しない場合は辞書に追加し、
既に存在する場合は重複とみなし、セルの背景色を赤色に変更しています。

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

セルの背景色の変更

セルの背景色を変更するには、Interior.Colorプロパティを使用します。
色はRGB値で指定します。例えば、赤色はRGB(255, 0, 0)で表されます。

【マクロVBA】セルの背景に色をつける・設定・変更！ Interior.ColorとRGBなどで指定 ► 独学エクセル塾 (dokugakuexcel.com)

コレクションや辞書の使用

重複をチェックするために、コレクションや辞書を使用します。

コレクションはCollectionオブジェクト、辞書はScripting.Dictionaryオブジェクトを使用します。

値を追加したり、既に存在するかチェックしたりすることができます。

まとめ

この練習問題では、VBAを使用してセル範囲内のテキストの重複をチェックし、

重複する値を持つセルの背景色を赤色に変更する方法について学びました。

具体的には、セル範囲A1からA10のテキストを比較し、重複する値を持つセルを特定し、その背景色を赤色に変更しました。

問題を解くためには、セルの背景色の変更、セル範囲の指定、コレクションや辞書の使用、ループ処理などの知識が必要でした。

VBAを使うことで、Excelの操作を自動化したり、データの処理や解析を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

以上が練習問題21となります。お疲れ様でした！

【マクロVBA】セルが数式を含んでいるか判断・判定する方法！HasFormula関数で簡単チェック！

matsu — Thu, 13 Jul 2023 07:03:12 +0000

VBAを使ってExcelのデータ処理を行う際、セルが数式を含んでいるかどうかを判断する必要がある場面があります。

そこで活用できるのが「HasFormula」関数です。
この関数を使うことで、特定のセルが数式を含んでいるかどうかを簡単にチェックすることができます。

この記事では、HasFormula関数の使い方や注意点について詳しく解説します。
ぜひ参考にしてください。

それでは見ていきましょう！

⬛︎こんな事ができるようになる！
■構文
⬛︎忙しい人向けのコピペ用ソースコード
■セルが数式を含んでいるか確認する方法
⬛︎よくあるエラーと対処法
■練習問題
⬛︎公式の説明
⬛︎まとめ

⬛︎こんな事ができるようになる！

・セルが数式を含んでいるかどうかを判断できるようになる

■構文

HasFormula関数は、指定したセルが数式を含んでいるかどうかを判断するための関数です。

この関数は論理値（TrueまたはFalse）を返し、数式が含まれていればTrue、含まれていなければFalseとなります。

戻り値＝対象セル.HasFormula

IsEmpty関数は、指定したセルが数式を含んでいるか判断するために使用されます。

戻り値はTrue（空白）またはFalse（空白でない）となります。

⬛︎忙しい人向けのコピペ用ソースコード

Sub CheckFormula()
Dim rng As Range
Set rng = 対象セル

If rng.HasFormula Then
 '数式の処理
Else
 '数式でないときの処理
End If
End Sub

対象セルはカスタムして使用してください。
「数式の処理」または「数式でないときの処理」を当てはめることで場面に合わせて処理できます。

■セルが数式を含んでいるか確認する方法

まずはセルが数式を含んでいるかを判断する方法について説明します。

・通常の文字・文字数値が入力されてある場合

まず通常の文字・文字数値が入力されてある場合を見ていきましょう。

下図の見本をご覧ください。

B3にはでなく「123」と入力された数値があります。
今回はこちらを数式なのか判断してみたいと思います。

では再度構文を見ていきましょう。

戻り値＝対象セル.HasFormula

では構文に当てはめてみましょう。
対象セルはB3のセルなのでそのままB3が当てはまります。

そこからIfを使用することで数式の時は「数式を含んでいます」を出力、数式でない場合は「数式が含まれていません」という出力をします。

それではソースコードを見ていきましょう。

Sub CheckFormula()
Dim rng As Range
Set rng = Range(“B3”)

If rng .HasFormula Then
　Cells(3, 4) = “数式を含んでいます。”
Else
　Cells(3, 4) = “数式が含まれていません。”
End If
End Sub

それでは実行してみましょう。
結果はこのようになります。

123と入力されているだけで「数式」でないので「数式が含まれていません」という結果になりました。

四則演算（+-/*）を使用している場合

今度は足し算や割り算をしたセルを判断してみたいと思います。

下図の見本をご覧ください。

対象セルには「1+1」という計算式が入っていますね。

それでは先ほどのコードを実行してみましょう。
結果はこのようになります。

「1+1」は数式と判断されて、「数式を含んでいます」という結果になりました。

関数を使用している場合

今度は関数を使用しているセルを判断してみたいと思います。

下図の見本をご覧ください。

対象セルには「SUM(B5:B6)」という合計を求める関数が入っていますね。

それでは先ほどのコードを実行してみましょう。
結果はこのようになります。

関数を使用している場合は数式と判断されて、「数式を含んでいます」という結果になりました。

参照している場合

今度は別のセルを参照したセルを判断してみたいと思います。

下図の見本をご覧ください。

対象セルには「B4」という１つ下のセルを参照する式が入っていますね。

それでは先ほどのコードを実行してみましょう。
結果はこのようになります。

参照したセルは計算の有無にかかわらず数式と判断されて、「数式を含んでいます」という結果になりました。

⬛︎よくあるエラーと対処法

HasFormula関数を使用する際によく発生するエラーとその対処法についてお伝えします。

以下の点に注意してください。

数式の判定

先ほどの検証で察した方もおられると思いますが、
数式とは「＝（イコール）」を使用した場合に「数式」と判断される認識で問題ないと思います。

特に「＝B3」など、参照しているだけで計算はしていないのですが、こちらは「数式」と判断されます。

こちらの特性を理解した上でご活用ください

「オブジェクトが必要です」というエラー

このエラーは、HasFormula関数を適用する対象のセルが正しく指定されていない場合に発生します。

セルの指定方法や範囲を確認してください。

対処法は HasFormula関数を使用する前に、適切な範囲をRangeオブジェクトで指定し、セルを参照するようにします。
例えば、以下のようにセルの範囲を正確に指定します。

Dim rng As Range
Set rng = Range(“A1”)

・「オブジェクトのメソッドまたはプロパティがありません」というエラー

このエラーは、HasFormula関数が使用される対象のセルに数式が含まれていない場合に発生します。
HasFormula関数は数式の有無を判定するため、セルに数式が入力されている必要があります。

対処法はHasFormula関数を使用する前に、セルが数式を含んでいるかどうかを確認しましょう。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

【マクロVBA練習問題18】数式の判別・判定！数式が含まれているセルの個数をカウントする ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.HasFormula プロパティ (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？

HasFormula関数を使用することで、マクロVBAでセルが数式を含んでいるかどうかを簡単に判断することができます。

この関数を活用することで、特定のセルに数式が含まれている場合に適切な処理を行うことができます。

この記事ではHasFormula関数の使い方や注意点について解説しました。
VBAを使ったExcelデータ処理で数式の判定が必要な場合は、HasFormula関数を活用して効率的な処理を行いましょう。

それでは次回の記事でお会いしましょう。

【マクロVBA】セルや変数が空白かどうかを判断する方法！IsEmpty関数の使い方と注意点も紹介

matsu — Wed, 12 Jul 2023 15:12:37 +0000

VBAでは、セルや変数が空白かどうかを判断する必要がある場面があります。

そこで、本記事ではIsEmpty関数の使い方について解説します。

本記事では、IsEmpty関数の使い方や注意点、実際の活用例について詳しく解説します。

ぜひ参考にしてください。
それでは見ていきましょう！

⬛︎こんな事ができるようになる！
■構文
⬛︎忙しい人向けのコピペ用ソースコード
⬛︎セルが空白かどうかを判断する方法
⬛︎変数が空白かどうかを判断する方法
⬛︎よくあるエラーと対処法
1. 空白セルの判定
■練習問題
⬛︎公式の説明
⬛︎まとめ

⬛︎こんな事ができるようになる！

・セルや変数が空白かどうかを判断できるようになる

■構文

戻り値＝IsEmpty(対象)

IsEmpty関数は、指定したセルや変数が空白かどうかを判断するために使用されます。

戻り値はTrue（空白）またはFalse（空白でない）となります。

⬛︎忙しい人向けのコピペ用ソースコード

Sub 空白判断()
Dim target As Range
Set target = 対象セル・変数

If IsEmpty(target) Then
　'空白の処理
Else
　'空白でないときの処理
End If
End Sub

対象セル・変数はカスタムして使用してください。
「空白の処理」または「空白でないときの処理」を当てはめることで場面に合わせて処理できます。

⬛︎セルが空白かどうかを判断する方法

まずはセルが空白かどうかを判断する方法について説明します。
下図の見本をご覧ください。

B3に文字・数値が入力されているか・空白なのか判断してみたいと思います。

では再度構文を見ていきましょう。

戻り値＝IsEmpty(対象)

では構文に当てはめてみましょう。
対象はB3のセルなのでそのままB3が当てはまります。

そこからIfを使用することで空白の時は「セルは空白です」を出力、空白でない場合は「セルは空白ではありません」という出力をします。

それではソースコードを見ていきましょう。

Sub セルの空白判断()
Dim target As Range
Set target = Range(“B3“)

If IsEmpty(target ) Then
　Cells(3, 4) = “セルは空白です”
Else
　Cells(3, 4) = “セルは空白ではありません”
End If
End Sub

それでは実行してみましょう。
結果はこのようになります。

空白でないので「セルは空白ではありません」という結果になりました。

ちなみに空白の状態で実行してみましょう。

結果はこのようになります。

対象セルは空白なので「セルは空白です」となってます。

⬛︎変数が空白かどうかを判断する方法

次に変数が空白かどうかを判断する方法について説明します。

今回は先にソースコードを見ていきましょう。

Sub 変数の空白判断()
Dim text

If IsEmpty(text) Then
　MsgBox “変数は空白です”
Else
　MsgBox “変数は空白ではありません”
End If
End Sub

上記の例では、変数textが空白かどうかを判断しています。

今回は変数textが空白の場合なので、「変数は空白です」というメッセージが表示されます。

それでは実行してみましょう。
結果はこのようになります。

「変数は空白です」というメッセージが出ました。
では空白でないときの処理結果を見ていきましょう。

下記コードで実行してみます。

Sub 変数の空白判断()
Dim text

text= “独学エクセル塾”

If IsEmpty(text) Then
　MsgBox “変数は空白です”
Else
　MsgBox “変数は空白ではありません”
End If
End Sub

それでは実行してみましょう。
結果はこのようになります。

空白でないので「変数は空白ではありません」のメッセージが表示されました。

⬛︎よくあるエラーと対処法

IsEmpty関数は、空白セルや空白文字列を判定するために使用されますが、時に予期しない結果を返す場合があります。

以下の点に注意してください。

空白セルの判定

IsEmpty関数では、セルに数式や空白スペースが含まれている場合、Falseを返します。

この場合、セルが本当に空白であるかどうかを確認するために、Blankプロパティを使用すると良いでしょう。

例を紹介します。
下記見本をご覧ください。

Sub 変数の空白判断()
Dim text

text= “”

If IsEmpty(text) Then
　MsgBox “変数は空白です”
Else
　MsgBox “変数は空白ではありません”
End If
End Sub

変数「text」には「””（空白)」が格納されているため、一見、Trueの戻り値となりそうですが、

実際は「空白」が格納されているとみなされて「空白ではありません」のメッセージが表示されます。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

【マクロVBA練習問題16】空白セルのカウント！対象範囲に空白のセルが何個あるか数える方法 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

IsEmpty 関数 (Visual Basic for Applications) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？

本記事では、マクロVBAでセルや変数が空白かどうかを判断する方法を解説しました。

IsEmpty関数を使うことで、簡単に空白の判定ができます。

以上が、IsEmpty関数についての解説となります。お役に立てれば幸いです。

それでは次回の記事でお会いしましょう。