作者：乔山办公网日期：
返回目录：excel表格制作
右键点击复选框，点击“查看事务代码”，在Private Sub CheckBox1_Click()下加入来以下代码（其中checkbox1是你的复选框控件的名称，按实际情况替换）：
If CheckBox1.Value = True Then
Cells(18, "G").Value = Cells(1, "A").Value + Cells(2, "A").Value + Cells(3, "A").Value
Else
Cells(18, "G").Value = Cells(1, "A").Value + Cells(2, "A").Value
End If
补充问题：
关于你补充的不让G18的公式随便被改变的问题，可采用保护工作表的方式完成。如源果是office2003的话，工作表中所有单元格都是默认锁定的，一旦工作表被保护，锁定作用将起效。因百此，你可以先全选整个工作表，右键菜单选择“设置单元格格式”，在“保护”选项卡中的“锁定”前的勾去掉，然后按同样方法选定G18进行锁定。这样再按需要在工度具栏中的“保护”中设定即可。
材料/工具：Excel2010
1、先来看一下下面这个例子需要做出商品的毛利，来即销售价-入库价，可是商品一共有1489行，下拉单元格不但要一直点着鼠源标
2、首先我们要先算出第一个商品的毛利，也就是在D2单元格内输入“=B2-C2”，回车得出毛利0.32。
3、然后单击单元格D2，在图百中标示的地方输入我们需要填充的单元格区域，度也就是“D2：D1489”。
4、同时按住Ctrl和Enter键，这时D2：D1489就都被选中了。
5、然后单击一下图知中公式的后面，让光标在最后面闪烁，再次按下Ctrl和Enter键，这样就完成了道批量自动填充。
6、可以看到公式自动填充到1489行了
首先，注意复制粘贴后的行号列标百与原公式所处位置不一致的话，行号列标会自动按原引用单元格的间距重新调整公式中的行号列标，除非是绝对度引用，这点要关注下。
看你的意思是有的地方是公式，有的地方是输入的文本或空值之类的，给你一个方法，你参考下，为防止你误删，在完成操作前，先复制一份原文件备份。
一、连同单元格内问容和公式一起复制，粘贴到一个表格空白处（无用区域，最安全的是答粘贴到一个新的空白表中，此时公式和常量是一起粘贴上去的）；
二、不要点选其它地方，此时粘贴区域是选中状态，定位--常量--按Del删除；
三、再复制删除常量后的内这部分区域，到你想粘贴的目标区域--选择性粘贴--公式--注意勾选跳过空单元；
四、删除第一次粘贴所用的容辅助区域，OK
复选框设置控件格式，控制，单元格链接为B1
C1=IF(B1=TRUE,A1*B1,"")