Нові
 Питання

потрібно побудувати розкидну графіку з кількома серіями, у першому стовпці вказуючи назву серії

  Kutools для Excel
insyzygy
  insyzygy
  Неділю, 09 жовтня 2022
  1 відповіді
  5 тис. Відвідувань
0
Голосів
розстібати
У мене є дані з 3 стовпцями. стовпець 1 – це назва серії, стовпець 2 – значення x, стовпець 3 – значення y. Дані – це дані розкиду XY. Чи слід об’єднати стовпець 1 в одну клітинку?

Чи можу я нанести ці дані на ту саму діаграму, щоб у мене було кілька рядів даних xy за допомогою Kutools?
Спасибі! Я щойно придбав програмне забезпечення, тому шукаю допомоги.
0
Більш старі першими  
Аманда Лі
Аманда Лі
1 рік тому
·
# 3127
0
Голосів
розстібати
Привіт там,

Ми створили код VBA, вставте його в модуль і перевірте, чи це те, що вам потрібно:
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

Скопіювавши та вставивши наведений вище код, натисніть F5, щоб запустити код. З’явиться діалогове вікно з проханням вибрати три стовпці.

Якщо у вас виникнуть будь-які запитання, будь ласка, не соромтеся запитувати мене.

Аманда
  • Сторінки:
  • 1
На цю посаду ще немає відповідей.