Այս մեթոդը կներկայացնի VBA- ն `Excel աշխատանքային թերթում բոլոր գծապատկերների և դրանց աղբյուրի տվյալների արագ կապը խզելու համար: Խնդրում ենք անել հետևյալը.

1, Միացրեք նշված աշխատանքային թերթը, որտեղ ցանկանում եք կոտրել գծապատկերների բոլոր հղումները և սեղմել ալտ + F11 ստեղները միասին ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2: Սեղմեք Տեղադրել > Մոդուլներ, ապա տեղադրեք VBA- ն նոր մոդուլի պատուհանում:

VBA. Կոտրեք բոլոր աղյուսակների հղումները աշխատանքային թերթում

Sub BreakChartLinks()
Dim I As Long
Dim xChartCount As Long
Dim xLinkArr As Variant
Dim xSerColl As Variant
xLinkArr = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(xLinkArr) Then
For I = LBound(xLinkArr) To UBound(xLinkArr)
ActiveWorkbook.BreakLink xLinkArr(I), xlLinkTypeExcelLinks
Next I
End If
xChartCount = ActiveSheet.ChartObjects.Count
If xChartCount <> 0 Then
For I = 1 To xChartCount
ActiveSheet.ChartObjects(I).Activate
For Each xSerColl In ActiveChart.SeriesCollection
xSerColl.Values = xSerColl.Values
xSerColl.XValues = xSerColl.XValues
xSerColl.Name = xSerColl.Name
Next
Next
End If
End Sub

3. Մամուլ F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

Այժմ կտեսնեք, որ գծապատկերների բոլոր հղումները կոտրված են ընթացիկ աշխատանքային թերթում իրենց աղբյուրի տվյալների վրա:

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված, դուք կարող եք կիրառել այն Առանձնացնել աղյուսակը գործիք ՝ Excel- ում միայն մեկ կտտոցով արագորեն խզելու աղյուսակի և դրա աղբյուրի տվյալների միջև կապը:

1, Ընտրեք աղյուսակը, որի հղումը պետք է կոտրեք Excel- ում:

2: Սեղմեք Կուտոլս > Դիագրամներ > Գծապատկերային գործիքներ > Առանձնացնել աղյուսակը այս հնարավորությունը միացնելու համար:

Դրանից հետո դուք կտեսնեք, որ ընտրված գծապատկերի և դրա աղբյուրի տվյալների միջև կապը անմիջապես խզվել է:

Ինչպե՞ս կոտրել գծապատկերի առանցքը Excel- ում: