用于search所有工作表并根据variables计算字段的函数

我正在做一个项目来logging和查看加售。 这一切都由MSforms控制。 每个月都有自己的工作表，所有用户加售也张贴。 我已经build立了计算来计算每个用户的月销售加价，但是我现在需要做的是计算每个用户的年迄今的数字。 用户名将通过我build立的login系统发布到variables中。 如果它帮助logging加售的单据以“ups”开头。 先谢谢您的帮助。

Public Sub btn_test_Click() Dim var_nextline4 As Integer Dim var_Allsheets As Variant var_YupsN = 0 var_YpremR = 0 var_Yhups = 0 var_ytdRev = 0 Dim WS As Worksheet Dim z As Variant z = "a" For Each WS In ThisWorkbook.Worksheets ' do something with worksheet WS If Worksheets(WS).Cells(1, 1) = "Associate Name" Then var_nextline4 = 2 'z = "a" Do While z <> "" z = Worksheets(WS).Cells(var_nextline4, 1) If z <> var_associate Then var_nextline4 = var_nextline4 + 1 Else Me.lsb_upsell.AddItem Cells(var_nextline4, 5).Value Select Case Worksheets(WS).Cells(var_nextline4, 10) Case "CYS" var_YpremR = Yvar_premR + Worksheets(WS).Cells(var_nextline4, 6).Value Case "LDS" var_YpremR = var_YpremR + Worksheets(WS).Cells(var_nextline4, 6).Value Case "LVK" var_YpremR = var_YpremR + Worksheets(WS).Cells(var_nextline4, 6).Value Case "LVD" var_YpremR = var_YpremR + Worksheets(WS).Cells(var_nextline4, 6).Value Case "LVB" var_YpremR = Yvar_YpremR + Worksheets(WS).Cells(var_nextline4, 6).Value Case Else End Select If var_Yhups < Worksheets(WS).Cells(var_nextline4, 13).Value Then var_Yhups = Worksheets(WS).Cells(var_nextline4, 13).Value End If var_ytdRev = var_ytdRev + Worksheets(WS).Cells(var_nextline4, 13).Value var_Yforms = var_Yforms + 1 var_YupsN = var_YupsN + Worksheets(WS).Cells(var_nextline4, 6).Value var_nextline4 = var_nextline4 + 1 End If Loop End If Next WS lbl_ytdUpsForms = var_Yforms lbl_ytdUpsn = var_YupsN lbl_ytdPrem = var_YpremR lbl_ytdHups = "£" & var_Yhups lbl_ytdRev = "£" & var_ytdRev End Sub