練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題2について

こちらはマクロVBAの初歩的な知識になります。

指定範囲の合計値を求めて表示する練習問題となります。
それでは頑張っていきましょう！

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

問題内容

セル番地A1からA10までのセルに入力された数値の合計値を求め、その値をセル番地B1に表示する。

動作説明

VBAを使用して、指定されたセル範囲内の数値データの合計値を求め、結果を別のセルに表示します。
この問題では、セル番地A1からA10までのセルに入力された数値データの合計を求めてセル番地B1に表示する必要があります。

ヒント

この問題では、セル範囲内の数値データの合計を求める必要があります。
以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルの値を操作するためには、Rangeオブジェクトを使用します。
セル範囲を指定するには、Range(“A1:A10”)というように範囲の開始セルと終了セルを指定します。

・ヒントその2

ヒント2は省略可能のため不要ですが、正確で丁寧なソースコードを作成する上で紹介しておきます。
セルに値を入力するには、Valueプロパティを使用します。
例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。

・ヒントその3

合計値を求めるためには、VBAの組み込み関数であるWorksheetFunction.Sumを使用します。
例えば、SumValue = WorksheetFunction.Sum(Range(“A1:A10”))というように、
Sum関数を使ってセル範囲内の合計値を取得できます。

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

解答コード

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

・回答その①

上記のコードは、セル範囲A1からA10までの数値データの中から合計値を求め、その値をセルB1に表示するVBAのマクロです。

解答コードでは、まずSumValueという変数を宣言し、WorksheetFunction.Sum関数を使ってセル範囲の合計値を取得します。

取得した合計値を変数SumValueに代入し、最後にRange(“B1”).Valueにその値を表示します。

・回答その②

上記のコードでは、ループを使用してセル範囲内の数値データの合計値を求める方法を示しています。
各セルの値をチェックし、数値をSumValueに追加していきます。

この回答例では、For Nextループを使用してセル範囲内の各セルに順番にアクセスし、値を足していきます。

今回は結果の出力でValueプロパティを使用しています。
ちなみにこちらもValueは省略可能です。

必要に応じて、回答コードを選択し、練習問題に取り組んでください。

必要な知識

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

VBAの基礎

VBAの文法や基本的な概念を理解していることが必要です。
開発タブの表示方法やモジュールの作成、プロシージャ名（プログラムの名前）の設定方法を身につけてみてください!

下記参考記事で紹介しています！

セルの操作

セルに対する操作を行うためには、RangeオブジェクトやCellsオブジェクトを使います。
特定のセルに値を入力するには、RangeオブジェクトのValueプロパティを使用します。

下記参考記事で紹介しています！

数値の比較

合計値を求めるためには、WorksheetFunctionが必要です。

下記参考記事で紹介しています！

ループ構造

合計値を求めるために、セル範囲内の各セルを順番にチェックするループ構造が必要です。
For Nextループを使った反復処理や、Forループを使ったカウンターを利用した反復処理について理解しておくと良いでしょう。

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

まとめ

この練習問題では、セル範囲内の数値データの合計を求める方法を学びました。
WorksheetFunction.Sum関数やループ構造を使って、数値を取得し、合計を求めました。

これらの問題を通じて、VBAの基本的な文法やセル操作、数値の比較、ループ構造などの知識を応用することができました。
VBAを使うことで、Excelでの作業を自動化し、効率的に処理することが可能です。

今後は、さらに難易度の高い問題や様々なExcelの機能を組み合わせた問題に挑戦することで、VBAのスキルを向上させることができます。

次の練習問題では、さらに難易度の高い問題に取り組んでいきますので、
順番に解いていくことでスキルを磨いていきましょう。

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

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題1について

こちらはマクロVBAの初歩的な知識になります。

文字をセルに打ち込む練習問題となります。
それでは頑張っていきましょう！

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

問題内容

セル番地B3に「あいうえお」を入力する

動作説明

VBAを使用して、指定されたセル番地に特定のテキストを入力します。
この問題では、セル番地B3に「あいうえお」というテキストを入力する練習問題となっています。

ヒント

この問題は非常に簡単なもので、基本的なVBAの文法を理解していれば解くことができます。

・ヒントその1

マクロVBAのソースコードを打ち込む画面を開く必要があります。

下記記事を参考にして表示させてみてください。

・ヒントその2

セルの値を操作するためには、Rangeオブジェクトを使用します。
セル番地を指定するには、Range(“番地”)というようにセルのアドレスを指定します。

また、Rangeオブジェクト意外にも「Cells」を使用しても構いません。
Cells(行数,列数)のように指定することが可能です。

・ヒントその3

ヒント3は不要ですが、正確で丁寧なソースコードを作成する上で紹介しておきます。
セルに値を入力するには、Valueプロパティを使用します。
例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。

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

解答コード

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

・回答その①

上記のコードは、セル番地B3に「あいうえお」という値を入力するVBAのマクロです。

この解答コードをVBAのエディタに入力し、実行することで問題を解くことができます。
ちなみにValueは省略可能です。

・回答その②

上記のコードでは、Cells関数を使用して、行番号と列番号を指定してセルに値を入力しています。
Cells(3, 2)は、3行目の2列目のセルを表します。

このセルに「あいうえお」という値を入力するために、Valueプロパティを使用しています。
ちなみにこちらもValueは省略可能です。

必要に応じて、回答コードを選択し、練習問題に取り組んでください。

必要な知識

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

VBAの基礎

VBAの文法や基本的な概念を理解していることが必要です。
開発タブの表示方法やモジュールの作成、プロシージャ名（プログラムの名前）の設定方法を身につけてみてください!

下記参考記事で紹介しています！

セルの操作

セルに対する操作を行うためには、RangeオブジェクトやCellsオブジェクトを使います。
特定のセルに値を入力するには、RangeオブジェクトのValueプロパティを使用します。

下記参考記事で紹介しています！

セル番地の指定

セル番地はアルファベットの列と数字の行の組み合わせで指定されます。
例えば、A1、B3、C5といった具体的なセル番地を指定する必要があります。

Cellsオブジェクトを使用する際についてですが、
Rangeは「Range(“列行“)」ですが、Cellsは「Cells(行列)」と逆になります。

さらにCellsは数値のみの使用となります。

VBAの実行

VBAのコードはエクセルファイル内で実行されます。
VBAエディタを開き、マクロを作成し、実行することでコードが動作します。

実行方法は下記記事を参考にしてみてください！

まとめ

この練習問題では、VBAを使用してセルに特定の値を入力する基本的な操作について学びました。

具体的には、セル番地B3に「あいうえお」という値を入力する問題を解きましたね！
この問題を解くためには、VBAの基礎知識とセル操作の方法が必要になります。

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

次の練習問題では、さらに難易度の高い問題に取り組んでいきますので、
順番に解いていくことでスキルを磨いていきましょう。

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

例えば、名前を入力したり数値を変更したりなど…

今回はプログラム実行中にポップアップ・メッセージボックスのようなダイアログ画面を表示させ
そこで入力した結果を元にセルに入力したり、変数に格納したりする方法についてまとめています。

仕組みはとても簡単なので実際の画面の例を確認しながら参考にしてみてください。
それでは見ていきましょう。

⬛︎プログラムの構造

入力先・変数 = InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])

　

要約Ver
入力先・変数 = InputBox(表示メッセージ, [ダイアログボックスの題名], [初期値], [左端からのメッセージ位置], [上端からのメッセージ位置], [ヘルプファイル,ヘルプ内容のコンテキストID番号])

※1：Twipは「トゥイップ」と呼び、1Twip=1/20ポイント。1Twip=1/20ポイント0.0175mm。

※2：helpfileとcontextはセットで入力が必要です。活用法があまりないので説明を省きます。

■活用方法

では実際に活用方法について見ていきましょう。

・通常の使用方法

まずは必要最小限の表示メッセージのみで活用する方法について紹介します。
下図をご覧ください。

B3に入力結果を表示するようなプログラムを作成してみましょう。
構文は下記の通りです。

入力先・変数 = InputBox(表示メッセージ, [ダイアログボックスの題名], [初期値], [左端からのメッセージ位置], [上端からのメッセージ位置], [ヘルプファイル,ヘルプ内容のコンテキストID番号])

今回は表示メッセージのみ表示させるのでその他は省略します。
ではプログラムを見ていきましょう。

例でメッセージを「出力したい文字を入力してください。」と表示させてみましょう。

構文に当てはめるとこのようになります。

Sub 入力結果を格納()

Dim InputData As String

InputData = InputBox(“出力したい文字を入力してください。“)

Cells(3, 2) = InputData

End Sub

今回は変数の活用をしていますが
「Cells(3, 2) = InputBox(“出力したい文字を入力してください。”)」でも構いません。

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

ダイアログが表示され表示メッセージで設定した「出力したい文字を入力してください。」とメッセージが表示され、テキストボックスに文字が入力できるようになっています。

今回は見本で「あいうえお」と入力してみました。
「OK」を押すと下図の結果になります。

B3に「あいうえお」を入力することができました。
今回は変数を「String」で文字列として格納していますが
数値として活用したい場合は「Long」等を活用してください。

変数についてはこちらから☟

【マクロVBA知識 6】変数とは?変数の一覧と意味・変数の宣言をする ► 独学エクセル塾 (dokugakuexcel.com)

・ダイアログのタイトルを入力する

今度はダイアログのタイトルを設定したいと思います。
タイトルはダイアログの上部にある文字を指します。

未設定だと「Microsoft Excel」となっていますね。
では設定していきましょう。

再度、構文をご覧ください。

入力先・変数 = InputBox(表示メッセージ, [ダイアログボックスの題名], [初期値], [左端からのメッセージ位置], [上端からのメッセージ位置], [ヘルプファイル,ヘルプ内容のコンテキストID番号])

今度は数値を入力するダイアログを表示させたいと思います。
メッセージを「出力したい数値を入力してください。」
タイトルを「数値入力画面」とします。

先ほどの構文を活用するとこのようになります。

Sub 入力結果を格納()

Dim InputData As Long

InputData = InputBox(“出力したい数値を入力してください。”, “数値入力画面”)

Cells(3, 2) = InputData

End Sub

「InputData = InputBox(“出力したい数値を入力してください。”, “数値入力画面”)」は
「InputData = InputBox(Prompt:=”出力したい数値を入力してください。”, Title:=”数値入力画面”)」でも構いません。

実行した結果はこちらです。

ダイアログのタイトルが「数値入力画面」となっていますね。
今回は見本で「123」と入力してみましょう。

結果はこちらです。

「123」を出力することができました。

・初期値を設定する

初期値とはダイアログボックスに入力する前から
事前に入力してある数値を表します。

構文では
入力先・変数 = InputBox(表示メッセージ, [ダイアログボックスの題名], [初期値], [左端からのメッセージ位置], [上端からのメッセージ位置], [ヘルプファイル,ヘルプ内容のコンテキストID番号])
の「初期値」を指します。

では見本を見てみましょう。
先ほどのプログラムに規定値「999」を設定したいと思います。

プログラムはこのようになります。
InputData = InputBox(“出力したい数値を入力してください。”, “数値入力画面”, 999)
または
InputData = InputBox(Prompt:=”出力したい数値を入力してください。”, Title:=”数値入力画面”, Default:=999)

実行した結果はこちらです。

事前に「999」が入力されてありますね。

・ダイアログの表示位置を変更する

ダイアログの表示位置は変更することができます。
構文の「入力先・変数 = InputBox(表示メッセージ, [ダイアログボックスの題名], [初期値], [左端からのメッセージ位置], [上端からのメッセージ位置], [ヘルプファイル,ヘルプ内容のコンテキストID番号])」の中にある
[左端からのメッセージ位置], [上端からのメッセージ位置]で変更します。

単位はTwipは「トゥイップ」と呼び、1Twip=1/20ポイント、1Twip=1/20ポイント0.0175mmとなります。

先ほどの見本をご覧ください。

指定がない場合は水平方向には中央、垂直方向には上端から1/3の位置で
ダイアログが表示されています。

今回は位置を変えてみましょう。
調整は難しいので活用する機会はあまりないと思いますが、一例紹介します。

今回は見本で左から「1000」。上端から「5000」の位置に表示したいと思います。

構文に当てはめるとこのようになります。

InputData = InputBox(“出力したい数値を入力してください。”, “数値入力画面”, 999, 1000, 5000)
または
InputData = InputBox(Prompt:=”出力したい数値を入力してください。”, Title:=”数値入力画面”, Default:=999, xpos:=1000, ypos:=5000)

実行した結果はこちらです。

ダイアログの位置が変わりましたね。

⬛︎公式の説明

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

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

■まとめ

いかがだったでしょうか。
InputBoxは様々な活用法があります。
繰り返し処理回数を指定できたり、文字を入力・格納できたりととても便利です。

是非活用してみてください。
それでは次回の記事でお会いしましょう。

前回はマクロ・VBAのプログラム名を設定しました。

【マクロVBA】プロシージャ名（プログラム名）を設定・打ち込む！設定不可能な文字やエラーについて ► 独学エクセル塾 (dokugakuexcel.com)
今回は数値や文字・記号を打ち込むプログラムを作成してみます。

それでは早速作ってみましょう。

■忙しい人向けのコピペ用のプログラム

・Rangeでの入力

Sub 文字数値記号を入力()
Range("セル番地") = "入力したい文字・数値・記号"
End Sub

・Cellsでの入力

Sub 文字数値記号を入力()
Cells(行数,列数) =  "入力したい文字・数値・記号"
End Sub

■入力の仕組み

まず、仕組みについて説明します。

Range(“B2”)　=　入力したい文字・数値

Cells(4,3)=　入力したい文字・数値

上記のようにセルに文字を選択する際は「Range」と「Cells」があります。

指定したセルを選択して文字や数値の入力する機能は同じなんですが、セルの選択方法が異なります。

それぞれのセルの指示方法について見ていきましょう。

■RangeとCellsの違いと実践

・Rangeでの入力方法

下記のようにセル番地B2に「123」、C4に「あいうえお」と入力するプログラムを作成してみたいと思います。

まずB2の方からいきます。

B2には「123」と入れてみようと思います。

プログラムの内容は
Range(“B2”)　=123
となります。

内容としてはB列の2行目をRangeで選択してイコールで入力したい「123」を打ち込みます
さらにセルの番地の先頭と最後は「”」で挟みます。

次はC4です。

C4には「あいうえお」と入れてみようと思います。
Range(“C4”)　=”あいうえお”
でもいいのですが、もう1パターン打ち込める方法があるので、そちらで説明します。

・Cellsでの入力方法

もう一つの方法で文字・数値・記号を入力する際に使用するのは「Cells」です。
プログラムで表すと

Cells(4,3)=”あいうえお”

となります。

こちらの説明としてはCells(4,3)の4が行数
Cells(4,3)の3が列数となります。

Rangeは「Range(“列行“)」ですが、Cellsは「Cells(行列)」と逆になります。

では実際に打ち込んでみましょう。

このようになりました。
これで入力プログラムの完成です。

RangeとCellsでは今後の変数というシステムを考えるとCellsで慣れた方がいいです。

理由としてはCellsは変数を合わせて活用できるのですがRangeはそれができません。

変数に関しては今後の記事で紹介します。

■練習問題

ではE8のセルに「マクロ・VBA」と入力してみましょう。

Rangeの場合

　　　　対象セルは「E8」なのでそのまま打ち込みます。

　　　　Range(“E8“)=”マクロ・VBA“

Cellsの場合

　　　　対象セルの行は「8」、列はEでABCDEの「5番目」なので

　　　　Cells(8,5)=”マクロ・VBA“

初めは使い分ける意味があるの？と思いますが使い続けていくと

「ここはRangeでいいや」「ここは変数を使いたいからCellsだな」となってくると思います。

■練習問題

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

⬛︎公式の説明

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

Range オブジェクト (Excel) | Microsoft Learn

Worksheet.Cells プロパティ (Excel) | Microsoft Learn

■ まとめ

今回は以上です。
これでほんとにできるの？と思う方もいると思います。

では次回は実際にこのプログラムを動かしてみましょう。
ぜひ、参考にしてみてください。

では次回の記事でお会いしましょう！次回の記事はこちらから☟

【マクロ・VBA知識 5】プログラムを１行ずづ実行・すべて実行・指定した位置・個所まで実行する方法 ► 独学エクセル塾 (dokugakuexcel.com)

！