Question

详细问题：怎么在Excel中插入一个控件，用来实现点击一下这个按钮控件等于按一下F9

Answer 1

可以设置两个按钮，一个是开始，一个是停止。
开始那个按钮的代码很简单，先设置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

Answer 2

按钮一代码：

Private Sub CommandButton1_Click()
Application.SendKeys "{F9}"
End Sub

追问

不行啊，没有反应

追答

你这个主要是想进行什么操作呀

追问

做一个抽奖页面，需要按F9滚动数据，所以想插入一个按钮控件实现F9的功能。F9长按一直滚动，松开停止滚动

追答

抽奖程序有点复杂，请参考一下这里。百度搜索：
如何用excel vba编写可以滚动的抽奖程序

追问

抽奖程序已经弄好了，现在必须长按F9开始滚动，松开停止。我想能不能用控件做按钮，鼠标点击控件实现长按F9开始滚动，松开停止的功能。谢谢

追答

你在抽奖工作表中做个按钮，加入代码：
Call 呼叫F9键

再按ALT+F11 进入VBA，插入一个“模块”，粘贴代码：

Sub 呼叫F9键()
MsgBox "F9开始 "
Application.SendKeys "{F9}"
End Sub

最后点击按钮试试