请教老师，逻辑循环问题

7016427

Sub 日报检查()
Dim i As Range
For Each i In Sheet8.Range("c5:c19")
If i = "" Then
MsgBox Format(Sheet8.Range("a" & i), "m月d日") & "，日报未存储，请先处理：" & Format(Sheet8.Range("a" & i), "m月d日") & "日报存储后，再进行日报清理！", 64, "提示" ' 执行这句错误，请教老师怎么改？
End If
Next
End Sub补充，执行时提示：方法' Range '作用对—worksheet时失败

wj2368

查错要有附件。。。。。。。。。。

wj2368

I是对象，不能用在range("a"&i)上，如果是数值，你应该用i.value

7016427

wj2368 发表于 2018-8-24 09:29
查错要有附件。。。。。。。。。。

麻烦老师帮我看看，附件已上传！

7016427

wj2368 发表于 2018-8-24 09:29
查错要有附件。。。。。。。。。。

附件已上传

wj2368

1. Sub 日报检查()
   
2. Dim i As Range
   
3. For Each i In Sheet8.Range("c5:c19")
   
4. If i.Value = "" Then
   
5. MsgBox Format(Sheet8.Range("a" & i.Row), "m月d日") & "，日报未存储，请先处理：" & Format(Sheet8.Range("a" & i.Row), "m月d日") & "日报存储后，再进行日报清理！", 64, "提示"
   
6. End If
   
7. Next
   
8. End Sub
   

复制代码

。。。。。。。。。。。。。。

abc123281

也不知道你想要干什么
代码仅供测试参考
Sub 日报检查()
Dim i As Range
For Each i In Sheet8.Range("c5:c19")
  If i = "" Then
     MsgBox Format(i, "m月d日") & "日报未存储，请先处理：" & i.Row & "行日报存储后，再进行日报清理！", 64, "提示"
  End If
Next
End Sub

7016427

谢谢！！！