マクロ・VBA | 独学エクセル塾

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

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

【マクロVBA】昇順・降順に並び替え!指定範囲をSortメソッドで単一・複数範囲で並び替える

matsu — Thu, 06 Jul 2023 14:36:46 +0000

VBAを使用すると、Excelのセル内のデータを効率的に整理することができます。
今回は、セルの並び替え（sort）について詳しく紹介します。

本記事では、Sortメソッドの使い方や注意点、実際の活用例について詳しく解説します。

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

⬛︎こんな事ができるようになる！
⬛︎忙しい人向けのコピペ用ソースコード
⬛︎構文の説明
昇順・降順で並び替え
1. ・昇順で並び替え
2. ・降順で並び替え
⬛︎単一範囲と複数範囲の並び替え
1. ・単一範囲の並び替え
2. ・複数範囲の並び替え
⬛︎よくあるエラーと対処法
■練習問題
⬛︎公式の説明
⬛︎まとめ

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

・Excelのセル内のデータを昇順や降順に並び替えることができる
・特定の範囲や複数範囲のデータを正確に整理できる

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

Sub Sortsample()
'xlAscending:昇順　lDescending：降順
Range("並び替えたい範囲").Sort Key1:=Range("A1"), Order1:=xlDescending
End Sub

並び替えたい範囲はカスタムして使用してください。
Order1には「xlAscending:昇順」または「xlDescending：降順」を当てはめてください。

⬛︎構文の説明

まず、使用するメソッドについてです。使用するのは「Sortメソッド」になります。
Sortメソッドの基本的な構文は以下の通りです。

範囲.Sort Key1:=キー範囲, Order1:=昇順/降順, Key2:=キー範囲, Order2:=昇順/降順, …

・範囲: 並び替えたいセルの範囲を指定します。
・キー範囲 :並び替えの基準となるセルの範囲を指定します。
・昇順/降順: キー範囲での並び順を指定します。

この構文を使用して、セルの並び替えを行うことができます。

昇順・降順で並び替え

・昇順で並び替え

まず、昇順で並び替えをしてみましょう。
下図の見本をご覧ください。

A1からA10のセルに文数値が入力されてあります。
こちらを昇順に並び替えてみたいと思います。

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

範囲.Sort Key1:=キー範囲, Order1:=昇順/降順

見本では範囲はA1からA10になります。
キー範囲は並び替えの基準となるセルなので先頭のA1になります。
昇順/降順は今回は昇順なのでxlAscendingとなります。

では見本を並び替えてみましょう。
ソースコードはこちらです。

Sub AscendingSort()
Range(“A1:A10“).Sort Key1:=Range(“A1“), Order1:=xlAscending
End Sub

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

狙い通り、昇順に並び替えすることが出来ました。

・降順で並び替え

今度は降順で並び替えをしてみましょう。
下図の見本をご覧ください。

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

範囲.Sort Key1:=キー範囲, Order1:=昇順/降順

今回、昇順/降順は降順なのでxlDescendingとなります。

では見本を並び替えてみましょう。
ソースコードはこちらです。

Sub DescendingSort()
Range(“A1:A10“).Sort Key1:=Range(“A1“), Order1:=xlDescending
End Sub

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

狙い通り、昇順に並び替えすることが出来ました。

⬛︎単一範囲と複数範囲の並び替え

以下では、単一範囲と複数範囲の並び替えの方法を説明します。

・単一範囲の並び替え

まずは単一範囲の並び替えの方法です。先ほど紹介してきたソースコードと同じですね。
以下のソースコードをご覧ください。

Sub セルの並び替え()
Range(“A1:A10”).Sort Key1:=Range(“A1”), Order1:=xlAscending
End Sub

このソースコードでは、A1からA10の範囲をA1を基準に昇順で並び替えています。

必要に応じて、範囲や基準セル、並び順を変更してください。

・複数範囲の並び替え

次に、複数範囲の並び替えの方法です。以下のソースコードをご覧ください。

Sub セルの並び替え()
With Range(“A1:B10”)
.Sort Key1:=.Columns(1), Order1:=xlAscending, Key2:=.Columns(2), Order2:=xlDescending
End With
End Sub

このソースコードでは、A1からB10の範囲を、A列を基準に昇順、B列を基準に降順で並び替えています。

必要に応じて、範囲や基準セル、並び順を変更してください。

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

VBAのソートに関連するよくあるエラーのいくつかとその対処法を説明します。

1. “実行時エラー ‘1004’:ソートする範囲が正しくありません

このエラーは、ソート範囲が正しく指定されていない場合に発生することがあります。
ソートする範囲がデータが含まれているセル範囲でなければなりません。

対処法
ソートするデータが正しく指定されていることを確認します。
ソートする範囲が正しく指定されているか、データが含まれているセルを選択しているかを確認します。

2. “実行時エラー ‘438’:オブジェクトはこのプロパティまたはメソッドをサポートしていません

このエラーは、ソートを実行しようとするオブジェクトがソートメソッドをサポートしていない場合に発生することがあります。
たとえば、ソートしようとするオブジェクトがWorksheetオブジェクトではない場合にこのエラーが発生することがあります。

対処法
ソートメソッドを使用する前に、正しいオブジェクトを参照していることを確認してください。
ソート対象のデータが含まれているWorksheetオブジェクトを適切に指定していることを確認します。

3. “実行時エラー ’91’:オブジェクト変数または With ブロック変数が設定されていません

このエラーは、オブジェクト変数が設定されていない状態でソートを実行しようとした場合に発生することがあります。
ソートするデータを含むオブジェクトが正しく設定されていない可能性があります。

対処法
ソートを実行する前に、ソート対象のデータを含むオブジェクトを正しく設定していることを確認します。
必要に応じてオブジェクトを初期化し、適切に設定してからソートメソッドを呼び出します。

■練習問題

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

【マクロVBA練習問題14】数値を昇順・降順に並び替える！Sortで並び替えを実行 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

Range.Sort メソッド (Excel) | Microsoft Learn

⬛︎まとめ

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

以上がマクロVBAでのセルの並び替え（sort）についての紹介でした。

Sortメソッドを使用することで、Excelのデータを効率的に整理することができます。

セルの並び替えは、範囲や基準セル、並び順を適切に指定することで正確な結果を得ることができます。

ソースコードの見本を参考にしながら、自身のデータに応じた並び替えを行ってみてください。

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

【マクロVBA】IsNumeric関数を使って数値判定！変数・セルの値でも数字であるか判別可能

matsu — Thu, 06 Jul 2023 13:36:21 +0000

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プログラミングを行ってみてください。

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

【マクロVBA練習問題20】強制・途中終了・ループ抜け出し！IFとExit Sub・Forを組み合わせる

matsu — Wed, 05 Jul 2023 15:00:53 +0000

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題20について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
1. ループ構造
2. ループの抜け出し・強制終了
まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題20について

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

強制終了・途中終了・ループ抜け出す練習問題となります。

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

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

問題内容

セル番地A1からA10まで順番に数値を2倍にしていき、C列に出力する。その数値が100を超えた場合に処理を終了する。

動作説明

BAを使用して、セル番地A1からA10までの数値を順番に2倍にしてC列に出力します。

処理中、出力した数値が100を超えた場合には処理を終了します。

ヒント

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

・ヒントその1

ループ構造を使用して、セルの範囲を順番に処理します。

ループ変数を使用して、セルの行番号や列番号を更新していく方法を考えてみましょう。

・ヒントその2

条件を満たすと繰り返し処理抜け出す必要があります。

例えば「For Next」で繰り返し処理をしている場合は、「Exit For」でループを抜け出します。

・ヒントその3

条件を満たすと強制終了する必要があります。

こちらはとてもシンプルで「Exit Sub」で強制終了ができます。

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

解答コード

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

・回答その①

Sub Exercise20to1()
Dim row As Integer
Dim value As Double

For row = 1 To 10
　value = Cells(row, 1).value * 2
　Cells(row, 3).value = value
　　If value > 100 Then
　　　Exit For
　　End If
Next row
End Sub

上記のコードもセル番地A1からA10までの数値を順番に2倍にし、C列に出力するものです。

処理中、出力した数値が100を超えた場合には処理を終了します。

解答コードのポイント

1. rowというループ変数を使用して、行番号を順番に更新します。
2. value変数にセルの値を2倍にした結果を代入します。
3. Range(“A” & row).Valueのようにセル番地を文字列と結合して指定します。
4. Range(“B” & row).Value = valueのようにB列に結果を出力します。
5. If value > 100 Then Exit Forによって、数値が100を超えた場合にループを終了します。

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

A6で100を超えたので、ループを抜け出すことが出来ました。

・回答その②

Sub Exercise20to2()
Dim row As Integer
Dim value As Double

For row = 1 To 10
　value = Cells(row, 1).value * 2
　Cells(row, 3).value = value
　　If value > 100 Then
　　　Exit Sub
　　End If
Next row
End Sub

先ほどは条件を満たすと、ループを抜け出す方法でしたが、今回は「強制終了」で処理しています。

条件を満たすと「Exit Sub」で強制終了する仕組みです。

必要な知識

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

ループ構造

繰り返し処理をするために、セル範囲内の各セルを順番に読み取るループ構造が必要です。
For Nextループを使った反復処理を利用した反復処理について理解しておくと良いでしょう。

【マクロVBA】For…Nextで指定した数値で繰り返し・ループをする方法と途中で抜け出す方法 ► 独学エクセル塾 (dokugakuexcel.com)

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

ループの抜け出し・強制終了

VBAでは、ループ処理をよく使用しますが、途中でループ処理を中断したい場合があると思います。
その際は「Exit For」を使用してループ処理を抜け出します。

さらに強制終了では「Exit Sub」を使用することで直ちに処理を終了することが出来ます。

場面によって使い分けてください。

ループ抜け出し：Exit For
強制終了：Exit Sub

まとめ

この練習問題では、Excel VBAの基本的な概念と構文に触れながら、セルの操作やループ処理、条件分岐の活用方法を学ぶことができます。

具体的には、セル番地を指定して値を読み取ったり書き込んだりする方法、
ループ構造を使ってセル範囲を順番に処理する方法、条件分岐を使用して特定の条件に基づいて処理を終了する方法などが含まれています。

これらの基本的な知識と技術を身につけることで、VBAを使用してExcelの操作を自動化する能力を向上させることができます。
また、問題の難易度を徐々に上げることで、より高度なVBAのスキルを磨くことができます。

練習問題を通じて、VBAの基礎を学びながら自身のスキルを向上させていきましょう。
練習問題は段階的に難しくなっていくので、自分のペースで取り組むことをおすすめします。

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

【マクロVBA練習問題19】文字列を連結・つなげる！複数の文字・数値・セル・変数をつなげて表示

matsu — Wed, 05 Jul 2023 14:28:26 +0000

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題19について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
1. ・ヒントその1
2. ・ヒントその2
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
1. ループ構造
2. 文字列の連結
まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題19について

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

指定されたセルの文字列を連結・つなげて表示する練習問題となります。

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

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

問題内容

セルA1、A2、A3の文字列を連結する

動作説明

VBAを使用して、セルA1、A2、A3に入力された文字列を取得し、それらを連結して1つの文字列として表示します。

この問題では、セルA1、A2、A3の文字列を連結し、結果を表示する必要があります。

ヒント

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

・ヒントその1

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

セルを指定するには、Range(“A1”)というようにセルを指定します

・ヒントその2

取得したセルの値を文字列として連結するためには、連結演算子（&）を使用します。

例えば、表示先= 文字1 & 文字2 というように、使用することで文字1 と文字2を連結できます

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

解答コード

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

・回答その①

Sub Exercise19to1()
Dim result As String

result = Range(“A1”).Value & Range(“A2”).Value & Range(“A3”).Value

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

上記のコードでは、セルA1、A2、A3の文字列を連結して結果を表示するVBAのマクロです。

解答コードでは、resultという変数を用意し、それぞれのセルの値を取得して連結しています。

最後に、C2に連結した文字を表示します。

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

A1からA3の文字をつなげることが出来ました。

・回答その②

Sub Exercise19to2()
Dim result As String
Dim cycle As Long

For cycle = 1 To 3 Step 1
result = result & Cells(cycle, 1)
Next cycle

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

上記のコードでは、Cells関数を使用して、行番号と列番号を指定してセルの値を取得し、それらを連結して結果を表示しています。

解答コードでは、resultという変数を用意し、それぞれのセルの値を取得して連結しています。
最後に、C2に連結した文字を表示します

必要な知識

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

ループ構造

回答②の繰り返し処理をするために、セル範囲内の各セルを順番に読み取るループ構造が必要です。
For Nextループを使った反復処理を利用した反復処理について理解しておくと良いでしょう。

【マクロVBA】For…Nextで指定した数値で繰り返し・ループをする方法と途中で抜け出す方法 ► 独学エクセル塾 (dokugakuexcel.com)

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

文字列の連結

VBAでは、文字列の連結には連結演算子（&）を使用します。
連結演算子を使うことで、複数の文字列を結合して1つの文字列にすることができます。

表示先= 文字1 & 文字2

まとめ

この練習問題では、RangeオブジェクトとValueプロパティを使用してセルの値を取得し、連結演算子を使って文字列を連結しました。

練習問題に取り組む際は、解答コードと必要な知識を参考にしてください。
練習問題の難易度を上げながら、VBAのスキルを磨いていくことができます。

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

【マクロVBA練習問題18】数式の判別・判定！数式が含まれているセルの個数をカウントする

matsu — Wed, 05 Jul 2023 13:37:43 +0000

練習問題と内容について
1. ・練習問題の狙い
2. ・練習問題18について
練習問題の内容と動作説明
1. 問題内容
2. 動作説明
ヒント
解答コード
1. ・回答その①
2. ・回答その②
必要な知識
1. ループ構造
2. HasFormulaプロパティ
まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題18について

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

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

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

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

問題内容

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

動作説明

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

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

ヒント

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

・ヒントその1

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

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

・ヒントその2

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

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

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

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

・ヒントその3

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

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

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

解答コード

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

・回答その①

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となります。お疲れ様でした！