2 გზა, რომ გადაიტანოთ ყველა დიაგრამა ყველა არსებული სამუშაო ფურცლიდან ახალზე Excel-ის სამუშაო წიგნში

თუ Excel-ის სამუშაო წიგნში თითოეული სამუშაო ფურცელი შეიცავს რამდენიმე დიაგრამას და ახლა გსურთ ყველა დიაგრამის ჯგუფურად გადატანა ახლად შექმნილ სამუშაო ფურცელზე, შეგიძლიათ იხილოთ ეს პოსტი. აქ ჩვენ გაგაცნობთ 2 მარტივ გზას.

Excel-ის სამუშაო წიგნის თითოეულ სამუშაო ფურცელზე მონაცემების დიაგრამების შექმნის შემდეგ, რათა უკეთ გაანალიზოთ მონაცემები ამ დიაგრამების მიხედვით, შეიძლება დაგჭირდეთ ყველა ეს სქემის შეკრება იმავე სამუშაო ფურცელზე. სხვა სიტყვებით რომ ვთქვათ, შეიძლება იმედი გქონდეთ, რომ გადაიტანთ ყველა მათ ახალ სამუშაო ფურცელზე. თუ დიაგრამები ცოტაა, შეგიძლიათ უბრალოდ გამოიყენოთ შემდეგი მეთოდი 1 სათითაოდ გადასაადგილებლად. თუმცა, თუ არსებობს უამრავი დიაგრამა, უმჯობესია გამოიყენოთ ეს უკანასკნელი.

მეთოდი 1: ხელით გადააადგილეთ დიაგრამა სათითაოდ

1. თავდაპირველად შექმენით ახალი სამუშაო ფურცელი, სადაც გსურთ ყველა დიაგრამის გადატანა.
2. შემდეგ გახსენით სამუშაო ფურცელი და ჩაწერეთ დიაგრამა მასში.
3. შემდეგი, დააწკაპუნეთ დიაგრამაზე მარჯვენა ღილაკით და კონტექსტური მენიუდან აირჩიეთ "ჩარტის გადატანა".
4. ამომხტარი დიალოგური ფანჯარაში "გადაადგილება დიაგრამა", აირჩიეთ ახალი ფურცელი "ობიექტში" სიაში და დააჭირეთ "OK".
5. ერთბაშად, არჩეული დიაგრამა გადაადგილდება.
6. ახლა თქვენ შეგიძლიათ გამოიყენოთ ეს გზა ყველა სამუშაო ფურცლის ყველა დიაგრამის სათითაოდ დასამუშავებლად.

მეთოდი 2: ჯგუფური გადაადგილება Excel VBA-ით

1. დასაწყისისთვის, გაუშვით Excel VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Excel-ში".
2. შემდეგ ჩადეთ შემდეგი კოდი მოდულში ან პროექტში.

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. ამის შემდეგ, პირდაპირ დააჭირეთ "F5" ამ მაკროს ახლავე გასაშვებად.
4. როდესაც მაკრო დასრულდება, გამოდით VBA რედაქტორიდან.
5. Excel-ის მთავარ ფანჯარაში შეგიძლიათ იხილოთ ახალი სამუშაო ფურცელი, რომელშიც შეგიძლიათ იხილოთ ყველა სქემა.

შედარება

შეაკეთეთ დაზიანებული Excel ფაილი

Excel ფაილი მიდრეკილია კორუფციისკენ, რადგან Excel შეიძლება დროდადრო ავარიული იყოს. ასეთ ვითარებაში ჯობია მოამზადო ძლიერი და სანდო xlsx აღდგენა ინსტრუმენტი, როგორიცაა DataNumen Excel Repair. ის გამოდგება, როდესაც თქვენი Excel ფაილი დაზიანდება და Excel-ის ავტომატური აღდგენის ფუნქცია არ მუშაობს.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის შეკეთება sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად