如何快速给该区域复选框赋值

zhongyong

请教高手：如何快速给该区域复选框赋值，打钩付1  不打勾付0


谢谢        详见附件     

不知道为什么

如图                    

鄂龙蒙

如何快速给该区域复选框赋值.rar (9.27 KB, 下载次数: 3)

2018-6-19 20:45 上传

点击文件名下载附件

看见星光

1. Sub Dochk()
   
2.     Dim i&, rng As Range, chk As Object
   
3.     For i = 1 To ActiveSheet.CheckBoxes.Count
   
4.         Set chk = ActiveSheet.CheckBoxes(i)
   
5.         Set rng = chk.TopLeftCell
   
6.         If chk.Value = 1 Then
   
7.             rng.Offset(, 1) = 1
   
8.             rng.Offset(, 2) = ""
   
9.         Else
   
10.             rng.Offset(, 1) = ""
    
11.             rng.Offset(, 2) = 0
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

看见星光

还是用代码批量处理吧
如何快速给该区域复选框赋值.rar (18.88 KB, 下载次数: 6)

2018-6-19 21:02 上传

点击文件名下载附件