Conas sonraí a bhaint as cairt nó graf in Excel?
Sliocht sonraí ón gcairt le VBA
Sliocht sonraí ón gcairt le VBA
1. Ní mór duit bileog oibre nua a chruthú agus a athainmniú mar Sonraí Cairte. Féach an pictiúr:
2. Ansin roghnaigh an chairt ar mhaith leat sonraí a bhaint aisti agus brúigh Alt + F11 eochracha ag an am céanna, agus a Microsoft Visual Basic d’Fheidhmchláir pops fuinneoige.
3. cliceáil Ionsáigh > Modúil, ansin greamaigh faoi bhun chód VBA chuig an popping Modúil fhuinneog.
VBA: Sliocht sonraí ón gcairt.
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. Ansin cliceáil Rith cnaipe chun an VBA a rith. Féach an pictiúr:
Ansin feiceann tú go mbaintear na sonraí chuig Sonraí Cairte bileog.
Leid:
1. Is féidir leat na cealla a fhormáidiú de réir mar is gá duit.
2. Baintear sonraí na cairte roghnaithe chuig an gcéad chill den bhileog ChartData de réir réamhshocraithe.
Leid: Má úsáideann tú cairteacha casta de ghnáth in Excel, a bheidh trioblóideach agus tú ag cruthú an-am dóibh, anseo leis an Téacs Auto uirlis de Kutools le haghaidh Excel, níl le déanamh agat ach na cairteacha a chruthú ar an gcéad uair, ansin na cairteacha a chur sa phána AutoText, ansin, is féidir leat iad a athúsáid in áit ar bith am ar bith, is é an rud nach gá duit a dhéanamh ach na tagairtí a athrú chun freastal ar do riachtanas fíor. Cliceáil chun é a íoslódáil saor in aisce anois. |
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!