在列vba excel中添加所有小时以及每个小时和if

Question

我想在列中添加所有小时数（strDateForm = strDate）和strFunction =＆＃34; 1＆＃34;但我的函数只接受列中的最后一个数据，而不是添加所有相应的数据。 有人可以帮帮我吗。

Public Sub CalculHeuresTotalChauffeur()

Dim tblPagination As ListObject
Set tblPagination = Worksheets("Pagination").ListObjects.Item    ("tblPagination")

Dim heureTotale As Single
Dim sommeTotale As Single

If StrComp(tbxTempsChauffeur, "") = 0 Then tbxTempsChauffeur = "0"
If StrComp(tbxTempsChef, "") = 0 Then tbxTempsChef = "0"
If StrComp(tbxTempsDemenageur, "") = 0 Then tbxTempsDemenageur = "0"
If StrComp(tbxTempsCoordonnateur, "") = 0 Then tbxTempsCoordonnateur = "0"

For Each srcRow In tblPagination.ListRows

strDate = srcRow.Range.Cells(1, 3)
strDateFormulaire = dtpDate.Value
strNoFonction = srcRow.Range.Cells(1, 21)


If strDateFormulaire = strDate And strNoFonction = "1" Then

heureTotale = CSng(srcRow.Range.Cells(1, 13).Value)

End If

Next
sommeTotale = heureTotale + CSng(tbxTempsChauffeur.Value)

tbxHeuresChauffeur.Value = sommeTotale

End Sub

Answer 1

而不是

heureTotale = CSng(srcRow.Range.Cells(1, 13).Value)

你应该做

heureTotale = heureTotale + CSng(srcRow.Range.Cells(1, 13).Value)