Jak wyodrębnić dane z wykresu lub wykresu w programie Excel?
Wyodrębnij dane z wykresu za pomocą VBA
Wyodrębnij dane z wykresu za pomocą VBA
1. Musisz utworzyć nowy arkusz i zmienić jego nazwę na Dane wykresu. Zobacz zrzut ekranu:
2. Następnie wybierz wykres, z którego chcesz wyodrębnić dane i naciśnij Alt + F11 klawisze jednocześnie i a Microsoft Visual Basic for Applications okno wyskakuje.
3. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do poppingu Moduł okno.
VBA: Wyodrębnij dane z wykresu.
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. Następnie kliknij run przycisk, aby uruchomić VBA. Zobacz zrzut ekranu:
Następnie możesz zobaczyć, jak dane są wyodrębniane do Dane wykresu arkusz.
Wskazówka:
1. Możesz formatować komórki według potrzeb.
2. Dane wybranego wykresu są domyślnie wyodrębniane do pierwszej komórki arkusza ChartData.
Wskazówka: Jeśli zwykle używasz złożonych wykresów w programie Excel, co będzie kłopotliwe, ponieważ tworzysz je w odpowiednim czasie, tutaj z rozszerzeniem Automatyczny tekst narzędzie Kutools dla programu Excel, wystarczy utworzyć wykresy za pierwszym razem, a następnie dodać wykresy w okienku Autotekstu, a następnie możesz ich ponownie użyć w dowolnym miejscu i czasie, wystarczy tylko zmienić odniesienia, aby pasowały do Twoich rzeczywistych potrzeb. Kliknij, aby pobrać bezpłatnie teraz. |
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!