在i一篇文章里抄下来的代码，刚输进去时用“运行-运行子过程/用户窗体”可以实现运行，后面再同样调用，就提示宏的选择窗口，但备选里没有任何宏名称。而且想知道怎么能让这个程序实现... 在i一篇文章里抄下来的代码，刚输进去时用“运行-运行子过程/用户窗体”可以实现运行，后面再同样调用，就提示宏的选择窗口，但备选里没有任何宏名称。而且想知道怎么能让这个程序实现打开文件就自动运行？谢谢！
下面节选了一段代码：

'变量与数组的声明
Option Base 1
Dim prop(5), ahs(5), pcdi(5), x(5), y(5), jn, temp(5), temp_sum As Single
Dim fw_prop, fw_ahs, fw_pcdi As Variant
Dim jnxsCommandBar As CommandBar
Dim jnxsCommandBarButton As CommandBarButton
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("基尼系数").Delete
End Sub

'限于程序的易读性与篇幅，本程序中未处理异常，但考虑到实用性，本程序具有一定的通用性。
'添加自定义工具栏
Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("基尼系数").Delete
Set jnxsCommandBar = Application.CommandBars.Add("基尼系数")
With jnxsCommandBar.Controls
Set jnxsCommandBarButton = .Add(msoControl - Button)
With jnxsCommandBarButton
.Style = msoButtonIconAndCaption
.Caption = "基尼系数"
.OnAction = "thisworkbook.jnxs"
End With
End With
jnxsCommandBar.Visible = True
End Sub
Private Sub jnxs()
On Error Resume Next
fw_prop = InputBox("请输入'调查户比重'数据在EXCEL中的起始结束位置，例'A2：A8'。" & vbCrLf & vbCrLf & "※一定要正确输入，否则按确定后将会出错！", "输入范围")
For i = 1 To 5
prop(i) = ActiveSheet.Range(fw_prop).Cells(i)
Next
fw_ahs = InputBox("请输入'平均每户家庭人口'数据在EXCEL中的起始结束位置，例'A2:A8'。" & vbCrLf & vbCrLf & " ※一定要正确输入，否则按确定后将会出错！", "输入范围")
For i = 1 To 5
ahs(i) = ActiveSheet.Range(fw_ahs).Cells(i)
Next
fw_pcdi = InputBox("请输入'平均每人可支配收入'数据在ECEL中的起始结束位置，例'A2:A8'。" & vbCrLf & vbCrLf & " ※一定要正确输入，否则按确定后将会出错！", "输入范围")
For i = 1 To 5
pcdi(i) = ActiveSheet.Range(fw_pcdi).Cells(i)
……
你好，感谢你对我问题的回答。我其实完全不懂vb，只想使用这个程序。我粘的代码是从开头粘的，能不能告诉我应该在什么位置加什么，就能在excel表上直接按一个按钮就能运行这个程序？我在做按钮的时候找不到宏。是不是因为在前面定义了函数所以不能直接生成宏名？