Hogyan lehet kinyerni az adatokat diagramokból vagy grafikonokból az Excel programban?
Adatok kivonása a diagramból a VBA segítségével
Adatok kivonása a diagramból a VBA segítségével
1. Létre kell hoznia egy új munkalapot, és át kell neveznie ChartData. Lásd a képernyőképet:
2. Ezután válassza ki a diagramot, amelyből adatokat szeretne kinyerni, majd nyomja meg a gombot Alt + F11 gombok egyszerre, és a Microsoft Visual Basic for Applications az ablak felpattan.
3. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá a felbukkanáshoz Modulok ablak.
VBA: Adatok kivonása a diagramból.
Sub GetChartValues()
'Updateby20220510
Dim xNum As Integer
Dim xSeries As Object
On Error Resume Next
xCount = 2
xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
With Application.Worksheets("ChartData")
.Range(.Cells(2, 1), _
.Cells(xNum + 1, 1)) = _
Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
For Each xSeries In Application.ActiveChart.SeriesCollection
Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
With Application.Worksheets("ChartData")
.Range(.Cells(2, xCount), _
.Cells(xNum + 1, xCount)) = _
Application.WorksheetFunction.Transpose(xSeries.Values)
End With
xCount = xCount + 1
Next
End Sub
4. Ezután kattintson futás gombot a VBA futtatásához. Lásd a képernyőképet:
Ezután láthatja, hogy az adatokat kibontják-e ChartData lapot.
Tipp:
1. A cellákat szükség szerint formázhatja.
2. A kiválasztott diagram adatai alapértelmezés szerint a ChartData lap első cellájába kerülnek.
|
Tipp: Ha általában összetett diagramokat használ az Excel programban, amelyek problémásak lesznek, mivel nagyon gyorsan elkészíti őket, itt a Auto szöveg eszköze Kutools az Excel számára, csak először el kell készítenie a diagramokat, majd hozzá kell adnia a diagramokat az AutoText ablaktáblához, majd bárhol, bármikor újrafelhasználhatja őket, csak annyit kell tennie, hogy megváltoztatja a hivatkozásokat, hogy megfeleljenek az Ön valódi igényének. Kattintson ingyenes letöltéshez. |
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
