excel 宏

Question

数据是从第2行开始 第1行是固定文字 不管它
a列是时间 b列是对应着a列时间的数据 d列是对应着a列时间的数据
想要：
1、a列和b列成折线散点图的宏
2、a列和d列成折线散点图的宏
谢谢

Answer 1

Sub Macro1()
Dim myChart As Chart
ActiveSheet.Shapes.AddChart.Select
Set myChart = ActiveChart
With myChart
.ChartType = xlLineMarkers
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "='Sheet2'!$B$1"
.SeriesCollection(1).Values = "='Sheet2'!$B$2:$B$13"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Caption = Sheets("Sheet2").Range("A1")
.SetElement (msoElementPrimaryValueAxisTitleVertical)
.Axes(xlValue, xlPrimary).AxisTitle.Text = Sheets("Sheet2").Range("B1")
End With
End Sub
Sub Macro2()
Dim myChart As Chart
ActiveSheet.Shapes.AddChart.Select
Set myChart = ActiveChart
With myChart
.ChartType = xlLineMarkers
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "='Sheet2'!$D$1"
.SeriesCollection(1).Values = "='Sheet2'!$D$2:$D$13"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Caption = Sheets("Sheet2").Range("A1")
.SetElement (msoElementPrimaryValueAxisTitleVertical)
.Axes(xlValue, xlPrimary).AxisTitle.Text = Sheets("Sheet2").Range("D1")
End With
End Sub

Answer 2

Sub Macro1()
N = Application.ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlLineMarkers
R = Range("A2").End(4).Row
ActiveChart.SetSourceData Source:=Range("A2:B" & R), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).Name = Range("B1")
ActiveChart.Location Where:=xlLocationAsObject, Name:=N
End Sub

Sub Macro2()
N = Application.ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection.NewSeries
R = Range("A2").End(4).Row
ActiveChart.SeriesCollection(1).XValues = "=" & N & "!R2C1:R" & R & "C1"
ActiveChart.SeriesCollection(1).Values = "=" & N & "!R2C4:R" & R & "C4"
ActiveChart.SeriesCollection(1).Name = "=" & N & "!R1C4"
ActiveChart.Location Where:=xlLocationAsObject, Name:=N
End Sub本回答被提问者采纳

Answer 3

这个不用宏就能解决吧，把需要用的数据选中，然后：插入-图表…… 按照提示一步步完成就可以了。

Answer 4

这个不难
用录制宏就好了！