Excel - 如果未选中所有复选框(ActiveX),则发送msgbox

时间:2017-10-10 22:07:05

标签: excel excel-vba checkbox activex vba

我正在尝试让宏发送一个msgbox,以防检查活动表(ActiveX)的任何复选框。

我不知道为什么,但是当我运行宏时,它会跳过“x = x + 1”行,即使我选中了复选框...

有人可以帮助我吗?

Script:  c:\pathtofile\test.vbs
Line:    7
Char:    3
Error:   This key is already associated with an element of this collection
Code:    800A01C9
Source:  Microsoft VBScript runtime error

非常感谢提前!

2 个答案:

答案 0 :(得分:1)

以下是发生的事情

Dim x as integer

整数的默认值为0.因此X设置为0.

x = x + 1

您正在递增并将其设置为1。

If x = 0 Then
MsgBox ("You must select at least one option")

所以上述条件从未得到满足

在声明后删除x = x + 1行,然后尝试

答案 1 :(得分:0)

这是一个非常愚蠢的错误......

而不是CheckBox的B必须是大写字母...所以CheckBox而不是Checkbox

也是真而不是1

同一行中的两个错误