[已解决]VBA根据判断条件自动打勾复选框

ilysunny · 发表于 2015-12-1 09:35

本帖最后由 ilysunny 于 2015-12-1 13:43 编辑

用VBA根据条件自动在对应复选框打勾，谢谢！

不好意思，漏掉了附件，谢谢！

最佳答案

爱疯

2015-12-1 15:45

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then
      Call test2
      Shapes(VBA.Replace([e3], "Level ", "")).LinkFormat = True
End If
End Sub

'取消勾选
Sub test2()
Dim i
For i = 1 To Shapes.Count
      If Shapes(i).Type = 8 Then Shapes(i).LinkFormat = False
Next i
End Sub

复选框自动打勾2.rar (15.4 KB, 下载次数: 27)

qh8600 · 发表于 2015-12-1 10:05

change事件，循环判断一下就可以了

ilysunny · 发表于 2015-12-1 13:43

补上附件，望老师帮忙下，谢谢！

爱疯 · 发表于 2015-12-1 15:45

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then
      Call test2
      Shapes(VBA.Replace([e3], "Level ", "")).LinkFormat = True
End If
End Sub

'取消勾选
Sub test2()
Dim i
For i = 1 To Shapes.Count
      If Shapes(i).Type = 8 Then Shapes(i).LinkFormat = False
Next i
End Sub

复选框自动打勾2.rar (15.4 KB, 下载次数: 27)

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