如何用vba语言 删除指定工作表
来源:百度知道 编辑:UC知道 时间:2024/07/01 00:28:11
Dim i As Integer
For i = 1 To 100
If TextBox1.Text = Worksheets("数据").Cells(1, i) Then
Worksheets("数据").Select
Worksheets("数据").Cells(4, i - 1).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection(1).Name = Worksheets("数据").Cells(3, i)
ActiveChart.SeriesCollection(1).Values = Range(Worksheets("数据").Cells(4, i), Worksheets("数据").Cells(5000, i))
ActiveChart.SeriesCollection(1).XValues = Range(Worksheets("数据").Cells(4, i - 1), Worksheets("数据").Cells(5000, i - 1))
ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
Selection.MajorTickMark = xlInside
ActiveChart.Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Activate
Selection.MajorTickMark = x
注意下面*括起来的代码
Private Sub TextBox1_Change()
Dim i As Integer
For i = 1 To 100
If TextBox1.Text = Worksheets("数据").Cells(1, i) Then
Worksheets("数据").Select
Worksheets("数据").Cells(4, i - 1).Select
'***************
if Charts.count < 1 then
Charts.Add
end if
'***************
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection(1).Name = Worksheets("数据").Cells(3, i)
ActiveChart.SeriesCollection(1).Values = Range(Worksheets("数据").Cells(4, i), Worksheets("数据").Cells(5000, i))
ActiveChart.SeriesCollection(1).XValues = Range(Worksheets("数据").Cells(4, i - 1), Worksheets("数据").Cells(5000, i - 1))
ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Activate
ActiveChart.Axes(xlCategory).Select
Selection.MajorTickMark = xlInside
ActiveChart.Acti