الأحد، 09 أكتوبر 2022
  1 الردود
  4.7 ألف زيارة
0
الأصوات
فك
لدي بيانات مع 3 أعمدة. العمود 1 هو اسم السلسلة ، والعمود 2 هو قيمة س ، والعمود 3 هو قيمة ص. البيانات هي بيانات مبعثرة س ص. هل يجب دمج العمود 1 في خلية واحدة؟

هل يمكنني رسم هذه البيانات على نفس الرسم البياني بحيث يكون لدي العديد من سلاسل بيانات xy باستخدام Kutools؟
شكرًا! لقد اشتريت البرنامج للتو لذا فأنا أبحث عن المساعدة.
منذ 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
لا توجد ردود لهذا المنصب حتى الآن.