EXCEL复选框如何自动链接单元格

来源：百度知道 编辑：UC知道 时间：2024/07/06 16:27:11
怎么使复选框自动链接到单元格，如a1中的复选框链接b1，a2中的复选框链接b2，a3中的复选框链接b3，依次而行，有没有什么比较便捷的方法，（填充是不行的，填充后所有的复选框都会链接最初的单元格，还要一个一个去改，挺麻烦的）
修改引用无效

既然楼主点名要我说一下，我也就没办法不去想办法了。用下面这段VBA程序吧。把它加到模块里面，在工作表中按Alt+F8就可以运行。它会自动加10个Checkbox，并建立起与对应单元格的联系。通过修改程序相应的参数，你可以想加多少就加多少（为了让它通用，我可费了劲了）

Sub addChk()
'
' 用程序来增加筛选框
' 复选框的数量由常量ChkNum来确定
' 筛选框的行间距由常量ChkRow定义，高由ChkHeight定义，宽由ChkWidth定义，左边距由ChkLeft定义
' ActiveWheet.CheckBoxes.Add(左边距,上边距,宽,高）
' 最终位置可能需要手工调整
'
Const ChkNum = 10
Const ChkRow = 2
Const CheLeft = 1
Const ChkWidth = 70
Const ChkHeight = 15
Const RowFactor = 8.588
Const ValTo = "$B$"
Dim chk As Object

For i = 1 To ChkNum
ActiveSheet.Rows(i & ":" & i).RowHeight = (ChkHeigh + ChkRow) * RowFactor
Set chk = ActiveSheet.CheckBoxes.Add(chkleft, i * ChkRow + (i - 1) * ChkHeight, ChkWidth, ChkHeight)
With chk
.LinkedCell = ValTo & i
.Display3DShading = True
End With