![見出し画像](https://assets.st-note.com/production/uploads/images/63136521/rectangle_large_type_2_7beb60d03048e35d6d2feb18b9ae7570.png?width=800)
【マクロの成長記録:7日目】メッセージボックスの練習
どーもKiyotomoです!
ついに1週間つづきました成長記録。
このまま続けられるように今日も頑張ります。
▼詳細の記事はこちら
7日目の問題
取り組む問題はこちら
https://excel-ubara.com/excelvba9/EXCELVBA607.html
メッセージボックスの練習
いきなりポップアップが出てくるので、
これが出来るとマクロが出来る人っぽい機能です。
関数ではできない上、Excelが得意でない人からすると、
Excelでこんな事が出来るんだと驚いてもらえます
記載したコード
Sub 練習7()
Dim i As Long
Dim goukei As Long
goukei = 0
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
goukei = goukei + Cells(i, 4)
Next i
MsgBox "合計:" & goukei & "平均" & goukei \ (i - 2)
End Sub
こちらで無事にいけました。
今日は以上です。
継続重視の為、文章は短めでいきます。
これからマクロを始めようという方はぜひ、一緒に頑張りましょう!
最後まで読んで頂き誠にありがとうございましたー!
よろしければサポートセンターお願いいたします! 頂いたサポートはクリエイターとしての活動費として使わせて頂きます