我想要实现的功能很简单，就是一个表Sheet1的userform中添加一个按钮，点击按钮实现显示

显示全部楼层 · 2012-3-20 21:32:27

*** 在工作页面（例如：sheet1）内加个“命令按钮”其代码如下：Private Sub CommandButton1_Click()Macro1End Sub'****** 模块代码如下：Sub Macro1()For i = 1 To 12Sheets(2).Cells(1, i).Value = iSheets(2).Cells(2, i).Value = 2 * i - 1Next iSheets(1).SelectCharts.Add
ActiveChart.ChartType = xlXYScatterLines
' xlXYScatter
...