[已解决]求助A1至A14共有14个单元格，每个单元格为空时必须提示，共有多少次提示呢？

qinhuan66

求助A1至A14共有14个单元格，每个单元格为空时必须提示，共有多少次提示呢？如何计算。谢谢
例如：现拿3个单元格说来说有
1种方法：ABC均为空
2种方法：AB为空
3种方法：AC为空
4种方法：BC为空
5种方法：A为空
6种方法：B为空
7种方法：C为空

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-30 09:52

qinhuan66 发表于 2013-7-30 06:42
很给力!做得很好。谢谢。如果自定义单元格能行吗？谢谢
比如像下面那样的，不过有14个自定义单 ...

1. Sub CheckValue()
   
2. Dim d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4.     If Len([e6]) = 0 Then d("缴款人(E6)") = "缴款人(E6)"
   
5.     If Len([j9]) = 0 Then d("成年人正常缴费(J9)") = "成年人正常缴费(J9)"
   
6.     If Len([j10]) = 0 Then d("未成年人正常缴费(J10)") = "未成年人正常缴费(J10)"
   
7.     If Len(Join(d.keys, ",")) Then MsgBox Join(d.keys, ",") & "未填写": Exit Sub
   
8. End Sub

复制代码

跳转到最佳答案楼层

qinhuan66

经算为2^14-1=16383次，不知是否能否用VBA生成出各个组合呢。谢谢   以字母ABCDEFGHIJKL....代替。谢谢

suye1010

1. Option Explicit
   
2. Sub test()
   
3. Dim i, EV
   
4. For i = 1 To 14
   
5. If Cells(i, 1) = "" Then EV = IIf(EV = "", Cells(i, 1).Address(0, 0), EV & "," & Cells(i, 1).Address(0, 0))
   
6. Next i
   
7. MsgBox "单元格" & EV & "没有数值"
   
8. End Sub
   

复制代码

maicao1986

楼上正解！~

qinhuan66

suye1010 发表于 2013-7-29 23:27

很给力!做得很好。谢谢。如果自定义单元格能行吗？谢谢
比如像下面那样的，不过有14个自定义单元格。谢谢

1. If Len([e6]) = 0 And Len([j9]) = 0 And Len([j10]) = 0 Then
   
2.         MsgBox "缴款人(E6)、成年人正常缴费(J9)、未成年人正常缴费(J10) 均未填写。"
   
3.         Exit Sub
   
4.     End If
   
5.    
   
6.     If Len([e6]) = 0 And Len([j9]) = 0 Then
   
7.         MsgBox "缴款人(E6)、成年人正常缴费(J9) 未填写。"
   
8.         Exit Sub
   
9.     End If
   
10.    
    
11.     If Len([e6]) = 0 And Len([j10]) = 0 Then
    
12.         MsgBox "缴款人(E6)、未成年人正常缴费(J10) 未填写。"
    
13.         Exit Sub
    
14.     End If
    
15.    
    
16.     If Len([j9]) = 0 And Len([j10]) = 0 Then
    
17.         MsgBox "成年人正常缴费(J9)、未成年人正常缴费(J10) 未填写。"
    
18.         Exit Sub
    
19.     End If
    
20.    
    
21.     If Len([e6]) = 0 Then
    
22.         MsgBox "缴款人(E6) 未填写。"
    
23.         Exit Sub
    
24.     End If
    
25.    
    
26.     If Len([j9]) = 0 Then
    
27.         MsgBox "成年人正常缴费(J9) 未填写。"
    
28.         Exit Sub
    
29.     End If
    
30.    
    
31.     If Len([j10]) = 0 Then
    
32.         MsgBox "未成年人正常缴费(J10) 未填写。"
    
33.         Exit Sub
    
34.     End If

复制代码

suye1010

qinhuan66 发表于 2013-7-30 06:42
很给力!做得很好。谢谢。如果自定义单元格能行吗？谢谢
比如像下面那样的，不过有14个自定义单 ...

1. Sub CheckValue()
   
2. Dim d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4.     If Len([e6]) = 0 Then d("缴款人(E6)") = "缴款人(E6)"
   
5.     If Len([j9]) = 0 Then d("成年人正常缴费(J9)") = "成年人正常缴费(J9)"
   
6.     If Len([j10]) = 0 Then d("未成年人正常缴费(J10)") = "未成年人正常缴费(J10)"
   
7.     If Len(Join(d.keys, ",")) Then MsgBox Join(d.keys, ",") & "未填写": Exit Sub
   
8. End Sub

复制代码

孔梦茵

好好学习

qinhuan66

suye1010 发表于 2013-7-30 09:52

老师我有个幼稚的想法，这样是实现了哪个单元格为空时弹出提示，能否在弹出提示的前提下一起更改那些为空的单元格的底色为黄色呢？谢谢。

suye1010

qinhuan66 发表于 2013-7-30 14:12
老师我有个幼稚的想法，这样是实现了哪个单元格为空时弹出提示，能否在弹出提示的前提下一起更改那些为空 ...

想法无所谓幼稚不幼稚的.
这个是可以实现的. 但是我觉得这个功能其实完全没必要用VBA来做的,你可以使用条件格式来提醒就好了. 如果要填的区域为空时都已黄色醒目提示,当填写了内容之后就不填充底色即可.

1. 
   
2. Sub CheckValue()
   
3. Dim d
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5.     If Len([e6]) = 0 Then d([e6].Address(0, 0)) = "缴款人(E6)"
   
6.     If Len([j9]) = 0 Then d([j9].Address(0, 0)) = "成年人正常缴费(J9)"
   
7.     If Len([j10]) = 0 Then d([j10].Address(0, 0)) = "未成年人正常缴费(J10)"
   
8.     If Len(Join(d.items, ",")) Then
   
9.         MsgBox Join(d.items, ",") & "未填写"
   
10.         Range(Join(d.keys, ",")).Interior.ColorIndex = 6
    
11.         Exit Sub
    
12.     End If
    
13. End Sub
    

复制代码

qinhuan66

suye1010 发表于 2013-7-31 11:12
想法无所谓幼稚不幼稚的.
这个是可以实现的. 但是我觉得这个功能其实完全没必要用VBA来做的,你可以使用条 ...

求助为什么点击保存会出现1004应用程序定义或对象定义错误。谢谢
报名登记表.rar (143.74 KB, 下载次数: 1)

2013-7-31 16:14 上传

点击文件名下载附件