İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də qaynaq məlumatlarına chart əlaqələrini necə silmək olar?

Ümumiyyətlə, mənbə məlumatlarını dəyişdikdə chart avtomatik olaraq dəyişəcək. Ancaq bəzi hallarda mənbə məlumatları dəyişdirildikdə hələ də chartı saxlamaq istərdim. Burada, bu yazı, Excel-də onların mənbə məlumatlarına chart əlaqələrini qırmaq üçün asan bir yol göstərəcəkdir.

VBA ilə qaynaq məlumatlarına chart əlaqələrini ayırın



VBA ilə qaynaq məlumatlarına chart əlaqələrini ayırın

Bu metod, bir Excel səhifəsində bütün çizelgeler ve kaynak verileri arasında bağlantıları hızlı bir şəkildə qırmaq üçün VBA'yı təqdim edəcək. Xahiş edirəm:

1. Göstərilən iş kitabçasını bütün qrafik linklərini qırmaq istədiyiniz yerdə aktivləşdirin və basın Dayandırmaq + F11 Microsoft Visual Basic for Applications penceresini açmaq üçün düymələri birlikdə.

2. Basın Taxmaq > Modules, sonra VBA-nı yeni modul pəncərəsinə yapışdırın.

VBA: Bir iş kitabçasındakı bütün şəffaf bağlantıları ayırın

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. Basın F5 düyməsini basın və ya basın qaçış bu VBA'yı çalıştırmak üçün düyməsini basın.

İndi bütün cədvəl bağlantıları cari iş yerindəki mənbə məlumatlarına bölünür.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.