|
qinhuan66 发表于 2013-7-30 14:12
老师我有个幼稚的想法,这样是实现了哪个单元格为空时弹出提示,能否在弹出提示的前提下一起更改那些为空 ...
想法无所谓幼稚不幼稚的.
这个是可以实现的. 但是我觉得这个功能其实完全没必要用VBA来做的,你可以使用条件格式来提醒就好了. 如果要填的区域为空时都已黄色醒目提示,当填写了内容之后就不填充底色即可.
- Sub CheckValue()
- Dim d
- Set d = CreateObject("Scripting.Dictionary")
- If Len([e6]) = 0 Then d([e6].Address(0, 0)) = "缴款人(E6)"
- If Len([j9]) = 0 Then d([j9].Address(0, 0)) = "成年人正常缴费(J9)"
- If Len([j10]) = 0 Then d([j10].Address(0, 0)) = "未成年人正常缴费(J10)"
- If Len(Join(d.items, ",")) Then
- MsgBox Join(d.items, ",") & "未填写"
- Range(Join(d.keys, ",")).Interior.ColorIndex = 6
- Exit Sub
- End If
- End Sub
复制代码 |
评分
-
查看全部评分
|