Sub test()
Const tax_rate As Double = 0.1 '---税率
Dim price_excluding_tax As Long '---税抜き価格
Dim price_including_tax As Long '---税込み価格
price_excluding_tax = 1980
price_including_tax = price_excluding_tax * (1 + tax_rate)
Debug.Print (price_including_tax)
End Sub
' A1~A10のセルの中で300以上の数字だったら文字を赤くする
Sub test()
Dim i As Long
For i = 1 To 10
If Cells(i, 1).Value >= 300 Then
Cells(i, 1).Font.Color = RGB(255, 0, 0)
End If
Next
End Sub
Sub MainProcedure()
Debug.Print ("これがメインプロシージャーです")
Call SubProcedure1
Call SubProcedure2
End Sub
Sub SubProcedure1()
Debug.Print ("これがメインプロシージャー1です")
End Sub
Sub SubProcedure2()
Debug.Print ("これがメインプロシージャー2です")
End Sub
可読性の重要性
VBAは自分だけでなく、他の人がコードを読む(または将来の自分が見返す)可能性もあります
誰が見ても分かりやすい、可読性の高いコードを書くことは非常に重要です
インデントについて
インデントとは、行頭の字下げのことで処理の塊(ブロック)を視覚的に分かりやすくするために行います
If文やFor文などフロー制御の中の処理は、インデントを下げるのが一般的です
インデントについて
処理の塊で行頭にタブキーかスペース(一般的には半角スペース×4)を付けます
' 悪い例
If Range("A1").Value > 10 Then
MsgBox "10より大きいです"
End If
' 良い例
If Range("A1").Value > 10 Then
MsgBox "10より大きいです"
End If
コメント