マクロVBA | 独学エクセル塾 https://dokugakuexcel.com 初心者から中級者までシステム・関数・VBAを伝授します Sun, 02 Jul 2023 14:53:33 +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 マクロVBA | 独学エクセル塾 https://dokugakuexcel.com 32 32 194648711 【マクロVBA練習問題10】正(プラス)・負の値(マイナス)の個数を表示・判別する 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%8c10%e3%80%91%e6%ad%a3%e3%83%97%e3%83%a9%e3%82%b9%e3%83%bb%e8%b2%a0%e3%81%ae%e5%80%a4%e3%83%9e%e3%82%a4%e3%83%8a%e3%82%b9/?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%258c10%25e3%2580%2591%25e6%25ad%25a3%25e3%2583%2597%25e3%2583%25a9%25e3%2582%25b9%25e3%2583%25bb%25e8%25b2%25a0%25e3%2581%25ae%25e5%2580%25a4%25e3%2583%259e%25e3%2582%25a4%25e3%2583%258a%25e3%2582%25b9 Mon, 26 Jun 2023 13:51:09 +0000 https://dokugakuexcel.com/?p=4295
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題10について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. ループ構造
    2. セルの範囲指定
    3. 正の値または負の値であるかどうかを判定する
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題10について

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

指定されたセルの正・負の値の個数を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までの数値を対象に、C2には負の数、C5には正の数を入力する

動作説明

VBAを使用して、セル番地A1からA10までの値を取得し、その中で負の値の個数を数えてセル番地C2、
正の値の個数を数えてセル番地C5に表示します。

具体的には、セル番地A1からA10までの値を順番に取得し、
正の値または負の値をカウントアップします。

ヒント


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

・ヒントその1

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

For Each cell In Range(“A1:A10”)
 ‘ここに処理
Next cell
これにより、A1からA10まで順に繰り返し処理を行います。

・ヒントその2

正の値または負の値であれば、変数をカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

・ヒントその3

取得した値が正の値または負の値であるかどうかを判定する条件分岐を使用します。

条件分岐はIf Thenを使用します。

判別する際は不等式を使用します。
例えば「対象の数値　< 0」の場合、対象の数値は0より小さいことから負の値であることがわかります。

この構造を活用して、正の値または負の値か判断します。


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

 

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

 

解答コード

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

・回答その①

Sub Exercise10to1()
Dim rng As Range
Dim cell As Range
Dim count As Integer

‘ セル番地A1からA10までの範囲を指定
Set rng = Range(“A1:A10”)

count = 0 ‘ カウンターを初期化

‘ 範囲内の各セルに対してループ
For Each cell In rng
‘ 負の値であるかを判定
If cell .Value < 0 Then
count = count + 1 ‘ カウンターをインクリメント
End If
Next cell

‘ 結果を表示
Range(“C2”).Value = count
Range(“C5”).Value = 10 – count
End Sub
このコードでは、セル番地A1からA10までの範囲を指定し、各セルの値を調べています。
その際は「For Each cell In rng」で対象の範囲を繰り返し処理するようにしています。

負の値を見つけた場合は、変数count のカウントアップしています
 
また、負の数か求める際には「If cell .Value < 0 Then」のように対象のセルの値が
0を下回っていたら負の数と判断してカウントアップを行います。

・回答その②

Sub Exercise10to2()
Dim rng As Range
Dim count As Long

‘ セル番地A1からA10までの範囲を指定
Set rng = Range(“A1:A10”)

count = WorksheetFunction.CountIf(rng , “<0”)

‘ 結果を表示
Range(“C2”).Value = count
Range(“C5”).Value = 10 – count
End Sub

このコードでは、WorksheetFunction.CountIf 関数を使用して、
セル番地A1からA10までの範囲内で負の値の個数を数えています。

カウントの条件を「“<0”」とすることで負の数を計算するようにしています。

この回答例では、ループ処理を使用せずに組み込みの関数を活用して個数を計算しています。

 

 

必要な知識

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

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。

今回はFor Each文を使用しました。

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

セルの範囲指定

VBAでは、RangeオブジェクトやCellsオブジェクトを使用してセルを対象にします。

Rangeオブジェクトは、セルの範囲を指定する際に使用されます。例えば、Range(“A1”)はセル番地A1を指定します。
Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用されます。

例えば、Cells(1, 1)はセル番地A1を指定します。

正の値または負の値であるかどうかを判定する

例題では負の数を求める際には「If cell .Value < 0 Then」のように処理しました。
こちらは対象のセルの値が0を下回っているか確認して、0を下回っていたら負の数と判断しています。

WorksheetFunction.CountIf 関数を使用した場合は検索条件を“<0”とすることで負の数を求めることが出来ます。

【マクロVBA】If …Thenで条件分岐・判別をする!Elseで異なる処理パターンも可能に ► 独学エクセル塾 (dokugakuexcel.com)
【マクロVBA】カウントをCOUNT・COUNTIF・COUNTIFSで求める！複数条件にも対応 ► 独学エクセル塾 (dokugakuexcel.com)

 

まとめ

この練習問題では、セル番地A1からA10までの正の値あたは負の値の個数を表示するという課題に取り組みました。


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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題10となります。お疲れ様でした！

]]> 4295 【マクロVBA練習問題9】色の変更！セルの文字色やセルの塗りつぶし色を変更する 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%8c8%e3%80%91%e8%89%b2%e3%81%ae%e5%a4%89%e6%9b%b4%ef%bc%81%e3%82%bb%e3%83%ab%e3%81%ae%e6%96%87%e5%ad%97%e8%89%b2%e3%82%84/?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%258c8%25e3%2580%2591%25e8%2589%25b2%25e3%2581%25ae%25e5%25a4%2589%25e6%259b%25b4%25ef%25bc%2581%25e3%2582%25bb%25e3%2583%25ab%25e3%2581%25ae%25e6%2596%2587%25e5%25ad%2597%25e8%2589%25b2%25e3%2582%2584 Sun, 25 Jun 2023 15:36:36 +0000 https://dokugakuexcel.com/?p=4289
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題9について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. セルの文字色の変更
    2. セルの塗りつぶし色の変更
    3. セルの範囲指定
    4. With文の使用
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題9について

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

指定されたセルの文字色やセルの塗りつぶし色を変更する練習問題となります。

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

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

問題内容

セル番地B2の文字を赤色に塗りつぶし、B4のセルを青色に塗りつぶす

動作説明

VBAを使用して、指定されたセルの文字色やセルの塗りつぶし色を変更します。

この問題では、セル番地B2の文字を赤色に塗りつぶし、B4のセルを青色に塗りつぶす必要があります。

ヒント


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

・ヒントその1

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。

例えば、Range(“B2”).Font.Color= RGB(255, 0, 0)というコードを使って、
セルB2の文字色を赤色に変更することができます。

・ヒントその2

セルの塗りつぶし色を変更するには、InteriorオブジェクトのColorプロパティを使用します。

例えば、Range(“B4”).Interior.Color = RGB(0, 0, 255)というコードを使って、
セルB4の塗りつぶし色を青色に変更することができます。


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

 

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

 

解答コード

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

・回答その①

Sub Exercise9()
 Range(“B2”).Font.Color = RGB(255, 0, 0) ‘ 赤色に設定
 Range(“B4”).Interior.Color = RGB(0, 0, 255) ‘ 青色に設定
End Sub

上記のコードは、セル番地B2の文字色を赤色に、
セル番地B4の塗りつぶし色を青色に変更するVBAのマクロです。

文字の色を塗りつぶす際は下記のように指定します。

Range(“文字の色をつけたいセル”).Font.Color=RGB(赤の要素,緑の要素,青の要素)
セルの色を塗りつぶす際は下記のように指定します。
Range(“色をつけたいセル”).Interior.Color=RGB(赤の要素,緑の要素,青の要素)

・回答その②

Sub Exercise9()

With Range(“B2”)
.Font.Color = vbRed
End With

With Range(“B4”)
.Interior.Color = vbBlue
End With
End Sub

上記のコードでは、セル番地B2の文字を赤色に変更しています。
また、セル番地B4の塗りつぶし色を青色に変更しています。

回答その①とは異なり、「RGB」での色の変更でなく、「定数」を使用しています。
定数の使用方法は下記の通りです。

Range(“色をつけたいセル”).Interior.Color=定数

With文を使用して、Range(“B2”)およびRange(“B4”)に対して
複数のプロパティを一括で設定しています。

 

 

必要な知識

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

セルの文字色の変更

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。
文字色はRGB値（赤、緑、青）で指定されます。
例えば、赤色は`RGB(255, 0, 0)`で表されます。

RGBの例

白:RGB(0,0,0)
黒:RGB(255,255,255)
赤:RGB(255,0,0)
黄色:RGB(255,255,0)
青:RGB(0,0,255)
【マクロVBA】文字に色をつける・設定・変更！ Font.ColorとRGB・Index・定数で変更 ► 独学エクセル塾 (dokugakuexcel.com)

セルの塗りつぶし色の変更

 セルの塗りつぶし色を変更するには、InteriorオブジェクトのColorプロパティを使用します。
塗りつぶし色もRGB値で指定します。

回答その②で紹介した、色の定数でも問題ありません。

※色の種類は下記の表参照

定数 文字の色
vbBlack 黒
vbRed 赤
vbGreen 緑
vbYellow 黄
vbBlue 青
vbMagenta 紫
vbCyan シアン
vbWhite 白
 
【マクロVBA】セルの背景に色をつける・設定・変更！ Interior.ColorとRGBなどで指定 ► 独学エクセル塾 (dokugakuexcel.com)

セルの範囲指定

VBAでは、RangeオブジェクトやCellsオブジェクトを使用してセルを対象にします。

Rangeオブジェクトは、セルの範囲を指定する際に使用されます。例えば、Range(“A1”)はセル番地A1を指定します。
Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用されます。

例えば、Cells(1, 1)はセル番地A1を指定します。

With文の使用

With文を使用すると、同じオブジェクトに対して複数のプロパティを一括で設定できます。

今回は対象のセルに対して１つの動作でしたが、コードの可読性を向上させるために活用しましょう。


まとめ

この練習問題では、VBAを使用して特定のセルの文字色と塗りつぶし色を変更する方法について学びました。

具体的には、セル番地B2の文字を赤色に変更し、セル番地B4の塗りつぶし色を青色に変更する問題を解きました。
この問題を解くためには、セルの文字色や塗りつぶし色を変更するためのプロパティ、およびセルの範囲を指定する方法が必要でした。



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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題9となります。お疲れ様でした！

]]> 4289 【マクロVBA練習問題8】偶数・又は奇数の個数を計算・判別し、その結果を表示する 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%8c8%e3%80%91%e5%81%b6%e6%95%b0%e3%83%bb%e5%8f%88%e3%81%af%e5%a5%87%e6%95%b0%e3%81%ae%e5%80%8b%e6%95%b0%e3%82%92%e8%a8%88/?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%258c8%25e3%2580%2591%25e5%2581%25b6%25e6%2595%25b0%25e3%2583%25bb%25e5%258f%2588%25e3%2581%25af%25e5%25a5%2587%25e6%2595%25b0%25e3%2581%25ae%25e5%2580%258b%25e6%2595%25b0%25e3%2582%2592%25e8%25a8%2588 Sun, 25 Jun 2023 14:17:52 +0000 https://dokugakuexcel.com/?p=4280
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題8について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
    4. ・ヒントその4 
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. ループ構造
    2. 割った後の余りを求める
    3. 条件分岐
    4. 変数の操作
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題8について

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

指定された範囲の偶数・又は奇数の個数を計算し、その結果を表示する練習問題となります。

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

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

問題内容

セル番地D2/D5にセル番地A1からA10までの偶数または奇数の個数を表示する

動作説明

VBAを使用して、セル番地A1からA10までの値の中で偶数の個数を計算し、その結果をセル番地D2/D5に表示します。

具体的には、セル番地A1からA10までの値を順番に取得し、偶数であればカウントを増やします。

最終的にカウントされた偶数の個数をセル番地D2に表示、奇数をD5に表示する必要があります

ヒント


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

・ヒントその1

取得した値が偶数であるかどうかを判定する条件分岐を使用します。

条件分岐はIf Thenを使用します。

割ったときの余りを計算する際にはMod演算を行います。
例えば「10 Mod ３」の場合、「10÷3」で答えの「1」が出力されます。

この構造を活用して、偶然か奇数か求めます。

・ヒントその2

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

For Each cell In Range(“A1:A10”)
 ‘ここに処理
Next cell
これにより、A1からA10まで順に繰り返し処理を行います。

・ヒントその3

偶数であれば、偶数の個数をカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

・ヒントその4 

最終的にカウントされた偶数の個数をセル番地D2/D5に表示するために、セルへの値の代入を行います。

例えば、指定セル = 入力したい文字で文字の入力が可能です。
これらのヒントを参考にして、解答コードを作成してみてください。  

 

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

 

解答コード

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

・回答その①

Sub Exercise8to1()
Dim rng As Range
Dim cell As Range
Dim count As Integer

‘ 対象の範囲をセル番地A1からA10までに設定
　Set rng = Range(“A1:A10”)

‘ 初期化
　count = 0

‘ セル番地A1からA10までの値をループで処理
For Each cell In rng
‘ 値が偶数かどうかを判定
　If cell .Value Mod 2 = 0 Then
　　count = count + 1 ‘ 偶数の個数をカウントアップ
　End If
Next cell

‘ カウントされた偶数の個数をセル番地I1に表示
Range(“D2”).Value = count
Range(“D5”).Value = 10 – count

End Sub

上記のコードをVBAエディタに貼り付けて実行すると、
セル番地A1からA10までの値の中で偶数の個数がセル番地D2に表示されます。

その後総数の「10」から偶数の値を引くことで、セル番地D5に奇数を表示させます。

 

偶数か、判別するためにはMod演算で２で割ったあまりをもとめます。

つまり、「If cell .Value Mod 2 = 0  」で対象の値を2で割ったのち、その値が「0」か条件分岐します。
結果が「0」の場合は偶数なのでカウントアップをする仕組みです。


☟繰り返し処理の見本

Dim 変数名　AS 変数の型

For Each 変数名　In 配列・コレクション

‘処理

Next 変数名

 

・回答その②

Sub Exercise8to2()
Dim count As Integer
Dim i As Integer

‘ 初期化
count = 0

‘ セル番地A1からA10までの値を順番に判定
For i = 1 To 10
　If Cells(i , 1).Value Mod 2 = 0 Then
　　count = count + 1 ‘ 偶数の個数をカウントアップ
　End If
Next i

‘ カウントされた偶数の個数をセル番地I1に表示
Range(“D2”).Value = count
Range(“D5”).Value = 10 – count

End Sub

回答その①と処理方法は同じですが繰り返し処理が異なります。

先ほどは「For Each」で繰り返し処理を行っていましたが、今回は「For Next」で繰り返し処理を行っています。

For Nextの見本は下記の通りです。

Sub 繰り返し動作()
 Dim 変数 As Long

   For 変数 = 開始値 To 終わり値 Step 1回で進む数
       ‘ここに処理プログラム
   Next 変数
End Sub

 

 

必要な知識

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

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。
今回はFor Each文とFor Next文を使用しました。

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

割った後の余りを求める

偶数の個数を数えるためには、２で割った後の余りが「0」かを確認する必要があります。

そこで「Mod演算」を使用します。

使い方としては「出力＝割る対象　Mod 割る数」のように使用します。

【マクロVBA】Mod関数を使って割り算の余りを求める方法！偶数・奇数の数を数えるにも活用！ ► 独学エクセル塾 (dokugakuexcel.com)

条件分岐

セルの値が偶数かどうかを判定するためには、条件分岐の文法を理解する必要があります。
VBAではIf…Then…Else文やSelect Case文などが使用されます。

【マクロVBA】If …Thenで条件分岐・判別をする!Elseで異なる処理パターンも可能に ► 独学エクセル塾 (dokugakuexcel.com)

変数の操作

偶数の個数を数えるために、カウンタ変数を用意し、条件が成り立つ場合にカウンタを増やしていく必要があります。
変数の宣言や操作方法を理解する必要があります。

まとめ

この課題では、VBAを使用してセル番地A1からA10までの偶数・奇数の個数を数えるプログラムを作成しました。

ループ構造や条件分岐、変数の操作などの基本的な概念を活用して、問題を解決しました。
VBAを使ったデータの処理や操作を行う際には、これらの基本的な知識が役立ちます。


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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題8となります。お疲れ様でした！

]]> 4280 【マクロVBA練習問題7】最小値の計算！セルの値を取得し、一番小さい値を計算してセルに表示する 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%8c7%e3%80%91%e6%9c%80%e5%b0%8f%e5%80%a4%e3%81%ae%e8%a8%88%e7%ae%97%ef%bc%81%e3%82%bb%e3%83%ab%e3%81%ae%e5%80%a4%e3%82%92/?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%258c7%25e3%2580%2591%25e6%259c%2580%25e5%25b0%258f%25e5%2580%25a4%25e3%2581%25ae%25e8%25a8%2588%25e7%25ae%2597%25ef%25bc%2581%25e3%2582%25bb%25e3%2583%25ab%25e3%2581%25ae%25e5%2580%25a4%25e3%2582%2592 Sun, 25 Jun 2023 03:14:42 +0000 https://dokugakuexcel.com/?p=4276
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題7について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
    4. ・ヒントその4   (参考)
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. 最小値の計算方法
    2. セルの値の取得と設定
    3. 変数の宣言と演算
    4. WorksheetFunctionの使用
    5. ループ構造
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題7について

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

指定された範囲のセル値の最小値を計算し、セル番地に結果を表示する練習問題となります。 それでは頑張っていきましょう！

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

問題内容

セル番地A1からA5までの値の中から最小値を見つけ、その結果をセル番地G1に表示する 

動作説明

VBAを使用して、指定された範囲のセル番地A1からA5までの値の中から最小値を見つけ、その結果をセル番地G1に表示します。
最小値とは対象の数値を一番小さな値です。
この問題では、セル番地A1からA5までの値を取得し、その中から最小値を見つけてセル番地G1に表示する必要があります。

ヒント


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

・ヒントその1

セル番地A1からB3の値の最小値を求めるには、セルの値を取得してから最小値を計算し、結果をセル番地G1に表示する必要があります。
１つずつ比較してもいいですが、WorksheetFunctionオブジェクトのminメソッドを使用する方法があります。

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

・ヒントその2

セルに値を最小値を見つけるためには、ループや条件分岐を使用することが有効です。
例えば、For Eachループを使用してセル番地A1からA5までの値を順番に比較します。

例えば下記のような見本を紹介します。

For Each cell In Range(“A2:A5”)
 ‘ここに処理
Next cell
これにより、A2からA5まで順に繰り返し処理を行います。

・ヒントその3

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

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

・ヒントその4   (参考)

計算結果をセルに表示するには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。
ちなみに省略しても機能します！ これらのヒントを参考にして、解答コードを作成してみてください。  

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

 

解答コード

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

・回答その①

Sub Exercise7to1()
Dim minValue As Variant
Dim cell As Range

minValue = Range(“A1”).Value

For Each cell In Range(“A2:A5”)
If cell.Value < minValue Then
minValue = cell.Value
End If
Next cell

Range(“G1”).Value = minValue

End Sub

上記のコードは、セル番地A1からA5の値を比較し、最小値をもとめて、その結果をセル番地G1に表示するVBAのマクロです。
解答コードでは、`minValue `という変数を宣言し、セルの値を繰り返し処理で比較して最小値を計算しています。

最終的に、計算結果を`Range(“G1”).Value`に代入してセルに表示しています。
☟繰り返し処理の見本

Dim 変数名　AS 変数の型

For Each 変数名　In 配列・コレクション

‘処理

Next 変数名

 

・回答その②

Sub Exercise7to2()
Dim minValue As Double
Dim cell As Range

minValue = Application.WorksheetFunction.min(Range(“A1:A5”))
Range(“G1”).Value = minValue

End Sub

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

Application.WorksheetFunction.min(最小値を求めたい範囲)

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

 

必要な知識

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

最小値の計算方法

まず、最小値の仕組みを知っておく必要があります。
通常の最小値を計算する記事で詳しく解説していますので是非参考にしてみてください。

【MIN関数】エクセルで関数を使用して、最小値を求める方法について ► 独学エクセル塾 (dokugakuexcel.com)

セルの値の取得と設定

セルの値を取得するには、Valueプロパティを使用します。
例えば、Range(“A1”).ValueやCells(1, 1).Valueはセルの値を取得します。

セルの値を設定するにも、同様にValueプロパティを使用します。
例えば、Range(“A1”).Value = 10やCells(1, 1).Value = “Hello”といった形でセルに値を設定します。 下記参考記事で紹介しています！

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

変数の宣言と演算

VBAでは、変数を宣言して使用します。変数はDimステートメントを使用して宣言します。
例えば、Dim minValue As Doubleとすると、minValue という名前の変数をDouble型で宣言します。

演算においては、四則演算や比較演算子を使用します。
例えば、minValue = minValue + 1とすると、minValue の値に1を加えて再代入します。

WorksheetFunctionの使用

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

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

ループ構造

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

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

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

まとめ

この練習問題では、VBAを使用してセルの値の最小値を求める方法について学びました。

具体的には、セル番地A1からA5の値の最小値を計算し、その結果をセル番地G1に表示する問題を解きました。


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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
  以上で練習問題7となります。お疲れ様でした！

]]> 4276 【マクロVBA練習問題6】最大値の計算！セルの値を取得し、最大値を計算してセルに表示する 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%8c6%e3%80%91%e6%9c%80%e5%a4%a7%e5%80%a4%e3%81%ae%e8%a8%88%e7%ae%97%ef%bc%81%e3%82%bb%e3%83%ab%e3%81%ae%e5%80%a4%e3%82%92/?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%258c6%25e3%2580%2591%25e6%259c%2580%25e5%25a4%25a7%25e5%2580%25a4%25e3%2581%25ae%25e8%25a8%2588%25e7%25ae%2597%25ef%25bc%2581%25e3%2582%25bb%25e3%2583%25ab%25e3%2581%25ae%25e5%2580%25a4%25e3%2582%2592 Fri, 23 Jun 2023 15:11:32 +0000 https://dokugakuexcel.com/?p=4268
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題6について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
    4. ・ヒントその4   (参考)
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. 最大値の計算方法
    2. セルの値の取得と設定
    3. 変数の宣言と演算
    4. WorksheetFunctionの使用
    5. ループ構造
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題6について

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

指定された範囲のセル値の最大値を計算し、セル番地に結果を表示する練習問題となります。 それでは頑張っていきましょう！

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

問題内容

セル番地A1からA5までの値の中から最大値を見つけ、その結果をセル番地G1に表示する 

動作説明

VBAを使用して、指定された範囲のセル番地A1からA5までの値の中から最大値を見つけ、その結果をセル番地G1に表示します。
最大値とは対象の数値を一番大きな値です。
この問題では、セル番地A1からA5までの値を取得し、その中から最大値を見つけてセル番地G1に表示する必要があります。

ヒント


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

・ヒントその1

セル番地A1からB3の値の最大値を求めるには、セルの値を取得してから最大値を計算し、結果をセル番地G1に表示する必要があります。
１つずつ比較してもいいですが、WorksheetFunctionオブジェクトのmaxメソッドを使用する方法があります。

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

・ヒントその2

セルに値を最大値を見つけるためには、ループや条件分岐を使用することが有効です。
例えば、For Eachループを使用してセル番地A1からA5までの値を順番に比較します。

例えば下記のような見本を紹介します。

For Each cell In Range(“A2:A5”)
 ‘ここに処理
Next cell
これにより、A2からA5まで順に繰り返し処理を行います。

・ヒントその3

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

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

・ヒントその4   (参考)

計算結果をセルに表示するには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。
ちなみに省略しても機能します！ これらのヒントを参考にして、解答コードを作成してみてください。  

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

 

解答コード

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

・回答その①

Sub Exercise6to1()
Dim maxValue As Variant
Dim cell As Range

maxValue = Range(“A1”).Value

For Each cell In Range(“A2:A5”)
If cell.Value > maxValue Then
maxValue = cell.Value
End If
Next cell

Range(“G1”).Value = maxValue

End Sub

上記のコードは、セル番地A1からA5の値を比較し、最大値をもとめて、その結果をセル番地G1に表示するVBAのマクロです。
解答コードでは、`maxValue `という変数を宣言し、セルの値を繰り返し処理で比較して最大値を計算しています。

最終的に、計算結果を`Range(“G1”).Value`に代入してセルに表示しています。
☟繰り返し処理の見本

Dim 変数名　AS 変数の型

For Each 変数名　In 配列・コレクション

‘処理

Next 変数名

 

・回答その②

Sub Exercise6to2()
Dim maxValueAs Double
Dim cell As Range

maxValue= Application.WorksheetFunction.Max(Range(“A1:A5”))
Range(“G1”).Value = maxValue

End Sub

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

Application.WorksheetFunction.max(最大値を求めたい範囲)

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

 

必要な知識

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

最大値の計算方法

まず、最大値の仕組みを知っておく必要があります。
通常の最大値を計算する記事で詳しく解説していますので是非参考にしてみてください。

【MAX関数】エクセルで範囲を指定して、数値の最大値を求める方法について ► 独学エクセル塾 (dokugakuexcel.com)

セルの値の取得と設定

セルの値を取得するには、Valueプロパティを使用します。
例えば、Range(“A1”).ValueやCells(1, 1).Valueはセルの値を取得します。

セルの値を設定するにも、同様にValueプロパティを使用します。
例えば、Range(“A1”).Value = 10やCells(1, 1).Value = “Hello”といった形でセルに値を設定します。 下記参考記事で紹介しています！

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

変数の宣言と演算

VBAでは、変数を宣言して使用します。変数はDimステートメントを使用して宣言します。
例えば、Dim maxValue As Doubleとすると、maxValueという名前の変数をDouble型で宣言します。

演算においては、四則演算や比較演算子を使用します。
例えば、maxValue= maxValue+ 1とすると、maxValueの値に1を加えて再代入します。

WorksheetFunctionの使用

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

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

ループ構造

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

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

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

まとめ

この練習問題では、VBAを使用してセルの値の最大値を求める方法について学びました。

具体的には、セル番地A1からA5の値の最大値を計算し、その結果をセル番地G1に表示する問題を解きました。


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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
  以上で練習問題6となります。お疲れ様でした！

]]> 4268 【マクロVBA練習問題5】指定された範囲のセルの値を取得し、積を計算してセルに表示する練習問題 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%8c5%e3%80%91%e6%8c%87%e5%ae%9a%e3%81%95%e3%82%8c%e3%81%9f%e7%af%84%e5%9b%b2%e3%81%ae%e3%82%bb%e3%83%ab%e3%81%ae%e5%80%a4/?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%258c5%25e3%2580%2591%25e6%258c%2587%25e5%25ae%259a%25e3%2581%2595%25e3%2582%258c%25e3%2581%259f%25e7%25af%2584%25e5%259b%25b2%25e3%2581%25ae%25e3%2582%25bb%25e3%2583%25ab%25e3%2581%25ae%25e5%2580%25a4 Wed, 14 Jun 2023 01:11:34 +0000 https://dokugakuexcel.com/?p=4246
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題5について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3   (参考)
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. 積の計算方法
    2. セルの値の取得と設定
    3. 変数の宣言と演算
    4. WorksheetFunctionの使用
    5. ループ構造
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題5について

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

指定された範囲のセルの値を取得し、積を計算してセルに表示する練習問題となります。 それでは頑張っていきましょう！

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

問題内容

セル番地D1からD5までの平均値を計算し、セル番地E1に結果を表示する

動作説明

VBAを使用して、指定された範囲のセルの値を取得し、その積をセル番地F1に表示します。
積とは対象の数値をすべて掛けた値です。
この問題では、セル番地A1からB3の値の積をセル番地F1に表示する必要があります。  

ヒント


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

・ヒントその1

セル番地A1からB3の値の積を求めるには、セルの値を取得してから積を計算し、結果をセル番地F1に表示する必要があります。
１つずつ掛け合わせてもいいですが、WorksheetFunctionオブジェクトのproductメソッドを使用する方法があります。

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

・ヒントその2

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

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

・ヒントその3   (参考)

計算結果をセルに表示するには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。
ちなみに省略しても機能します！ これらのヒントを参考にして、解答コードを作成してみてください。  

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

 

解答コード

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

・回答その①

Sub Exercise5to1()
　Dim productValue As Double
　Dim cycle1 As Long, cycle2 As Long

　productValue = 1
　For cycle1 = 1 To 3
　　For cycle2 = 1 To 2
　　　productValue = productValue * Cells(cycle1, cycle2)
　　Next cycle2
　Next cycle1

Range(“F1”).Value = productValue

 End Sub  

上記のコードは、セル番地A1からB3の値の積を計算し、その結果をセル番地F1に表示するVBAのマクロです。
解答コードでは、`productValue `という変数を宣言し、セルの値を繰り返し処理で取得して積を計算しています。

最終的に、計算結果を`Range(“F1”).Value`に代入してセルに表示しています。 ☟繰り返し処理の見本

Sub 繰り返し動作()
 Dim 変数 As Long
  For 変数 = 開始値 To 終わり値 Step 1回で進む数
    ‘ここに処理プログラム
  Next 変数
End Sub

 

・回答その②

Sub Exercise5to2()
Dim productValue As Double

productValue = WorksheetFunction.product(Range(“A1:B3“))
Range(“F1”).Value = productValue

End Sub

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

Application.WorksheetFunction.product(積を求めたい範囲)

取得した平均値を変数productValueに代入し、最後にRange(“F1”).Valueにその値を表示します。  

必要な知識

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

積の計算方法

まず、積の仕組みを知っておく必要があります。
通常の積を計算する記事で詳しく解説していますので是非参考にしてみてください。

【PRODUCT関数】エクセルで選択した範囲を全て掛け算をする方法 ► 独学エクセル塾 (dokugakuexcel.com)

セルの値の取得と設定

セルの値を取得するには、Valueプロパティを使用します。
例えば、Range(“A1”).ValueやCells(1, 1).Valueはセルの値を取得します。

セルの値を設定するにも、同様にValueプロパティを使用します。
例えば、Range(“A1”).Value = 10やCells(1, 1).Value = “Hello”といった形でセルに値を設定します。 下記参考記事で紹介しています！

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

変数の宣言と演算

VBAでは、変数を宣言して使用します。変数はDimステートメントを使用して宣言します。
例えば、Dim productValue　As Doubleとすると、productValue　という名前の変数をDouble型で宣言します。

演算においては、四則演算や比較演算子を使用します。
例えば、productValue= productValue+ 1とすると、totalの値に1を加えて再代入します。

WorksheetFunctionの使用

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

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

ループ構造

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

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

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

まとめ

この練習問題では、VBAを使用してセルの値を掛け合わせる操作について学びました。

具体的には、セル番地A1からB3の値の積を計算し、その結果をセル番地F1に表示する問題を解きました。
この問題を解くためには、セルの値の取得、変数の宣言、数値の演算、セルへの値の代入といった基本的な知識が必要でした。

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

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
  以上で練習問題5となります。お疲れ様でした！

]]> 4246 【マクロVBA練習問題4】指定したセル・範囲の平均値を計算し、セル番に結果を表示 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%8c4%e3%80%91%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9f%e3%82%bb%e3%83%ab%e3%83%bb%e7%af%84%e5%9b%b2%e3%81%ae%e5%b9%b3%e5%9d%87/?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%258c4%25e3%2580%2591%25e6%258c%2587%25e5%25ae%259a%25e3%2581%2597%25e3%2581%259f%25e3%2582%25bb%25e3%2583%25ab%25e3%2583%25bb%25e7%25af%2584%25e5%259b%25b2%25e3%2581%25ae%25e5%25b9%25b3%25e5%259d%2587 Tue, 13 Jun 2023 01:36:56 +0000 https://dokugakuexcel.com/?p=4236
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題4について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3   (参考)
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. セルへのアクセス方法
    2. セルの値の取得と設定
    3. 変数の宣言と演算
    4. 平均の計算
    5. ループ構造
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

 

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

・練習問題4について

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

指定したセル・範囲の平均値を計算し、セルに結果を表示する問題となります。
それでは頑張っていきましょう！

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

問題内容

セル番地D1からD5までの平均値を計算し、セル番地E1に結果を表示する

動作説明

VBAを使用して、セル番地D1からD5までの値の平均値を計算し、その結果をセル番地E1に表示します。
具体的には、セル番地D1からD5までの値を取得し、それらの値の平均を計算してセル番地E1に表示する必要があります。

 

ヒント


この問題では、セル番地D1からD5までの値の平均を計算し、セル番地E1に結果を表示する必要があります。
以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

平均値を計算するためには、取得した値を合計し、セルの数で割る必要があります。ループを使用してセルの値を合計する方法や、WorksheetFunctionオブジェクトのAverageメソッドを使用する方法があります。


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

・ヒントその2

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

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

・ヒントその3   (参考)

計算結果をセルに表示するには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

例えば、指定セル.Value = 入力したい文字で文字の入力が可能です。
ちなみに省略しても機能します！

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

 

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

 

解答コード

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

・回答その①

Sub Exercise5to1()
Dim total As Double
Dim averageValue As Double
Dim cycle As Long

For cycle = 1 To 5 Step 1
total = total + Cells(cycle, 4)
Next cycle

averageValue = total / 5
Range(“E1”).Value = averageValue

End Sub

上記のコードは、セル番地D1からD5までの値の平均値を計算し、その結果をセル番地E1に表示するVBAのマクロです。

解答コードでは、totalとaverageValueという変数を宣言し、totalにセル番地D1からD5の合計値を代入します。
その後、averageValueにtotalをセルの数である5で割った値を代入します。

最後に、Range(“E1”).Value = averageValueという行で、変数averageValueの値をセル番地E1に表示しています。

Sub 繰り返し動作()
 Dim 変数 As Long

   For 変数 = 開始値 To 終わり値 Step 1回で進む数
       ‘ここに処理プログラム
   Next 変数
End Sub

 

・回答その②

Sub Exercise5to2()
Dim averageValue

averageValue = WorksheetFunction.average(Range(“D1:D5”))
Range(“E1”).Value = averageValue

End Sub

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

Application.WorksheetFunction.average(平均を求めたい範囲)

取得した平均値を変数averageValueに代入し、最後にRange(“E1”).Valueにその値を表示します。

 


必要な知識

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

セルへのアクセス方法

VBAでは、RangeオブジェクトやCellsオブジェクトを使用してセルへアクセスします。Rangeオブジェクトは、セルの範囲を指定する際に使用されます。例えば、Range(“A1”)はセル番地A1を指定します。Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用されます。例えば、Cells(1, 1)はセル番地A1を指定します。

セルの値の取得と設定

セルの値を取得するには、Valueプロパティを使用します。例えば、Range(“A1”).ValueやCells(1, 1).Valueはセルの値を取得します。
セルの値を設定するにも、同様にValueプロパティを使用します。

例えば、Range(“A1”).Value = 10やCells(1, 1).Value = “Hello”といった形でセルに値を設定します。

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

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

変数の宣言と演算

VBAでは、変数を宣言して使用します。変数はDimステートメントを使用して宣言します。

例えば、Dim total As Doubleとすると、totalという名前の変数をDouble型で宣言します。
演算においては、四則演算や比較演算子を使用します。例えば、total = total + 1とすると、totalの値に1を加えて再代入します。

平均の計算

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

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

【マクロVBA】平均をAVERAGE・AVERAGEIF・AVERAGEIFSで求める!複数条件対応 ► 独学エクセル塾 (dokugakuexcel.com)

ループ構造

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

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

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

 

まとめ

練習4では、複数のセルの値を合計し、平均値を計算して別のセルに表示する方法を学びました。

これらの練習問題を通じて、VBAを使用してExcelの操作を自動化する方法を学びました。VBAを使うことで、繰り返し行う作業を自動化したり、複雑な計算や処理を簡単に行ったりすることができます。

練習問題の難易度を徐々に上げていくことで、VBAの基礎をしっかりと学びながら、より高度な操作やプログラミングのテクニックを習得することができます。

次の練習問題に進む前に、現在までの内容を復習し、理解を深めてください。

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

]]> 4236 【マクロVBA練習問題3】セル番地・変数に現在の日付を表示・格納する 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%8c3%e3%80%91%e3%82%bb%e3%83%ab%e7%95%aa%e5%9c%b0%e3%83%bb%e5%a4%89%e6%95%b0%e3%81%ab%e7%8f%be%e5%9c%a8%e3%81%ae%e6%97%a5/?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%258c3%25e3%2580%2591%25e3%2582%25bb%25e3%2583%25ab%25e7%2595%25aa%25e5%259c%25b0%25e3%2583%25bb%25e5%25a4%2589%25e6%2595%25b0%25e3%2581%25ab%25e7%258f%25be%25e5%259c%25a8%25e3%2581%25ae%25e6%2597%25a5 Sun, 11 Jun 2023 20:39:47 +0000 https://dokugakuexcel.com/?p=4203
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題3について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3   (参考)
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. 日付の取得
    2. セルへの値の設定
    3. 日付の書式設定 (※参考)
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

 

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

 

・練習問題3について

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

セル番地に現在の日付を表示となります。
それでは頑張っていきましょう！

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

問題内容

セル番地C1に現在の日付を表示する。

動作説明

VBAを使用して、現在の日付を取得し、それをセル番地C1に表示します。
具体的には、VBAの組み込み関数であるDateを使用して現在の日付を取得し、その値をセル番地C1に表示する必要があります。

 

ヒント


この問題では、現在の日付を取得し、それをセルに表示する必要があります。
以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

現在の日付を取得するには、Date関数を使用します。
Date関数は、システムの現在の日付を返します。

・ヒントその2

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、Valueプロパティを使用して値を設定します。

・ヒントその3   (参考)

日付の値をセルに表示する場合、VBAの日付形式を適用すると見やすくなります。
NumberFormatプロパティを使用してセルの書式設定を行うことができます。

 

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

 

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

 

解答コード

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

・回答その①

Sub Exercise3to1()
　Range(“C1”).Value Date
　Range(“C1”).NumberFormat = “yyyy/mm/dd”
End Sub

上記のコードは、現在の日付を取得し、それをセル番地C1に表示するVBAのマクロです。

解答コードでは、Range(“C1”).Value = Dateという行で、
Date関数を使用して現在の日付を取得し、セル番地C1にその値を表示しています。

現在の日付を格納したいセル・変数＝Date

また、Range(“C1”).NumberFormat = “yyyy/mm/dd“という行で、セルの書式設定を行っています。
ここでは、日付の形式を「年/月/日」の形に指定していますが、必要に応じて適切な書式を選択してください。

・回答その②

Sub Exercise3to2()
　Dim currentDate As Date

　currentDate = Date
　Cells(1, 3).Value = Format(currentDate, “yyyy/mm/dd”)
End Sub

上記のコードでは、Date関数を使用して現在の日付を取得し、変数currentDateに格納しています。
その後、Cells(1, 3).Valueを使用してセル番地C1にcurrentDateの値を表示しています。

Format関数を使って日付の書式を設定していますが、必要に応じて適切な書式を指定してください。

この回答例では、Cellsオブジェクトを使用してセルにアクセスしています。
Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用します。

 


必要な知識

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

日付の取得

現在の日付を取得するためには、VBAの組み込み関数であるDateを使用します。
この関数は、システムの現在の日付を返します。

【マクロVBA】現在の日付を表示する方法！Date関数で簡単に取得して格納・表示・日付計算をする ► 独学エクセル塾 (dokugakuexcel.com)

セルへの値の設定

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

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

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

日付の書式設定 (※参考)

セルに表示する日付の書式を設定することで、見た目を調整することができます。
NumberFormatプロパティを使用してセルの書式設定を行います。

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

【マクロVBA】表示形式を変更する方法！Format関数で文字・数値・日付の調整する ► 独学エクセル塾 (dokugakuexcel.com)

まとめ

この練習問題では、VBAを使用してセルに現在の日付を表示する方法を学びました。

解答コードでは、Date関数を使用して現在の日付を取得し、Range(“C1”)やCells(1, 3)を使用してセル番地C1にその値を表示しました。
さらに、日付の書式を設定するためにNumberFormatプロパティを使用しました。

VBAを使うことで、Excelでの日付の自動表示や書式設定を簡単に行うことができます。
これは、日報やスケジュール管理など、日付情報を扱う作業において非常に役立つスキルです。

練習問題を通じてVBAの基礎的な知識を学び、実際の問題に応用してみてください。
これにより、Excelの操作を自動化し、効率的にタスクを処理することができるようになります。

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

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

]]> 4203 【マクロVBA練習問題2】指定されたセルの範囲の合計値を求めて結果をセルに入力 https://dokugakuexcel.com/%e6%8c%87%e5%ae%9a%e3%81%95%e3%82%8c%e3%81%9f%e3%82%bb%e3%83%ab%e3%81%ae%e7%af%84%e5%9b%b2%e3%81%ae%e5%90%88%e8%a8%88%e5%80%a4%e3%82%92%e6%b1%82%e3%82%81%e3%81%a6%e7%b5%90%e6%9e%9c%e3%82%92%e3%82%bb/?utm_source=rss&utm_medium=rss&utm_campaign=%25e6%258c%2587%25e5%25ae%259a%25e3%2581%2595%25e3%2582%258c%25e3%2581%259f%25e3%2582%25bb%25e3%2583%25ab%25e3%2581%25ae%25e7%25af%2584%25e5%259b%25b2%25e3%2581%25ae%25e5%2590%2588%25e8%25a8%2588%25e5%2580%25a4%25e3%2582%2592%25e6%25b1%2582%25e3%2582%2581%25e3%2581%25a6%25e7%25b5%2590%25e6%259e%259c%25e3%2582%2592%25e3%2582%25bb Sun, 11 Jun 2023 20:05:54 +0000 https://dokugakuexcel.com/?p=4202
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題2について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. VBAの基礎
    2. セルの操作
    3. 数値の比較
    4. ループ構造
  6. まとめ

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロ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関数を使ってセル範囲内の合計値を取得できます。

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

 

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

解答コード

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

・回答その①

Sub Exercise2to1()

Dim sumValue

sumValue = WorksheetFunction.Sum(Range(“A1:A10”))
Range(“B1”).Value = sumValue

End Sub

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

Application.WorksheetFunction.Sum(合計を求めたい範囲)

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

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

・回答その②

Sub Exercise2to2()

Dim sumValue As Double
Dim RowNumber As Long

For RowNumber = 1 To 10 Step 1
sumValue = sumValue + Cells(RowNumber, 1)
Next RowNumber

Range(“B1”).Value = sumValue

End Sub

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

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

 

Sub 繰り返し動作()
 Dim 変数 As Long

   For 変数 = 開始値 To 終わり値 Step 1回で進む数
       ‘ここに処理プログラム
   Next 変数
End Sub

 

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

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

 

必要な知識


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

VBAの基礎

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

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

【マクロVBA知識】VBAで何ができるの?活用方法と仕組み・開発タブの表示方法について ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA】プロシージャ名（プログラム名）を設定・打ち込む！設定不可能な文字やエラーについて ► 独学エクセル塾 (dokugakuexcel.com)

セルの操作

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

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

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

数値の比較

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

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

【マクロVBA】合計・総和をSUM・SUMIF・SUMIFSで求める!複数条件にも対応 ► 独学エクセル塾 (dokugakuexcel.com)

ループ構造

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

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

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

 

 

まとめ


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

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

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

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

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

]]> 4202 【マクロVBA練習問題1】セル番地B3に「あいうえお」の文字を入力する 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%8c1%e3%80%91%e3%82%bb%e3%83%ab%e7%95%aa%e5%9c%b0b3%e3%81%ab%e3%80%8c%e3%81%82%e3%81%84%e3%81%86%e3%81%88%e3%81%8a%e3%80%8d/?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%258c1%25e3%2580%2591%25e3%2582%25bb%25e3%2583%25ab%25e7%2595%25aa%25e5%259c%25b0b3%25e3%2581%25ab%25e3%2580%258c%25e3%2581%2582%25e3%2581%2584%25e3%2581%2586%25e3%2581%2588%25e3%2581%258a%25e3%2580%258d Sat, 10 Jun 2023 12:59:36 +0000 https://dokugakuexcel.com/?p=4201
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題1について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. VBAの基礎
    2. セルの操作
    3. セル番地の指定
    4. VBAの実行
  6. まとめ

練習問題と内容について

・練習問題の狙い

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

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

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

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

 

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

 

・練習問題1について

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

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

 

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

問題内容

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

動作説明

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

 

ヒント

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

・ヒントその1

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

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

【マクロVBA知識】VBAで何ができるの?活用方法と仕組み・開発タブの表示方法について ► 独学エクセル塾 (dokugakuexcel.com)
【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)
【マクロVBA】プロシージャ名（プログラム名）を設定・打ち込む！設定不可能な文字やエラーについて ► 独学エクセル塾 (dokugakuexcel.com)

・ヒントその2

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

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

・ヒントその3

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

 

 

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

 

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

 

解答コード

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

・回答その①

Sub Exercise1to1()
Range(“B3”).Value = “あいうえお”
End Sub

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

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

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

 

・回答その②

Sub Exercise1to2()
Cells(3, 2).Value = “あいうえお”
End Sub

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

Cells(行数,列数) = “入力したい文字・数値・記号“


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

 

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

 

必要な知識


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

VBAの基礎

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

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

【マクロVBA知識】VBAで何ができるの?活用方法と仕組み・開発タブの表示方法について ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)

【マクロVBA】プロシージャ名（プログラム名）を設定・打ち込む！設定不可能な文字やエラーについて ► 独学エクセル塾 (dokugakuexcel.com)

セルの操作

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

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

【マクロVBA】文字・数値・記号を指定したセルに入力する方法！RangeとCellsの使い方について ► 独学エクセル塾 (dokugakuexcel.com)

セル番地の指定

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


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

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

VBAの実行

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


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

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

まとめ


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

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

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

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

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

]]> 4201