判断 | 独学エクセル塾 https://dokugakuexcel.com 初心者から中級者までシステム・関数・VBAを伝授します Thu, 13 Jul 2023 07:18:13 +0000 ja hourly 1 https://wordpress.org/?v=7.0.3 https://dokugakuexcel.com/wp-content/uploads/2021/06/cropped-cropped-image-66-1-32x32.jpg 判断 | 独学エクセル塾 https://dokugakuexcel.com 32 32 194648711 【マクロVBA】セルが数式を含んでいるか判断・判定する方法！HasFormula関数で簡単チェック！ https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e3%82%bb%e3%83%ab%e3%81%8c%e6%95%b0%e5%bc%8f%e3%82%92%e5%90%ab%e3%82%93%e3%81%a7%e3%81%84%e3%82%8b%e3%81%8b%e5%88%a4%e6%96%ad%e3%83%bb%e5%88%a4/?utm_source=rss&utm_medium=rss&utm_campaign=%25e3%2580%2590%25e3%2583%259e%25e3%2582%25af%25e3%2583%25advba%25e3%2580%2591%25e3%2582%25bb%25e3%2583%25ab%25e3%2581%258c%25e6%2595%25b0%25e5%25bc%258f%25e3%2582%2592%25e5%2590%25ab%25e3%2582%2593%25e3%2581%25a7%25e3%2581%2584%25e3%2582%258b%25e3%2581%258b%25e5%2588%25a4%25e6%2596%25ad%25e3%2583%25bb%25e5%2588%25a4 https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e3%82%bb%e3%83%ab%e3%81%8c%e6%95%b0%e5%bc%8f%e3%82%92%e5%90%ab%e3%82%93%e3%81%a7%e3%81%84%e3%82%8b%e3%81%8b%e5%88%a4%e6%96%ad%e3%83%bb%e5%88%a4/?noamp=mobile#respond Thu, 13 Jul 2023 07:03:12 +0000 https://dokugakuexcel.com/?p=4460 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関数を活用して効率的な処理を行いましょう。

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

 

 

]]> https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e3%82%bb%e3%83%ab%e3%81%8c%e6%95%b0%e5%bc%8f%e3%82%92%e5%90%ab%e3%82%93%e3%81%a7%e3%81%84%e3%82%8b%e3%81%8b%e5%88%a4%e6%96%ad%e3%83%bb%e5%88%a4/feed/ 0 4460 【マクロVBA】セルや変数が空白かどうかを判断する方法！IsEmpty関数の使い方と注意点も紹介 https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e3%82%bb%e3%83%ab%e3%82%84%e5%a4%89%e6%95%b0%e3%81%8c%e7%a9%ba%e7%99%bd%e3%81%8b%e3%81%a9%e3%81%86%e3%81%8b%e3%82%92%e5%88%a4%e6%96%ad%e3%81%99/?utm_source=rss&utm_medium=rss&utm_campaign=%25e3%2580%2590%25e3%2583%259e%25e3%2582%25af%25e3%2583%25advba%25e3%2580%2591%25e3%2582%25bb%25e3%2583%25ab%25e3%2582%2584%25e5%25a4%2589%25e6%2595%25b0%25e3%2581%258c%25e7%25a9%25ba%25e7%2599%25bd%25e3%2581%258b%25e3%2581%25a9%25e3%2581%2586%25e3%2581%258b%25e3%2582%2592%25e5%2588%25a4%25e6%2596%25ad%25e3%2581%2599 https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e3%82%bb%e3%83%ab%e3%82%84%e5%a4%89%e6%95%b0%e3%81%8c%e7%a9%ba%e7%99%bd%e3%81%8b%e3%81%a9%e3%81%86%e3%81%8b%e3%82%92%e5%88%a4%e6%96%ad%e3%81%99/?noamp=mobile#respond Wed, 12 Jul 2023 15:12:37 +0000 https://dokugakuexcel.com/?p=4445 VBAでは、セルや変数が空白かどうかを判断する必要がある場面があります。

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

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

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

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

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

■構文

戻り値＝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関数についての解説となります。お役に立てれば幸いです。

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

 

 

]]> https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e3%82%bb%e3%83%ab%e3%82%84%e5%a4%89%e6%95%b0%e3%81%8c%e7%a9%ba%e7%99%bd%e3%81%8b%e3%81%a9%e3%81%86%e3%81%8b%e3%82%92%e5%88%a4%e6%96%ad%e3%81%99/feed/ 0 4445 【マクロVBA】IsNumeric関数を使って数値判定！変数・セルの値でも数字であるか判別可能 https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91isnumeric%e9%96%a2%e6%95%b0%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6%e6%95%b0%e5%80%a4%e5%88%a4%e5%ae%9a%ef%bc%81%e5%a4%89%e6%95%b0%e3%83%bb%e3%82%bb/?utm_source=rss&utm_medium=rss&utm_campaign=%25e3%2580%2590%25e3%2583%259e%25e3%2582%25af%25e3%2583%25advba%25e3%2580%2591isnumeric%25e9%2596%25a2%25e6%2595%25b0%25e3%2582%2592%25e4%25bd%25bf%25e3%2581%25a3%25e3%2581%25a6%25e6%2595%25b0%25e5%2580%25a4%25e5%2588%25a4%25e5%25ae%259a%25ef%25bc%2581%25e5%25a4%2589%25e6%2595%25b0%25e3%2583%25bb%25e3%2582%25bb https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91isnumeric%e9%96%a2%e6%95%b0%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6%e6%95%b0%e5%80%a4%e5%88%a4%e5%ae%9a%ef%bc%81%e5%a4%89%e6%95%b0%e3%83%bb%e3%82%bb/?noamp=mobile#respond Thu, 06 Jul 2023 13:36:21 +0000 https://dokugakuexcel.com/?p=4423 VBAで数値の判定を行いたい場合、IsNumeric関数が便利です。

この関数を使うことで、変数やセルに格納された値が数値かどうかを簡単に判定することができます。

本記事では、IsNumeric関数の使い方や注意点、実際の活用例について詳しく解説します。
ぜひ参考にしてください。
それでは見ていきましょう！

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

セルに入力された値が数値かどうかを判定することが出来る

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

Sub 数値判定の例()
Dim num As Variant
num = セル・変数' 数値として解釈可能な文字列

If IsNumeric(num) Then
　' 数値の時の処理
Else
　' 数値の時以外の処理
End If

End Sub

セル・変数・数値の時の処理・数値の時以外の処理はカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてです「IsNumeric関数」になります。
関数仕様としては下記の通りです。

IsNumeric(値・セル・変数)
「値・セル・変数」には数値かどうか判定したいた対象を入力します。

では実際に使用した例を紹介したいと思います。

︎IsNumeric関数の使い方

・セルの値が数値かどうか判定する

まず、セルの値が数値かどうか判定してみましょう。
下図の見本をご覧ください。

B2からB5のセルに文字または数値が入力されてあります。
こちらを数値かどうか判定して、結果をD列に表示してみたいと思います。

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

IsNumeric(値・セル・変数)
例えばB2のセルを数値かどうか判定したい場合には「IsNumeric(Cells(2,2))」のように使用します。
 
数値であれば「True」を出力して数値でなければ「False」を出力します。

では見本を数値かどうか判定しましょう。
ソースコードはこちらです。

Sub セルの数値判定()

Dim cycle

For cycle = 2 To 4 Step 1
　If IsNumeric(Cells(cycle, 2)) Then
　　Cells(cycle, 4) = “数値です”
　Else
　　Cells(cycle, 4) = “数値ではありません”
　End If
Next cycle

End Sub

それでは実行してみましょう。

この中で数値なのは「123」なので、D4には「数値です」と出力されています。

対してそれ以外のセルは「数値ではありません」と表示されました。

・変数の値が数値かどうか判定する

今度は変数の値を数値かどうか判定してみましょう。
下図の見本をご覧ください。

Sub 数値判定の例()
Dim num As Variant
num = “123” ‘ 数値として解釈可能な文字列

If IsNumeric(num ) Then
　　MsgBox “数値です”
　Else
　　MsgBox “数値ではありません”
End If
End Sub

変数の値が数値であればメッセージボックスで「数値です」と表示され、それ以外は「数値ではありません」と表示します。

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

見本では「123」が入力されているので「数値です」というメッセージが表示されました。

これで変数の値も数値であるか確認することが出来ます。

⬛︎IsNumeric関数の注意点

IsNumeric関数を使う際には、以下の点に注意が必要です。

1. IsNumeric関数の出力結果について

IsNumeric関数は、数値として解釈可能な値をTrueとして返します。
つまり、数値以外の値（文字列やブール値など）もTrueと判定されることに注意してください。

2.ロケールの影響

数値判定は、ロケール（地域や言語による設定）に影響を受けます。
ロケールによっては、小数点や桁区切りの表記方法が異なるため、数値判定の結果も異なる場合があります。

⬛︎数値判定の活用例

数値判定は、さまざまな場面で役立ちます。以下にいくつかの活用例を紹介します。

・変数の数値判定

変数に格納された値が数値であるかどうかを判定し、条件に応じた処理を行うことができます。

例えば、ユーザーからの入力値が数値であるかどうかを確認してから計算を行う場合などに活用できます。

・セルの数値判定

Excelのセルに格納された値が数値かどうかを判定し、条件に応じた処理を行うことができます。

例えば、数値以外の値が入力されたセルに対して警告を表示する場合などに活用できます。

・数値判定を活用した処理の例

数値判定を組み合わせることで、より複雑な処理を実現することも可能です。

例えば、特定の範囲内の数値だけを処理対象とする場合や、数値以外の値が含まれるデータを除外する場合などに活用できます。

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

・ 文字列が数値として解釈できない場合に誤った結果が返る

 IsNumeric関数を使う前に、文字列が数値として解釈可能かどうかを事前に確認しましょう。

例えば、CIntやCDblなどの変換関数を使って文字列を数値に変換してからIsNumeric関数を適用することで正確な結果を得ることができます。

・セルに空白や空文字列が含まれる場合に誤った結果が返る

セルの値を取得する前に、セルが空でないことを確認しましょう。

IsEmpty関数やLen関数を使ってセルが空でないかどうかを判定し、空でない場合にのみ数値判定を行うようにします。

・エラー: ロケールによって数値の判定結果が異なる

ロケールによって小数点や桁区切りの表記方法が異なるため、数値判定の結果も異なる場合があります。

このような場合は、数値判定の前にロケールを明示的に設定することで一貫性のある結果を得ることができます。

例えば、Application.DecimalSeparatorやApplication.ThousandsSeparatorプロパティを使用して適切な設定を行います。

■練習問題

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

【マクロVBA練習問題12】指定した数値以下の最大値を表示！IFの複数条件処理を実践 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

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

⬛︎まとめ

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

本記事では、マクロVBAにおける数値判定について解説しました。IsNumeric関数を使うことで、変数やセルに格納された値が数値かどうかを簡単に判定することができます。

数値判定は、ユーザーからの入力値の検証やデータ処理の際に役立ちます。正しい数値の取り扱いやエラーの防止に寄与することができます。

是非、IsNumeric関数を活用して効率的なVBAプログラミングを行ってみてください。

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

]]> https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91isnumeric%e9%96%a2%e6%95%b0%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6%e6%95%b0%e5%80%a4%e5%88%a4%e5%ae%9a%ef%bc%81%e5%a4%89%e6%95%b0%e3%83%bb%e3%82%bb/feed/ 0 4423