勤務時間と時給金額で日給を計算するVBAコードを作成。時給の計算その5

Option Explicit

Public EmpName As String, 年月日 As String
Public OriBName As String
Public TCos, TwCos, TMal, KMal
Public SD As Date, ED As Date
Dim SaName As String, SaNamea As String

Sub 設定値代入()

Dim MB As Long
Worksheets("初期設定項目").Select

'Format,Year,Month関数を利用します
    年月日 = Format(Date, "yymmdd")

'会計期間をセット
    SD = Worksheets("初期設定項目").Range("D5").Value
    ED = Worksheets("初期設定項目").Range("F5").Value

'対象者名を変数に代入します
    EmpName = Worksheets("初期設定項目").Range("C6").Value
    
    If EmpName = "" Then
        EmpName = 年月日
        Range("C6") = 年月日
    End If

'基本時給をセット
    TCos = Worksheets("初期設定項目").Range("C7").Value
'時間外割増率をセット
    TwCos = Worksheets("初期設定項目").Range("F7").Value / 100
'時間マルメをセット
    TMal = Worksheets("初期設定項目").Range("C8").Value
'金額マルメをセット
    KMal = Worksheets("初期設定項目").Range("C9").Value

End Sub

Sub 金額計算()

Dim Sh As Worksheet
Dim res As Boolean
Dim i As Long
Dim Va As Long, Vb As Long
Dim Vaa As Long, Vbb As Long
Dim B32V As String

Call Module1.設定値代入

'時間外割増率が空欄の時100%とします
If TwCos = "" Then TwCos = 100

'計算するシートが存在するかを調べる
res = False
For Each Sh In Worksheets
    If Sh.Name = EmpName & "時給計算表" Then
        res = True
        Worksheets(EmpName & "時給計算表").Select
        Exit For
    End If
Next

'ない場合はプロシージャーを終了する
    If res = False Then
        MsgBox "まだ何も設定されていません。"
        Exit Sub
    End If

'記入データ行数を調べます
B32V = Range("B32")
Range("B32") = ""
BRow = Cells(Rows.Count, 2).End(xlUp).Row
Range("B32") = B32V

For i = 3 To BRow

'初期値にリセットします
Vaa = 0
Vbb = 0
Va = 0
Vb = 0

'時間外時間が発生しているかどうかで区別します
    If Cells(i, 8) > 0 Then
        Vaa = Cells(i, 3) * 24 * TCos

'値を切り上げ（小数点を切り上げ）
        Va = WorksheetFunction.RoundUp(Vaa, 0)

        Vbb = Cells(i, 8) * 24 * TCos * TwCos

'値を切り上げ（小数点を切り上げ）
        Vb = WorksheetFunction.RoundUp(Vbb, 0)

    Else
        Vaa = Cells(i, 7) * 24 * TCos

'値を切り上げ（小数点を切り上げ）
        Va = WorksheetFunction.RoundUp(Vaa, 0)
    
    End If

'支給金額の表示します
Cells(i, 9) = Va + Vb

'参考金額を表示します
    Cells(i, 10) = Va
    Cells(i, 11) = Vb

'金額マルメ計算
If KMal = 1 Then

'1円以下を切り上げ
    Cells(i, 9) = WorksheetFunction.RoundUp(Cells(i, 9) / 10, 0) * 10
    
ElseIf KMal = 2 Then

'10円以下を切り上げ
    Cells(i, 9) = WorksheetFunction.RoundUp(Cells(i, 9) / 100, 0) * 100
    
ElseIf KMal = 3 Then

'100円以下を切り上げ
    Cells(i, 9) = WorksheetFunction.RoundUp(Cells(i, 9) / 1000, 0) * 1000
    
Else

'切り上げしない
    Cells(i, 9) = Va + Vb
    
End If

Next i

End Sub