VBA

Dim SelRange As Range Dim myChartobj As ChartObject Dim RowsCount As Integer Dim CountCol As Integer Dim CellValue As String Dim MyStarCol As String Dim MyDataSourse As String Call chart_Delete(actSheet) actSheet.Activate RowsCount = actSheet.Range("A65535").End(xlUp).Row For CountCol = 1 To actSheet.Columns.Count Set SelRange = Cells(1, CountCol) If (SelRange.Value = "") Then Exit For End If If Right(SelRange.Value, 4) = "(ms)" Then If SelRange.Value <> "×?′ó?μ(ms)" And SelRange.Value <> "×?D??μ(ms)" And SelRange.Value <> "???ù?μ(ms)" And SelRange.Value <> "?ù·?2?(ms)" Then MyStarCol = Mid(actSheet.Columns(CountCol).Address, 2, 1) MyDataSourse = MyDataSourse & MyStarCol & "1" & ":" & MyStarCol & RowsCount & "," End If End If Next

 

If MyDataSourse <> "" Then
 
        MyDataSourse = Left(MyDataSourse, Len(MyDataSourse) - 1)
   
        Set myChartobj = actSheet.ChartObjects.Add(250, 100, 500, 300) '′′?¨D?í?±í

        With myChartobj.Chart 'éè??êy?Y?′
       
            .SetSourceData Source:=Range(MyDataSourse)
            .ChartType = xlLine 'éè??í?àyààDí
            .Location Where:=xlLocationAsObject, Name:=actSheet.Name
           
        End With
       
        With myChartobj.Chart.Axes(xlCategory)
            .HasTitle = True
            .AxisTitle.Text = "′?êy"
        End With
       
        'éè??Y×?±ê?áμ???ê?
        With myChartobj.Chart.Axes(xlValue)
            .HasTitle = True
            .AxisTitle.Text = "μ￥??(ms)"
        End With
   
    End If
   
    Set actSheet = Nothing
    Set SelRange = Nothing
    Set myChartobj = Nothing