練習問題16（WorksheetFunctionの練習）解答
マクロVBA練習問題16の回答ページです。
マクロVBA練習問題
それぞれのセル（C列とD列）に入れて下さい。
・シート「練習16_マスタ」に存在しない場合は、空欄のままにして下さい。
・各行の金額（単価×数量）を計算しF列に入れてください。、
・F12セルに合計金額を計算し入れて下さい。
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
| 行 | 商品番号 | 商品名 | 単価 | 数量 | 金額 |
| 1 | A06 | 3 | |||
| 2 | A07 | 2 | |||
| 3 | A02 | 4 | |||
| 4 | A08 | 5 | |||
| 5 | A01 | 6 | |||
| 6 | A03 | 1 | |||
| 7 | A04 | 4 | |||
| 8 | A09 | 3 | |||
| 9 | A10 | 7 | |||
| 10 | A05 | 2 | |||
| 合計 |
シート「練習16_マスタ」
Ａ Ｂ Ｃ
| 商品番号 | 商品名 | 単価 |
| A01 | 商品△１ | 1100 |
| A02 | 商品△２ | 1200 |
| A03 | 商品△３ | 1300 |
| A05 | 商品△５ | 1500 |
| A06 | 商品△６ | 1600 |
| A08 | 商品△８ | 1800 |
| A09 | 商品△９ | 1900 |
| A10 | 商品△１０ | 2000 |
※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。
シンキングタイム
シンキングタイム終了
書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。
マクロVBA練習問題解答
※.Valueは適宜省略しています。
Sub 練習問題16()
Dim i As Long
Dim ix As Long
Dim lngTotal As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("練習16")
Set ws2 = Worksheets("練習16_マスタ")
lngTotal = 0
With ws1
For i = 2 To 11
ix = WorksheetFunction.CountIf(ws2.Columns(1), .Cells(i, 2))
If ix > 0 Then
ix = WorksheetFunction.Match(.Cells(i, 2), ws2.Columns(1), False)
.Cells(i, 3) = ws2.Cells(ix, 2)
.Cells(i, 4) = ws2.Cells(ix, 3)
.Cells(i, 6) = .Cells(i, 4) * .Cells(i, 5)
lngTotal = lngTotal + .Cells(i, 6)
End If
Next
.Cells(12, 6) = lngTotal
End With
End Sub
ここでの書き方は色々と考えられます。
上記では、あえてワークシート関数のCountIfでの存在確認をするように書いてみました。
On Err Resume Nextでのエラー処理も使えるようになっておきましょう。
Sub 練習問題16_2()
Dim i As Long
Dim ix As Long
Dim lngTotal As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("練習16")
Set ws2 = Worksheets("練習16_マスタ")
lngTotal = 0
On Error Resume Next
With ws1
For i = 2 To 11
Err.Clear
ix = WorksheetFunction.CountIf(ws2.Columns(1), .Cells(i, 2))
If Err.Number = 0 Then
ix = WorksheetFunction.Match(.Cells(i, 2), ws2.Columns(1), False)
.Cells(i, 3) = ws2.Cells(ix, 2)
.Cells(i, 4) = ws2.Cells(ix, 3)
.Cells(i, 6) = .Cells(i, 4) * .Cells(i, 5)
lngTotal = lngTotal + .Cells(i, 6)
End If
Next
.Cells(12, 6) = lngTotal
End With
End Sub
他の開発言語にはない、ExcelマクロVBAならではの機能です。
ぜひ、積極的に活用しましょう。
同じテーマ「マクロVBA練習問題解答」の記事
練習問題13（文字列関数の練習）解答
練習問題14（行の挿入・削除の練習）解答
練習問題15（Withとオブジェクト変数の練習）解答
練習問題16（WorksheetFunctionの練習）解答
練習問題17（ブック・シートの操作の練習）解答
練習問題18（Dir関数の練習）解答
練習問題19（総合練習1）解答
練習問題20（総合練習2）解答
練習問題21（総合練習3）解答
練習問題22（総合練習4）解答
練習問題23（総合練習5）解答
新着記事NEW ・・・新着記事一覧を見る
Excelの新機能「リストとセル内配列」：1つのセルに複数の値｜エクセル入門(2026-09-28)
Excel関数クロスワード(2026-09-26)
Excelショートカットキークイズ(2026-09-23)
Excel関数名クイズ(2026-09-21)
気ままに一手｜リレー将棋(2026-09-20)
ITエンジニアがトラブルを避けるための法律・契約入門｜エクセル雑感(2026-09-18)
ITエンジニアなら知らないと恥ずかしい数学20選｜エクセル雑感(2026-09-17)
ITエンジニアのための税金と社会保険のお話｜エクセル雑感(2026-09-15)
ITエンジニアのための経理・会計・簿記入門｜エクセル雑感(2026-09-12)
「Python in Excel」入門：コードを読むための基礎知識｜エクセル関数応用(2026-09-10)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.Excelショートカットキー一覧｜Excelリファレンス
5.RangeとCellsの使い方｜VBA入門
6.FILTER関数（範囲をフィルター処理）｜エクセル入門
7.マクロとは？VBAとは？VBAでできること｜VBA入門
8.繰り返し処理（For Next)｜VBA入門
9.メッセージボックス(MsgBox関数)｜VBA入門
10.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
- ホーム
- マクロVBA入門編
- マクロVBA練習問題解答
- 練習問題16（WorksheetFunctionの練習）解答
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.