練習問題16（WorksheetFunctionの練習）解答

公開日：2013年5月以前　最終更新日：2021-03-31

練習問題16（WorksheetFunctionの練習）解答

マクロVBA練習問題16の回答ページです。

マクロVBA練習問題

・シート「練習16_マスタ」より、商品名と単価を取得し、
　それぞれのセル（C列とD列）に入れて下さい。
・シート「練習16_マスタ」に存在しない場合は、空欄のままにして下さい。
・各行の金額（単価×数量）を計算しF列に入れてください。、
・F12セルに合計金額を計算し入れて下さい。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

シート「練習16」
　Ａ　　　Ｂ　　　　Ｃ　　　　Ｄ　　Ｅ　　Ｆ

行	商品番号	商品名	単価	数量	金額
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)してください。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

この「VBA入門」シリーズは、マクロVBAを習得し、日々のExcel作業を効率化・自動化できるようになることを目指します。VBAが初めての方でも無理なくステップアップできるよう、基礎から丁寧に、そして段階的に解説を進めます。そのため、シリーズ後半では入門レベルに留まらず、実務レベルで通用する高度なテクニックや幅広い知…

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロ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ならではの機能です。
ぜひ、積極的に活用しましょう。

以下も参考にして下さい。

ExcelマクロVBA入門.第87回.WorksheetFunction（ワークシート関数を使う）

VBA関数以外に、Excelワークシート関数をマクロVBAで使うことが出来ます。ワークシート関数は、VBA関数よりはるかに多くの関数があるので、ぜひ活用したいところです。ワークシート関数を使う事で、VBAコードを非常に簡潔に記述することが出来る場合が多いものです。

同じテーマ「マクロVBA練習問題解答」の記事

練習問題13（文字列関数の練習）解答
 練習問題14（行の挿入・削除の練習）解答
 練習問題15（Withとオブジェクト変数の練習）解答
練習問題16（WorksheetFunctionの練習）解答
練習問題17（ブック・シートの操作の練習）解答
 練習問題18（Dir関数の練習）解答
 練習問題19（総合練習1）解答
 練習問題20（総合練習2）解答
 練習問題21（総合練習3）解答
 練習問題22（総合練習4）解答
 練習問題23（総合練習5）解答

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜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.

VBA練習問題解答
練習問題16（WorksheetFunctionの練習）解答