New
 Isu

perlu memplot pencar dengan beberapa seri dengan kolom pertama memberikan nama seri

  Kutools untuk Excel
gila
  gila
  Minggu, 09 Oktober 2022
  1 Balasan
  4.9K Kunjungan
0
Suara
membuka
Saya memiliki data dengan 3 kolom. kolom 1 adalah nama seri, kolom 2 adalah nilai x, kolom 3 adalah nilai y. Data adalah data sebar XY. Haruskah saya menggabungkan kolom 1 ke satu sel?

Bisakah saya memplot data ini pada bagan yang sama sehingga saya memiliki beberapa seri data xy menggunakan Kutools?
Terima kasih! Saya baru saja membeli perangkat lunak jadi saya mencari bantuan.
0
Terlama Pertama  
Amanda Lee
Amanda Lee
1 tahun lalu
ยท
#3127
0
Suara
membuka
Halo,

Kami telah membuat kode VBA, silakan masukkan ke dalam modul dan periksa apakah itu yang Anda butuhkan:
Sub KutoolsChart()

'

' CSH

'

    Dim xRg As Range

    Dim i As Integer

    On Error Resume Next

    Set xRg = Application.InputBox(prompt:="Please select Range", Title:="Kutools for Excel", Type:=8)

    If TypeName(xRg) = "Nothing" Then Exit Sub

    If xRg.Columns.Count <> 3 Then

        MsgBox ("Reference is not Valid")

        Exit Sub

    End If

    ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select

    

    For i = 1 To xRg.Rows.Count

        ActiveChart.SeriesCollection.NewSeries

        ActiveChart.FullSeriesCollection(i).Name = xRg.Cells(i, 1).Value

        ActiveChart.FullSeriesCollection(i).XValues = xRg.Cells(i, 2)

        ActiveChart.FullSeriesCollection(i).Values = xRg.Cells(i, 3)

        ActiveChart.FullSeriesCollection(i).ApplyDataLabels

        ActiveChart.FullSeriesCollection(i).DataLabels.Select

        ActiveChart.FullSeriesCollection(i).DataLabels.ShowValue = False

        ActiveChart.FullSeriesCollection(i).HasLeaderLines = False

        ActiveChart.FullSeriesCollection(i).DataLabels.ShowSeriesName = True

    Next

End Sub

Setelah Anda menyalin dan menempelkan kode di atas, tekan F5 untuk menjalankan kode. Dan kotak dialog akan muncul meminta Anda untuk memilih tiga kolom.

Jika Anda memiliki pertanyaan, jangan ragu untuk bertanya kepada saya.

Amanda
  • halaman:
  • 1
Tidak ada balasan yang dibuat untuk posting ini.