Ինչպե՞ս Excel- ում արդյունքներ քաղել գծապատկերից կամ գծապատկերից:
VBA- ի հետ աղյուսակից հանեք տվյալները
VBA- ի հետ աղյուսակից հանեք տվյալները
1. Դուք պետք է ստեղծեք նոր աշխատանքային թերթ և վերանվանեք այն որպես Տվյալների գծապատկեր, Տեսեք,
2. Դրանից հետո ընտրեք աղյուսակը, որից ցանկանում եք տվյալներ արդյունահանել, և սեղմել Alt + F11 ստեղները միաժամանակ, և ա Microsoft Visual Basic հավելվածների համար պատուհանը բացվում է:
3: սեղմեք Տեղադրել > Մոդուլներ, ապա կպցրեք ներքևում գտնվող VBA կոդի վրա ՝ դուրս գալու համար Մոդուլներ պատուհան.
VBA. Արդյունքները հանեք գծապատկերից:
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. Այնուհետեւ կտտացրեք Վազում VBA գործարկման կոճակը: Տեսեք,
Ապա դուք կարող եք տեսնել, որ տվյալները արդյունահանվում են Տվյալների գծապատկեր թերթիկը:
Ձեր պատասխանը ուղարկված չէ:
1. Բջիջները կարող եք ձեւաչափել ըստ անհրաժեշտության:
2. Ընտրված գծապատկերի տվյալները լռելյայնորեն արդյունահանվում են ChartData թերթի առաջին բջիջ:
Ձեր պատասխանը ուղարկված չէ: Եթե Excel- ում սովորաբար օգտագործում եք բարդ գծապատկերներ, որոնք անհանգստացնող կլինեն, քանի որ դրանք շատ ժամանակ կստեղծեք, այստեղ ՝ Auto տեքստը գործիք է Excel- ի համար նախատեսված գործիքներպարզապես անհրաժեշտ է առաջին անգամ գծապատկերներ ստեղծել, այնուհետև ավելացնել գծապատկերները AutoText պատուհանում, այնուհետև ցանկացած պահի կարող եք դրանք նորից օգտագործել, ինչը ձեզ մնում է միայն փոխել հղումները ՝ համապատասխանելու ձեր իրական կարիքին: Կտտացրեք անվճար ներբեռնելու համար այն հիմա. |
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: