VBA如何更改行颜色并将文本添加到单元格？

子接受（） 表格（“交付”）。选择

作为字符串输入的Dim inputID

inputID=InputBox（“输入订单ID”）

Dim orderID作为范围

设置orderID=Range（“B:B”）.Find（what:=inputID，LookIn:=xlValues，lookat:=xlPart）

如果不是orderID，那么它什么都不是

orderID.Offset(0, 6).Interior.Color = vbGreen

我想把这排换成绿色

我想在向右移动6的单元格中添加文本“Delivering”

如果结束

---

End Sub

您是否尝试过单步执行代码？在VBA编辑器中，反复按F8键，它将一次执行一行-然后您可以看到哪一行工作不正常。您的代码对我来说运行良好。尝试将

xlother

更改为

xlPart

。如果这样做有效，那就意味着该列中有一些不可见的字符（例如前导/尾随空格）。@supersymetry我已经编辑了这个问题。新问题occurs@SpencerBarnes我已经编辑了这个问题。出现新问题请不要更改问题。您可以更新问题以进行澄清。但你不能把它换成另一个。如果你有不同的问题，那么在另一篇文章中提问。此外，你说“新问题出现了”。人们应该猜出问题出在哪里吗？请阅读并适当更新您的帖子。

orderID.Offset(0, 6).Vaule = "Delivering"