excel我想做一个打钩的功能，比如达到这个条件他自动会在后...

1. 在excel2007表格的左上方找到一个小倒三角按钮，点它出现下拉菜单，选择“其他命令” 

2. 在弹出的的窗口中，默认是在“自定义”标签下的，在中间部分找到“从下列位置选择命令”，点下面的“常用命令”右边复的下拉菜单三角形，在出现的下拉菜单中选择“开发工具选项卡”，在下拉框里选择“控件”，点击“添加”，然后点击确定

3. 通过以上设置左上角小倒三角按钮制左边一排小按钮里多了一个“控件”按钮，选中设这单元格，如下图，红色区域即为选中单元格；

4. 点击左上角新添加的“控件”按钮，然后zhidao点“插入”，然后在出现的下拉菜单里在“表单控件”里找到“复选框”按钮，点击“复选框”按钮，

5. 点击后出现一个复选框，点击一下方框，自动打钩，再点击一下打钩便取消，还可以手工将默认状态复选框几个字去掉

右键单击工作表标签，在右键菜单中选择“查看代码”，在显示的工作表代码编辑窗口复制粘贴e799bee5baa6e79fa5e98193e4b893e5b19e334以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim StrHy$, Str$, i%
If Target.Row > 1 And Target.Row < 6 Then
If Target.Column > 1 And Target.Column < 7 Then
If Target.Count > 1 Then Exit Sub
For i = 1 To Len(Cells(Target.Row, "A"))
Str = Mid(Cells(Target.Row, "A"), i, 1)
If Str Like "[0-9]" = True Then
StrHy = StrHy & Str
End If
Next
Range(Cells(Target.Row, 2), Cells(Target.Row, 6)).ClearContents
Target.Value = "√"
Select Case Target.Column
Case Is = 2
Cells(Target.Row, "G") = Val(StrHy) * 1
Case Is = 3
Cells(Target.Row, "G") = Val(StrHy) * 0.8
Case Is = 4
Cells(Target.Row, "G") = Val(StrHy) * 0.6
Case Is = 5
Cells(Target.Row, "G") = Val(StrHy) * 0.4
Case Is = 6
Cells(Target.Row, "G") = Val(StrHy) * 0.2
End Select
End If
End If
End Sub

完成后关闭代码编辑窗口，返回工作表。就可以测试了。

　　1、在excel2007表格的左上方找到一个小倒三角按钮，点它出现下拉百菜单，选择“其他命令”：

　　2、在弹出的的窗口中，默认是在“自定义”标签下度的，在中间部分找到问“从下列位置选择命令”，点下面的“常用命令”右边的下拉菜单三角形，在出现的下拉菜单中选择“开发工具选项卡”，在下拉框里选择“控件”，点击“添加”，然后点击确定。

　　3、通过以上设置左上角小倒三答角按钮左边一排小按钮里多了专一个“控件”按钮，选中设这单元格，如下图，红色区域即为选中单元格；

　　4、点击左上角新添加的“控件”按钮，然后点“插入”，然后在出现的下拉菜单里在“表单控件”里找到“复选框”按钮，点击“复选框”按钮：

　　5、点击后出现一个复选框，属点击一下方框，自动打钩，再点击一下打钩便取消，还可以手工将默认状态复选框几个字去掉：

　　

那要代码来搞定的。