会社で消費税算出する為VBA作ったので解説紹介🌸

⭐️VBAコード⭐️

Sub CalcTenPercent()

Dim rng As Range

Dim cell As Range

Dim sheet As Worksheet

' 作業するシートの設定

Set sheet = ThisWorkbook.Sheets("シート名")

' C列の範囲を設定

Set rng = sheet.Range("C1:C" & sheet.Cells(sheet.Rows.Count, "C").End(xlUp).Row)

' 各セルに対して操作を実行

For Each cell In rng

' 値が数値である場合のみ計算を実行

If IsNumeric(cell.Value) And Not IsEmpty(cell.Value) Then

' D列にC列の10%の値を入力

cell.Offset(0, 1).Value = cell.Value * 0.1

End If

Next cell

End Sub

⭐️VBAコードの説明⭐️

Sub CalcTenPercent() - "CalcTenPercent"という名前の新しいVBAサブプロシージャを定義します。このコードは、後からこのサブプロシージャを呼び出すときに使用されます。
Dim rng As Range - rngという名前のRangeオブジェクトを定義します。これは、あとでExcelの特定のセル範囲を参照するために使用されます。
Dim cell As Range - cellという名前のRangeオブジェクトを定義します。これは、範囲内の各セルを参照するために使用されます。
Dim sheet As Worksheet - sheetという名前のWorksheetオブジェクトを定義します。これは、特定のワークシートを参照するために使用されます。
Set sheet = ThisWorkbook.Sheets("統合マスタ") - sheetオブジェクトを、ワークブック内の名前が"統合マスタ"というワークシートに設定します。
Set rng = sheet.Range("C1:C" & sheet.Cells(sheet.Rows.Count, "C").End(xlUp).Row) - rngオブジェクトを、"統合マスタ"シートのC列にある全てのデータが含まれるセル範囲に設定します。
For Each cell In rng - rngオブジェクトで指定した範囲の各セルに対して繰り返し処理を開始します。
If IsNumeric(cell.Value) And Not IsEmpty(cell.Value) Then - もしセルの値が数値で、かつ空ではない場合に、次の処理を実行します。
cell.Offset(0, 1).Value = cell.Value * 0.1 - オフセット関数を使って同じ行の右隣のセル（D列）に、C列の値の10%を入力します。
End If - If文の終了を表します。
Next cell - For Eachループの終了を表します。次のセルに移動します。
End Sub - サブプロシージャの終了を表します。