見出し画像

【マクロの成長記録: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

こちらで無事にいけました。

今日は以上です。
継続重視の為、文章は短めでいきます。

これからマクロを始めようという方はぜひ、一緒に頑張りましょう!
最後まで読んで頂き誠にありがとうございましたー!

よろしければサポートセンターお願いいたします! 頂いたサポートはクリエイターとしての活動費として使わせて頂きます