VBA代码出问题！不知道错在哪

zjdh · 发表于 2014-1-4 10:27

看动画

homebaby2013 · 发表于 2014-1-4 17:09

zjdh 发表于 2014-1-3 21:41
正常啊

这结果也不对啊，源数据有一部分丢失了...

zjdh · 发表于 2014-1-4 18:33

不可能丢失！而且我也验证了，一个都没少！！

homebaby2013 · 发表于 2014-1-4 19:19

zjdh 发表于 2014-1-4 18:33
不可能丢失！而且我也验证了，一个都没少！！

这样吧，你就看一下源数据和结果两个工作表中的34-39行，你对比一下，数据明显丢失了...而且好像代码得运行两次才能得到你那样的结果

zjdh · 发表于 2014-1-4 21:53

噢，的确是丢失了，那是你输入数据的格式出了问题，所有的时间直接引用都>TimeValue("13:30:00")，最后一个数据覆盖了前面所有数据，再次填入后实际数据已经变了，第二次运行就正确了，但已丢失了一些数据，你自己调试一下就明白啦，所以要修改宏如下：
Sub test()
Dim i As Integer, arr, my_val
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      arr = Range("F" & i & ":I" & i).Value
      Range("F" & i).Resize(1, 4).Clear
      For Each my_val In arr
         If my_val <> "" Then
            If TimeValue(my_val) < TimeValue("11:30:00") Then
                  Cells(i, "F") = Format(my_val, "hh:mm")
            ElseIf TimeValue(my_val) > TimeValue("13:30:00") Then
                  Cells(i, "I") = Format(my_val, "hh:mm")
            Else
                  Cells(i, "H") = Format(my_val, "hh:mm")
            End If
         End If
      Next
Next
End Sub

zjdh · 发表于 2014-1-4 21:55

出勤明细表.rar (29.71 KB, 下载次数: 3)

zjdh · 发表于 2014-1-5 08:31

你再看看你的原件，所有的时间都是文本格式，而非时间格式（尽管单元格设置为时间格式），所以出错！

homebaby2013 · 发表于 2014-1-5 10:03

zjdh 发表于 2014-1-4 21:53
噢，的确是丢失了，那是你输入数据的格式出了问题，所有的时间直接引用都>TimeValue("13:30:00")，最后一个 ...

用timevalue会出现类型不匹配，我用了CDate就可以了，不过真的感谢你，帮了大忙...

Sub test()
Dim i As Integer, arr, my_val
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("F" & i & ":I" & i).Value
Range("F" & i).Resize(1, 4).Clear
For Each my_val In arr
If my_val <> "" Then
If CDate(my_val) < TimeValue("11:30:00") Then
Cells(i, "F") = Format(my_val, "hh:mm")
ElseIf CDate(my_val) > TimeValue("13:30:00") Then
Cells(i, "I") = Format(my_val, "hh:mm")
Else
Cells(i, "H") = Format(my_val, "hh:mm")
End If
End If
Next
Next
End Sub

复制代码

		自动登录	找回密码
密码			注册