Bütün qrafikləri bütün mövcud iş vərəqlərindən Excel iş kitabında yeni yaradılmış birinə toplu köçürməyin 2 yolu

Əgər Excel iş kitabındakı hər bir iş vərəqində bir neçə qrafik varsa və indi bütün qrafikləri yeni yaradılmış iş vərəqinə toplu şəkildə köçürmək istəyirsinizsə, bu yazıya müraciət edə bilərsiniz. Burada sizə 2 asan yol təqdim edəcəyik.

Excel iş kitabının hər bir iş vərəqindəki məlumatlar üçün diaqramlar yaratdıqdan sonra məlumatları bu diaqramlara uyğun olaraq daha yaxşı təhlil etmək üçün siz bütün bu diaqramları eyni iş vərəqində toplamaq istəyə bilərsiniz. Başqa sözlə, onların hamısını yeni iş vərəqinə köçürməyi ümid edə bilərsiniz. Qrafiklər azdırsa, bir-bir hərəkət etmək üçün aşağıdakı Metod 1-dən istifadə edə bilərsiniz. Bununla belə, saysız-hesabsız qrafiklər varsa, sonuncudan istifadə etmək daha yaxşıdır.

Metod 1: Diaqramı bir-bir əl ilə köçürün

1. Əvvəlcə bütün diaqramları köçürmək istədiyiniz yeni iş vərəqi yaradın.
2. Sonra, bir iş vərəqini açın və içindəki diaqrama yerləşdirin.
3. Sonra, diaqramın üzərinə sağ vurun və kontekst menyusundan "Diaqramı köçür" seçin.
4. Açılan "Qrafiki köçür" informasiya qutusunda "Obyekt daxil" siyahısında yeni vərəqi seçin və "OK" düyməsini basın.
5. Bir anda seçilmiş diaqram köçürüləcək.
6. İndi bütün iş vərəqlərindəki bütün diaqramları bir-bir emal etmək üçün bu üsuldan istifadə edə bilərsiniz.

Metod 2: Excel VBA ilə toplu köçürmə

1. Başlamaq üçün “Excel VBA redaktorunu işə salın”Excel-də VBA kodunu necə işlətmək olar".
2. Sonra aşağıdakı kodu modul və ya layihəyə yerləşdirin.

Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub

3. Daha sonra bu makronu indi işə salmaq üçün birbaşa “F5” düyməsini sıxın.
4. Makro tamamlandıqda, VBA redaktorundan çıxın.
5. Excel-in əsas pəncərəsində siz bütün diaqramları görə biləcəyiniz yeni iş vərəqini görə bilərsiniz.

Müqayisə

Zədələnmiş Excel faylını təmir edin

Excel faylı korrupsiyaya meyllidir, çünki Excel indi və sonra çökə bilər. Belə bir vəziyyətdə güclü və etibarlı bir adam hazırlasanız yaxşı olar xlsx bərpası kimi alət DataNumen Excel Repair. Excel faylınız xarab olduqda və Excel-in avtomatik bərpa funksiyası işləmədikdə bu, lazımlı olacaq.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com