【マクロの成長記録：16日目】WorksheetFunctionの練習

どーもKiyotomoです。

今日も相変わらずの時間ですが、1日1問頑張ります

本日もマクロ始めます！

16日目

今日の問題はこちら

練習問題16（WorksheetFunctionの練習）｜VBA練習問題

WorksheetFunctionの練習

関数を使うマクロですね！
マクロ以前に関数を使っていた人からすると
かなり覚えやすく利便性の高いマクロです！

記載したコード

Sub 練習16()
　Dim i As Long
　Dim m As Long
　m = 2
　Do Until Worksheets("練習16").Cells(m, 2) = ""
　For i = 2 To 10
　If Worksheets("練習16").Cells(m, 2) = Worksheets("練習16_マスタ").Cells(i, 1) Then
　Worksheets("練習16").Cells(m, 3) = Worksheets("練習16_マスタ").Cells(i, 2)
　Worksheets("練習16").Cells(m, 4) = Worksheets("練習16_マスタ").Cells(i, 3)
　Worksheets("練習16").Cells(m, 6) = Worksheets("練習16").Cells(m, 4) * 　Worksheets("練習16").Cells(m, 5)
Else
　Worksheets("練習16").Cells(2, 3) = ""
End If
　Next i
m = m + 1
　Loop
End Sub

こちらで無事に動きました！

が、、、
note書きながら気づきました

あ、WorksheetFunction使ってないｗ

書くのに夢中でタイトルの物を使うという事を忘れてました。

答えを見ると
WorksheetFunction.CountIfや、
WorksheetFunction.Matchを使えばよかったようです。

関数でCountifやMatch使った事あるなら、
割とイメージがつきやすそうですね。

今日は以上です。明日も頑張ります
最後まで読んで頂きありがとうございましたー！