数式 | 独学エクセル塾 https://dokugakuexcel.com 初心者から中級者までシステム・関数・VBAを伝授します Thu, 13 Jul 2023 07:18:13 +0000 ja hourly 1 https://wordpress.org/?v=7.0 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練習問題18】数式の判別・判定！数式が含まれているセルの個数をカウントする https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e7%b7%b4%e7%bf%92%e5%95%8f%e9%a1%8c18%e3%80%91%e6%95%b0%e5%bc%8f%e3%81%ae%e5%88%a4%e5%88%a5%e3%83%bb%e5%88%a4%e5%ae%9a%ef%bc%81%e6%95%b0%e5%bc%8f%e3%81%8c/?utm_source=rss&utm_medium=rss&utm_campaign=%25e3%2580%2590%25e3%2583%259e%25e3%2582%25af%25e3%2583%25advba%25e7%25b7%25b4%25e7%25bf%2592%25e5%2595%258f%25e9%25a1%258c18%25e3%2580%2591%25e6%2595%25b0%25e5%25bc%258f%25e3%2581%25ae%25e5%2588%25a4%25e5%2588%25a5%25e3%2583%25bb%25e5%2588%25a4%25e5%25ae%259a%25ef%25bc%2581%25e6%2595%25b0%25e5%25bc%258f%25e3%2581%258c Wed, 05 Jul 2023 13:37:43 +0000 https://dokugakuexcel.com/?p=4404
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題18について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. ループ構造
    2. HasFormulaプロパティ
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題18について

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

指定されたセルのうち、数式が含まれているセルの個数を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を表示する。

動作説明

VBAを使用して、指定されたセル範囲内に含まれる数式を検出し、その数をカウントして表示します。

この問題では、セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を求める必要があります。

ヒント


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

・ヒントその1

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、計算する必要があります。

セル範囲を指定するには、Range(“D1:D5”)というように範囲の開始セルと終了セルを指定します

・ヒントその2

セルの数式を判定するためには、RangeオブジェクトのHasFormulaプロパティを使用します。

数式が含まれている場合、Formulaプロパティはその数式を返します。

使用方法は下記の通りです。

If 対象のセル.HasFormula Then
　’数式だった場合の処理
End If

・ヒントその3

ループを使用してセルを一つずつ調べ、数式が含まれているセルをカウントします。

カウンター変数を使い、数式が含まれているセルが見つかるたびにカウントアップします。

 

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

 

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

 

解答コード

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

・回答その①

Sub Exercise18to1()
Dim cell As Range
Dim formulaCount As Integer

formulaCount = 0

For Each cell In Range(“A1:A10”)
If cell .HasFormula Then
formulaCount = formulaCount + 1
End If
Next cell

Range(“C2”).Value = formulaCount
End Sub

上記のコードは、セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を表示するVBAのマクロです。

この解答コードでは、ループを使用して指定されたセル範囲内の各セルを調べ、
HasFormulaプロパティを使用して数式が含まれているかどうかを判定しています。

数式が含まれている場合、formulaCount 変数をカウントアップします。

最後に、C2に数式が含まれるセルの個数を表示します。

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

A1からA10のうち、数式は「4つ」あることがわかりました。
A2.A3.A6.A7で数式を使用しているので上手く機能していますね。

・回答その②

Sub Exercise18to2()
Dim formulaCount As Integer
Dim i As Integer

formulaCount = 0

For i = 1 To 10
If Cells(i, 1).HasFormula Then
formulaCount = formulaCount + 1
End If
Next i

Range(“C2”).Value = formulaCount
End Sub

上記のコードでは、Cells関数を使用してセルの範囲を指定し、HasFormulaプロパティを使用して数式の有無を判定しています。

ループを使用してセルを一つずつ調べ、数式が含まれている場合には、formulaCount変数をカウントアッップします。

回答その①と異なる点はループの方法です。
先ほどは「For Eachループ」を使用しましたが、今回は「For Nextループ」を使用しています。

 

 

必要な知識

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

ループ構造

練習問題で使用した繰り返し処理を行うためにはループ構造が必要です。
For Nextループを使った反復処理や、Forループを使ったカウンターを利用した反復処理について理解しておくと良いでしょう。

【マクロVBA】For…Nextで指定した数値で繰り返し・ループをする方法と途中で抜け出す方法 ► 独学エクセル塾 (dokugakuexcel.com)
【マクロVBA】For Eath Nextで配列・コレクション内で繰り返し・ループ処理!抜け出す方法 ► 独学エクセル塾 (dokugakuexcel.com)

これらの知識を応用して、問題を解くためのコードを作成しましょう。  

HasFormulaプロパティ

セルが数式を持っているかどうかを判定するために、HasFormulaプロパティを使用します。

セルのHasFormulaプロパティは、セルが数式を持っている場合にTrueを返します。

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

まとめ

この練習問題では、VBAを使用してセル番地A1からA10までのセルのうち、数式が含まれているセルの個数を求める方法について学びました。

具体的には、Rangeオブジェクトとループ構造を組み合わせて、セルの範囲内に数式が含まれているかどうかを判定し、
数式が含まれているセルの個数をカウントしました。

VBAを使うことで、Excelの操作をより効率的に行うことができます。

この練習問題を通じて、ループ構造やRangeオブジェクトの使用方法を習得し、さらに応用的な操作や処理にも挑戦していきましょう。

次の練習問題では、さらに複雑なVBAの使用例に取り組んでいきますので、順番に解いていくことでスキルを向上させていきましょう。

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

]]> 4404