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

最終更新日：2015-10-22

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

練習問題16の回答ページです、

問題

・シート「練習16_マスタ」より、商品名と単価を取得し、それぞれのセルに入れて下さい。
・シート「練習16_マスタ」に存在しない場合は、空欄のままにして下さい。

・各行の金額と、合計を計算し入れて下さい。

シート「練習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入門

ここで、じっくり勉強して下さい。

・
・・
・・・
・・・・
・・・・・

では、回答です。

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

ここでの書き方は色々と考えられます。
On Err Resume Nextでのエラー処理も使いたいところですが、
あえて、ワークシート関数のSumIfでの存在確認をするように書いてみました。を

ワークシート関数は非常に便利で、しかも、高速に動作します。
他の開発言語にはない、ExcelマクロVBAならではの機能です。
ぜひ、積極的に活用しましょう。

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

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