[已解决]哪位大神帮忙看下我写的代码哪里错了

叶子晗612

Sub 进水温度()

Dim i

For i = 3 To 50

  If Sheet1.Cells(i, 1) = "2014/10/1" Then

    If Sheet1.Cells(i, 4) = "7:00:00" Then

      Sheet1.Cells(i, 6) = "13"

    End If

   End If

Next

End Sub

最佳答案

月排行榜 / 总排行榜

冥王

2015-4-18 17:10

1. if Sheet1.Cells(i, 1) = #2014/10/1# Then
   
2. if Sheet1.Cells(i, 4) = #7:00:00# Then

复制代码

日期 时间是属于数字型数据 要用两个#号括起来才行 引号引起来的是文本

跳转到最佳答案楼层

冥王

1. if Sheet1.Cells(i, 1) = #2014/10/1# Then
   
2. if Sheet1.Cells(i, 4) = #7:00:00# Then

复制代码

日期 时间是属于数字型数据 要用两个#号括起来才行 引号引起来的是文本

叶子晗612

冥王 发表于 2015-4-18 17:10
日期 时间是属于数字型数据 要用两个#号括起来才行 引号引起来的是文本

谢谢！