Nghastell Newydd Emlyn
 Rhifyn

angen plotio gwasgariad gyda chyfres lluosog gyda'r golofn gyntaf yn rhoi enw'r gyfres

  Kutools ar gyfer Excel
insyzygy
  insyzygy
  Dydd Sul, 09 Hydref 2022
  1 atebion
  Ymweliadau 5K
0
Pleidleisiau
Dadwneud
Mae gen i ddata gyda 3 colofn. colofn 1 yw enw'r gyfres, colofn 2 yw x-value, colofn 3 yw y-value. Data gwasgariad XY yw'r data. A ddylwn i uno colofn 1 i un gell?

A allaf blotio'r data hwn ar yr un siart fel bod gennyf gyfresi data xy lluosog gan ddefnyddio Kutools?
Diolch! Rwyf newydd brynu'r meddalwedd felly rwy'n edrych am gymorth.
0
Hynaf yn gyntaf  
Amanda Lee
Amanda Lee
1 flwyddyn yn ôl
·
#3127
0
Pleidleisiau
Dadwneud
Hi 'na,

Rydym wedi creu cod VBA, rhowch hwnnw mewn modiwl a gwiriwch ai dyna sydd ei angen arnoch:
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

Ar ôl i chi gopïo a gludo'r cod uchod, pwyswch F5 i redeg y cod. A bydd blwch deialog yn ymddangos yn gofyn ichi ddewis y tair colofn.

Os oes gennych unrhyw gwestiynau, peidiwch ag oedi i ofyn i mi.

Amanda
  • Tudalen:
  • 1
Ni wnaed unrhyw atebion i'r swydd hon eto.