關聯全勤獎與基本工資扣款的考勤表，實現資料的計算的VBA程式碼

<<關聯全勤獎與基本工資扣款的員工考勤表>>

實現考勤次數計算與工資獎金計算的VBA程式碼如下：

Option Explicit

Sub 考勤計算（）

Dim i As Integer

Dim j As Integer

Dim r As Integer

Dim y As Integer ‘計算滿勤-考勤次數是大於0，還是小於0

Dim tjNo As Integer ’統計全勤的次數

Dim KouK As Integer ‘統計扣款數額

With Sheets（“考勤表”）

r = 。Range（“E32000”）。End（3）。Row

For i = 4 To r

tjNo = 0

For j = 13 To 43

If 。Cells（i， j） = “√” Then tjNo = tjNo + 1

Next

’計算考勤次數

。Cells（i， “L”） = tjNo

‘計算全勤獎數額

If tjNo < 。Cells（i， “K”） Then

。Cells（i， “i”） = 0

Else

。Cells（i， “i”） = 。Cells（i， “j”）

End If

y = 。Cells（i， “k”） - 。Cells（i， “L”）

If y > 0 Then KouK = VBA。Int（y / 。Cells（i， “k”） * 。Cells（i， “f”））

。Cells（i， “H”） = KouK

。Cells（i， “G”） = 。Cells（i， “F”） - KouK

End With

End Sub

Private Sub CommandButton1_Click（）

Range（“g4：i32000”）。ClearContents

Range（“l4：l32000”）。ClearContents

Call 考勤計算

VBA設計小區物業出租管理資料系統，票據打單資料彙總綜合課程

魔獸小痞醬

購買專欄