如何使excel复选框自动链接为其所在单元格后面的单元格

设置复选框：
右键点击excel的菜单栏空白抄处，勾选“窗体”，出现一个“窗体”工具栏，里边有一个“复选框”，点击后鼠标变成小十字，按住鼠标左键拉动即可设置出复选框。
相关链接：
在完成上述动作后，复选框周围有一个和文zhidao本框类似的边框，鼠标放置在该边框上，双击，弹出“设置控件格式”对话框（或右键单击复选框，也会出现该边框，选择右键菜单里的“设置控件格式”），在“控制”中的“单元格链接”中设置连接即可。

我回答过百一个同样的问题
http://zhidao.baidu.com/question/74013481.html
最后我编写了一个度通用程问序，可以批量加答入复选框，并自动批量链接版。
如果你需要就给我发权消息。
复选框是不能放数据的，它只能返回TRUE 和FLASE也就是选中和未选中。如果要往控件里放入数据的，那是组合框和列表框

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

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
Next
End Sub