如何解决VBA循环计数器未添加非整数
我有一段代码正在运行一个循环,以根据匹配的日期条件合计显示的PPC小时数。我要添加的小时数是0.2增量。当循环运行时,它看起来像是将0.2舍入为0,总和为0。当我将小时数更改为1时,它将正确地加起来。有没有办法让循环计数器添加非整数,例如0.2?
Dim sht As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range
Dim MyRange As Range
Dim i As Integer 'for counters
Dim Assy,Solder,QC,Weld,Test,PPC As Long 'variables to hold std hours total
Assy = 0
Solder = 0
QC = 0
Weld = 0
Test = 0
PPC = 0
'Cycle through all tabs to find myrange and count work hours by type
Set sht = ActiveSheet
Set StartCell = Range("I12")
For i = 12 To 123
If Range("I" & i).Value = 44154 Then
If Range("I" & 1) = "Assy" Then
Assy = Assy + Range("I7").Value
ElseIf Range("I" & 1) = "Solder" Then
Solder = Solder + Range("I7").Value
ElseIf Range("I" & 1) = "Weld" Then
Weld = Weld + Range("I7").Value
ElseIf Range("I" & 1) = "Test" Then
Test = Test + Range("I7").Value
ElseIf Range("I" & 1) = "PPC" Then
PPC = PPC + Range("I7").Value
ElseIf Range("I" & 1) = "QC" Then
QC = QC + Range("I7").Value
End If
End If
Next i
Sheets("Sheet1").Select
Range("B2") = PPC
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。