详细问题：怎么在Excel中插入一个控件，用来实现点击一下这...-excel中添加控件,excel添加控件

Option Base 1

Sub sort()
Dim r As Integer
Dim j As Integer
Dim k() As Integer
Dim tnum As String

r = [b65536].End(xlUp).Row
Set d = CreateObject("scripting.dictionary")

j = 1
For i = 3 To r
Cells(i, 2) = Trim(Cells(i, 2))
Cells(i, 3) = Trim(Cells(i, 3))

If Cells(i, 2) = Cells(i - 1, 2) Then
ReDim Preserve k(j)
k(j) = i
j = j + 1
Else
If j > 1 Then
For a = k(1) - 1 To k(j - 1)
If Not d.exists(Cells(a, 3).Text) Then
d.Add Cells(a, 3).Text, ""
tnum = tnum & "/" & Cells(a, 3).Text
End If
Next

Range("C" & k(1) - 1 & ":C" & k(j - 1)).ClearContents
Range("C" & k(1) - 1 & ":C" & k(j - 1)).Merge
Range("C" & k(1) - 1 & ":C" & k(j - 1)) = Right(tnum, Len(tnum) - 1)
tnum = ""
d.RemoveAll
End If
j = 1
End If
Next
Set d = Nothing
End Sub

按钮一代码：

Private Sub CommandButton1_Click()
Application.SendKeys "{F9}"
End Sub
在主菜单点击"视图"，"工具栏百"，"控件工具箱"后会跳出一个控件工具选择框度。选择"命令按钮"后，鼠标会变为细的十字标。在工作表范围内按着鼠标左键，然知后拉动就会出现控道件按钮就放开鼠标左键。按钮键就完成了，把鼠标移到按钮键双击鼠标左键就进入VBA编辑器。再把以下代码拷版贝到权编辑器中。
Private Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 1 '选定单元格内容+1
ActiveCell.Offset(1,0).Select '自动移到下个单元格
End Sub

可以设置两个按钮，一个是zd开始，一个是停止。

开始那个按钮的代码很简单，先设置A1单元格为start，然专后就一直循环做Calculate，也就是相当于按F9，直到属A1等于stop：

Sub mystart1()
mouseevents = False
Range("A1") = "start"
Do
Calculate
DoEvents
Loop Until Range("A1") = "stop"
End Sub

结束按钮就更简单，一点就是A1单元格等于stop：

Sub mystop1()
mouseevents = True
Range("A1") = "stop"
End Sub