Question

excel表格VB程序开发

我编写了一段程序用于控制数个excel单元格中内容的填写，但是每次都需要点击程序开发中的“运行”按钮，相应的内容才可以被填写。希望可以在Excel表添加一个commandbutton按钮，即每次点击按钮就可以让程序自动运行一次。以下是我编写的一段内容，希望有高手可以帮忙指点一下：
Sub aa()
Dim configuration As String
Dim i As Integer
i = Range("j2")
configuration = Range("b" & i)
Sheet1.Range("j15") = Mid(configuration, 1, 2)
Sheet1.Range("j16") = Mid(configuration, 3, 1)
Sheet1.Range("j18") = Mid(configuration, 4, 3)
Sheet1.Range("j19") = Mid(configuration, 7, 1)
End sub
希望可以做到每点击一次按钮，就可以让以上代码运行一次。

Answer 1

在”开发工具“中，点击”插入“，”ActiveX控件“

用按钮工具，在单元格中画一个按钮

然后右击按钮，指定宏，选择aa

即可

追问

大哥，关键是右击按钮，没有“指定宏”的选项，请指点！

追答

不好意思，插入“ActiveX控件“，是右击”查看代码“

插入普通的”表单控件“，是右击”指定宏“

Answer 2

插入-形状-选矩形，然后你自己调颜色大小，做成按钮形状。然后右键这个形状，指定宏，选择你这个过程程序，就可以了。