求助急！！ variable not defined

juin_ · 发表于 2018-10-8 23:05

excel里面的checkbox有五十个以上，想用以下代码找出每个checkbox对应的名称
但出现compile error: variable not defined
请帮忙改下代码，谢谢~~

Option Explicit
Sub test()
Dim j, k As Integer
For j = 1 To 3
If Worksheets("1 Stage - Fabric-Trim-Garment").Controls("CheckBox" & j).Value = True Then
k = k & UserForm1.Controls("CheckBox" & j).Caption
End If
Next
MsgBox k
End Sub

复制代码

liulang0808 · 发表于 2018-10-9 07:45

建议楼主上传附件进行说明吧

juin_ · 发表于 2018-10-9 19:11

liulang0808 发表于 2018-10-9 07:45
建议楼主上传附件进行说明吧

你好！请看附件。

chxw68 · 发表于 2018-10-9 19:21

Sub test()
Dim aa As Shape
Dim ss$
ss = ""
With Worksheets("sheet1")
For Each aa In .Shapes
ss = ss & vbLf & aa.DrawingObject.Caption
Next
End With
MsgBox ss
End Sub

复制代码

chxw68 · 发表于 2018-10-9 19:39

Sub test()
Dim aa As Shape
Dim ss$
ss = ""
With Worksheets("sheet1")
For Each aa In .Shapes
If aa.FormControlType = 1 Then
If aa.DrawingObject.Value = 1 Then
ss = ss & vbLf & aa.DrawingObject.Caption
End If
End If
Next
End With
MsgBox ss
End Sub

复制代码

chxw68 · 发表于 2018-10-9 19:43

详见附件。

juin_ · 发表于 2018-10-9 20:34

chxw68 发表于 2018-10-9 19:39

你好，为什么我只勾选了两个框的情况下会出现三个名字呢？

另外，我想找出每个CHECKBOX的名字是为了想做一些后续的处理，比如说如果第一列的第三个框被选中VALUE是True的话，我在它旁边的单元格填入类似YES。我知道这个可以通过关联单元格实现，但是由于一些限制必须后期以VBA去处理
之前试过if Checkbox1.value=1 then ........ 不成功

请问有什么建议呢？

chxw68 · 发表于 2018-10-9 20:58

juin_ 发表于 2018-10-9 20:34
你好，为什么我只勾选了两个框的情况下会出现三个名字呢？

另外，我想找出每个CHECKBOX的名字是为了想 ...

方法都在代码中，变通处理吧。

chxw68 · 发表于 2018-10-10 08:34

Sub test()
Dim aa As Shape
Dim ss$
ss = ""
m = 1
n = 1
With Worksheets("sheet1")
For Each aa In .Shapes
If aa.FormControlType = 1 Then
With aa
.Top = 50 + m * 30
.Left = 50 + n * 100
m = m + 1
If m > 10 Then
n = n + 1
m = 1
End If
End With
If aa.DrawingObject.Value = 1 Then
ss = ss & vbLf & aa.DrawingObject.Caption
End If
End If
Next
End With
MsgBox ss
End Sub

复制代码

chxw68 · 发表于 2018-10-10 08:35

为什么勾选了2个而对话框里显示的是3个，是因为有的控件重叠到一起了，我用代码对控件位置重新进行了排列，这下就可以看清楚了。

		自动登录	找回密码
密码			免费注册

[求助] 求助急！！ variable not defined