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

【マクロVBA練習問題17】指定・対象の文字・数値を含んでいるか、確認しカウントする方法

matsu — Tue, 04 Jul 2023 15:14:39 +0000

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

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題17について

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

指定されたセルのうち、対象の文字を含んでいるセルの数を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までのセルのうち、「A」の文字が含まれているセルの個数を表示する

動作説明

VBAを使用して、セル番地A1からA10までのセルのなかで、セル内の文字列に「A」が含まれているかどうかを確認します。

含まれている場合はカウントし、最終的な結果として含まれているセルの個数を表示します。

ヒント

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

・ヒントその1

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

・ヒントその2

セルを順次、確認するためには、ループ構造を使用します。
For文を使って、A1からA10までのセルを順番に処理します。

・ヒントその3

文字列内に特定の文字が含まれているかどうかを確認するためには、InStr関数を使用します。

構文は下記の通りです。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

例えば、InStr(1, “ABC“, “A“)は文字列「ABC」内に「A」が含まれているかを調べることができます。

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

解答コード

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

・回答その①

Sub Exercise17to1()
Dim count As Integer
count = 0

For i = 1 To 10
If InStr(1, Cells(i, 1).Value, “A”) > 0 Then
count = count + 1
End If
Next i

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

上記のコードは、セル番地A1からA10までのセルを走査し、「A」の文字が含まれているセルの個数を表示するVBAのマクロです。

解答コードの解説
1. count変数を宣言し、0で初期化します。この変数は含まれているセルの個数をカウントします。
2. Forループを使用して、A1からA10までのセルを順番に処理します。
3. InStr関数を使用して、セル内の文字列に「A」が含まれているかどうかを確認します。
　 InStr関数は、対象の文字列内に指定した文字が含まれている場合はその位置を返し、含まれていない場合は0を返します。
4. もしセル内に「A」が含まれている場合、count変数をインクリメントします。
5. ループの終了後、C2にセルの個数を表示します。

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

A1からA10で「A」の文字を含むセルの数は「3セル」ということがわかりました。

・回答その②

Sub Exercise17to2()
Dim count As Integer
count = 0

For Each cell In Range(“A1:A10”)
If InStr(1, cell.Value, “A”) > 0 Then
count = count + 1
End If
Next cell

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

上記のコードでは、For Each文を使用してセル範囲A1からA10までの各セルを順番に処理しています。

それぞれのセルの値に対して、InStr関数を使用して「A」の文字の存在を確認し、含まれている場合はカウントします。
最終的な結果として、含まれているセルの個数をC2に表示します。

必要な知識

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

ループ構造

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

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

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

文字列の検索

文字列内に特定の文字や文字列が含まれているかどうかを確認するためには、InStr関数を使用します。

InStr関数は、検索対象の文字列内で指定した文字や文字列が最初に出現する位置を返します。
もし見つからない場合は0を返します。

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

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

詳しい説明は下記記事を参照してください。

【マクロVBA】対象の文字が何個・何文字あるかInStr関数で求める！変数・セルに対応 ► 独学エクセル塾 (dokugakuexcel.com)

まとめ

この練習問題では、VBAを使用してExcelの操作を行いました。具体的には、セルに値を入力したり、セル範囲を走査したりする問題を解きました。

練習問題17では、セル番地A1からA10までのセルのうち、「A」の文字が含まれているセルの個数を表示することを目標としました。

解答コードでは、ForループやFor Eachループを使用してセルを走査し、InStr関数を使って文字列内に「A」が含まれているかを判定しました。

必要な知識として、ループ構造の理解やセルの値の取得方法、文字列の検索方法が重要でした。
これらの知識を活用することで、Excelの操作を効率的に行うことができます。

練習問題を通じて、VBAの基本的な構文や関数の使い方を練習することができました。
続く問題では、さらに応用的な操作や複雑な問題に挑戦してみることができます。

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

【マクロVBA練習問題16】空白セルのカウント！対象範囲に空白のセルが何個あるか数える方法

matsu — Tue, 04 Jul 2023 14:08:47 +0000

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

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題16について

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

指定されたセルを元に、空白セルの個数を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までのセルのうち、空白セルの個数を表示する。

動作説明

VBAを使用して、指定された範囲のセルのうち、空白セルの個数をカウントし、結果を表示します。

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

ヒント

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

・ヒントその1

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

・ヒントその2

取得したデータの空白のセルを数えるには、関数を使用する必要があります。

例えば、WorksheetFunction.countBlank()関数を使用して、セル範囲の空白をカウントすることができます。

・ヒントその3

セルの値が空白かどうかを判定するためには、IsEmpty関数を使用します。

例えば、IsEmpty(Range(“A1”))というように使います。
IsEmpty関数は、セルが空白の場合にTrueを返します。

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

解答コード

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

・回答その①

Sub Exercise16to1()

Dim rng As Range
Dim cell As Range
Dim countBlank As Integer

Set rng = Range(“A1:A10”)
countBlank = 0

For Each cell In rng
　If IsEmpty(cell) Then
　　countBlank = countBlank + 1
　End If
Next cell

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

上記のコードでは、セル番地A1からA10までの範囲において空白セルの個数をカウントし、結果をC2に表示しています。

解答コードでは、Rangeオブジェクトを使用してセル範囲を指定し、For Eachループを使用して各セルを順に処理しています。
IsEmpty関数を使ってセルが空白かどうかを判定し、空白の場合にはカウント変数を増やしていきます。

最後に、空白セルの個数をC2表示しています。

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

A1からA10の空白セルの数は「４セル」ということがわかりました。

・回答その②

Sub Exercise16to2()
Dim rng As Range
Dim countBlank As Integer

Set rng = Range(“A1:A10”)
countBlank = WorksheetFunction.countBlank(rng )

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

解答コードでは、Rangeオブジェクトを使用してセル範囲を指定し、
WorksheetFunction.CountBlankメソッドを使って空白セルの個数を取得しています。

最後に、空白セルの個数をC2表示しています。

WorksheetFunctionオブジェクトを使用することで、Excelの組み込み関数をVBAで利用することができるのでとても便利です！

必要な知識

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

セルの判定

セルが空白であるかどうかを判定するために、IsEmpty関数を使用します。

IsEmpty関数は、指定されたセルが空白であればTrueを返します。

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

WorksheetFunctionの使用

空白セルのカウントをするためには、WorksheetFunctionが必要です。
下記参考記事で紹介しています！

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

まとめ

この練習問題では、VBAを使用して指定された範囲内の空白セルの個数をカウントする方法を学びました。

具体的には、セル番地A1からA10までの範囲において空白セルの個数を求める問題を解きました。
解答コードでは、For Eachループを使用して各セルを順に処理し、IsEmpty関数を使用してセルが空白かどうかを判定しました。

また、別の解答としてWorksheetFunction.CountBlankメソッドを使用する方法も紹介しました。
このメソッドを使うことで、より簡潔に空白セルの個数を取得することができます。

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

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

【マクロVBA練習問題15】数値の標準偏差を求める！母集団・サンプルの違いも紹介

matsu — Tue, 04 Jul 2023 13:47:31 +0000

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題15について

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

指定されたセルの数値を元に、母集団・サンプルの標準偏差を求める練習問題となります。

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

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

問題内容

セル番地A1からA10までの標準偏差を求める

動作説明

VBAを使用して、セル番地A1からA10までの数値データの標準偏差を求めます。

この問題では、与えられたセル範囲のデータを取得し、その標準偏差を計算して結果を表示する必要があります。

ヒント

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

・ヒントその1

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

・ヒントその2

取得したデータを使って標準偏差を計算するためには、VBAの統計関数を使用する必要があります。

例えば、WorksheetFunction.StDev()関数を使用して、セル範囲のデータの標準偏差を計算することができます。

・ヒントその3

標準偏差には「母集団」として算出する方法と「サンプル」として算出する方法があります。

すべてのデータがある場合はSTDEV.P関数の「母集団」で計算しますが

データを抜き取って計算することになるため、STDEV.S関数の「標本（サンプル）」で計算することになります。

使い分けは下記の通りです。

母集団で標準偏差：STDEV.P（対象データ)
標本で標準偏差：STDEV.S（対象データ)

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

解答コード

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

・回答その①

Sub Exercise15to1()
Dim rng As Range
Dim stdev As Double

Set rng = Range(“A1:A10”)
stdev = WorksheetFunction.stdev(rng )

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

上記のコードは、セル番地A1からA10までのデータの標準偏差を求めるVBAのマクロです。

解答コードでは、Rangeオブジェクトを使用してセル範囲を指定し、WorksheetFunction.StDev()関数を使用して標準偏差を計算します。

計算結果はstdev変数に格納され、C2に表示されます。

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

A1からA10の数値の標準偏差は「8.61…」ということがわかりました。

・回答その②

Sub Exercise15to2()

Dim sum As Double
Dim mean As Double
Dim variance As Double
Dim stdev As Double

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

Dim cell As Range

For Each cell In rng
　sum = sum + cell.Value
Next cell

mean = sum / rng .Cells.count

For Each cell In rng
　variance = variance + (cell.Value – mean) ^ 2
Next cell

variance = variance / rng .Cells.count
stdev = Sqr(variance)

Range(“C2”).Value = stdev

End Sub

上記のコードは、セル番地A1からA10までのデータの標準偏差を求める別の解答例です。

この解答コードでは、ループを使用してセルの値の合計、平均値、分散を計算し、その後分散から標準偏差を求めます。

使用しないとは思いますが、こちらが標準偏差の計算方法の基礎となります。

母集団とサンプルの違いと計算方法

標準偏差には母集団・サンプルの計算方法があります。
それでは違いと使用方法を見てみましょう。

・標準偏差の母集団とサンプルとは

標準偏差には「母集団」として算出する方法と「サンプル」として算出する方法があります。

すべてのデータがある場合はSTDEV.P関数の「母集団」で計算しますが

データを抜き取って計算することになるため、STDEV.S関数の「標本（サンプル）」で計算することになります。

・母集団の計算方法

まず母集団の計算方法を紹介します。ソースコードはこちらです。

母集団を計算するときは「StDevP関数」を使用します

Sub PopulationStDev()
　Dim rng As Range
　Dim stdev As Double

Set rng = Range(“A1:A10”)
stdev = WorksheetFunction.StDevP(rng )

Range(“C2”).Value = stdev

End Sub

上記のコードは、セル番地A1からA10までのデータの母集団の標準偏差を求めるVBAのマクロです。

解答コードでは、WorksheetFunction.StDevP()関数を使用してセル範囲のデータの母集団の標準偏差を計算します。

・サンプルの計算方法

次にサンプルの計算方法を紹介します。ソースコードはこちらです。

サンプルを計算するときは「StDev関数」を使用します

Sub SampleStDev()
Dim rng As Range
Dim stdev As Double

Set rng = Range(“A1:A10”)
stdev = WorksheetFunction.stdev(rng )

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

上記のコードは、セル番地A1からA10までのデータのサンプルの標準偏差を求めるVBAのマクロです。

解答コードでは、WorksheetFunction.StDev()関数を使用してセル範囲のデータのサンプルの標準偏差を計算します。

必要な知識

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

統計関数の使用

標準偏差を求めるためには、統計関数を使用する必要があります。

VBAでは、WorksheetFunctionオブジェクトを使用してExcelの統計関数を呼び出すことができます。

この問題では、StDev()またはStDevP()関数を使用してセル範囲の標準偏差を計算します。

【STDEV.P・STDEV.S関数】2つの違いとは？母集団・標本のばらつきを求める標準偏差を求める ► 独学エクセル塾 (dokugakuexcel.com)

WorksheetFunctionの使用

積を求めるためには、WorksheetFunctionが必要です。下記参考記事で紹介しています！

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

まとめ

練習問題を通じて、VBAのスキルを向上させることができました。

より高度な問題に挑戦することで、より複雑な操作や処理を実現できるようになるでしょう。

これらの練習問題を通じて、VBAの理解を深め、Excelの自動化やデータ処理の効率化に役立てることができます。
継続的な学習と実践を通じて、VBAのスキルを磨いていきましょう。

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

【マクロVBA練習問題14】数値を昇順・降順に並び替える！Sortで並び替えを実行

matsu — Mon, 03 Jul 2023 14:48:50 +0000

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

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題14について

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

指定されたセルの数値を元に、数値を昇順に並び替える練習問題となります。

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

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

問題内容

セル番地A1からA10までの数値を昇順に並び替える

動作説明

VBAを使用して、セル番地A1からA10までの数値を昇順に並び替えます。

この問題では、セルA1からA10までの数値を取得し、その値を昇順に並び替えて元のセルに格納する必要があります。

ヒント

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

・ヒントその1

数値の並び替えには、セル範囲の取得とソートが必要です。

セル範囲を取得するには、Rangeオブジェクトを使用します。
例えば、セルA1からA10までの範囲を取得するには、Range(“A1:A10“)というように範囲を指定します。

・ヒントその2

セル範囲を並び替え・ソートするためには、Sortメソッドを使用します。

Sortメソッドは、Rangeオブジェクトに対して呼び出すことができます。
例えば、Range(“A1:A10”).Sortというように呼び出します。

・ヒントその3

ソートする際の基準を指定する必要があります。

昇順に並び替える場合は、Sortメソッドの引数でOrder1パラメータにxlAscendingを指定します。
例えば、Range(“A1:A10”).Sort Order1:=xlAscendingというように指定します。

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

解答コード

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

・回答その①

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

上記のコードは、セル範囲A1からA10までの数値を昇順に並び替えるVBAのマクロです。

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

昇順に並び替えることができていますね。

Range(“A1:A10”)でセル範囲を指定し、.Sortメソッドを呼び出してソートを行っています。

Key1パラメータにはソートの基準となるセルを指定しており、ここではA1を指定しています。
Order1パラメータにはソートの順序を指定し、xlAscendingを指定することで昇順に並び替えています。

・回答その②

Sub Exercise14to2()
Dim rng As Range
Set rng = Range(“A1:A10”)
rng.Sort Key1:=rng , Order1:=xlAscending
End Sub

上記のコードでは、Rangeオブジェクトを変数として使用し、ソート操作を行っています。

まず、Setキーワードを使用して変数rng にセル範囲A1からA10を設定しています。
そして、rng .Sortメソッドを呼び出してセル範囲を昇順に並び替えています。
Key1パラメータにはソートの基準となるセル範囲自体を指定しています。

この回答例でも、セル範囲の取得やソートの方法が確認できます。どちらの回答例を選択しても問題を解くことができます。

必要な知識

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

ソートの方法

セル範囲のソートには、Sortメソッドを使用します。

Sortメソッドは、Rangeオブジェクトに対して呼び出すことができます。
ソートの基準となるセル範囲やソートの順序を指定することができます。

【マクロVBA】昇順・降順に並び替え!指定範囲をSortメソッドで単一・複数範囲で並び替える ► 独学エクセル塾 (dokugakuexcel.com)

まとめ

この練習問題では、VBAを使用してセル範囲の数値を昇順に並び替える方法について学びました。

具体的には、セル番地A1からA10までの数値を昇順に並び替える問題を解きました。

この問題を解くためには、Rangeオブジェクトとそのメソッドを使ってセル範囲を取得し、Sortメソッドを使用して数値をソートしました。

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

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