【マクロの成長記録：4日目】Ifの練習

どーもKiyotomoです。

4日目になりました成長記録。
本日も安定の22時帰宅。もうヘトヘトですね。

10月の人事異動の都合もあり最近特に遅く終わってます。
課長として、課をより効率化し、早く軌道に乗せて、
全員がもう少し早く帰れるように頑張ります。。

今日もめげずに、毎日マクロに取り組んでいきます。
（詳細はこちらの記事になります）

4日目の問題

取り組みはこちらの問題になります。

▼今日の参考問題
https://excel-ubara.com/excelvba9/EXCELVBA604.html

Ifの練習

きましたIｆ！
マクロを覚える前から、関数でよく使っています。
実務でExcelを使うでかなりの頻度で使うのではないでしょうか。

こちらは関数で慣れている人なら簡単だと思います。
なぜなら、使い方がほとんど同じだからです。

今回も無事に見ずにコードかけました！

記載したコード

Sub 練習4()
 Dim i As Long
　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
　Cells(i, 4) = Cells(i, 2) \ Cells(i, 3)
　Cells(i, 5) = Cells(i, 2) Mod Cells(i, 3)
　　If Cells(i, 4) = 0 Then
　Cells(i, 4) = "×"
　End If
　　Next i
End Sub

相変わらず、最終行の取得は使いますね。
このコード覚えるだけでも、本当に便利です。

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

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