Жиынтық жасаудың 2 тәсілі барлық диаграммаларды бар жұмыс парақтарынан Excel жұмыс кітабындағы жаңа жасалған параққа жылжыту

Excel шешімдері Қыркүйек 28, 2025
Қазір бөлісу:

Егер Excel жұмыс кітабындағы әрбір жұмыс парағында бірнеше диаграмма болса және енді барлық диаграммаларды жаңадан жасалған жұмыс парағына топтап жылжытқыңыз келсе, осы жазбаны қараңыз. Мұнда біз сізге 2 оңай жолды ұсынамыз.

Осы кестелерге сәйкес деректерді жақсы талдау үшін Excel жұмыс кітабының әрбір жұмыс парағындағы мәліметтерге арналған диаграммалар жасағаннан кейін, сіз осы кестелердің барлығын бірдей жұмыс парағына жинағыңыз келуі мүмкін. Басқаша айтқанда, сіз олардың барлығын жаңа жұмыс парағына ауыстыруға үміттене аласыз. Диаграммалар аз болса, бірінен соң бірін жылжыту үшін келесі 1-әдісті қолдануға болады. Егер сансыз көп диаграмма болса, соңғысын қолданған дұрыс.

1-әдіс: Диаграмманы қолмен бір-бірлеп жылжытыңыз

  1. Алдымен барлық диаграммаларды жылжытқыңыз келетін жаңа жұмыс парағын жасаңыз.
  2. Содан кейін, жұмыс парағын ашып, ондағы диаграмманы белгілеңіз.
  3. Содан кейін, диаграмманы тінтуірдің оң жағымен басып, контекстік мәзірден «Диаграмманы жылжыту» таңдаңыз.Диаграмманы жылжыту
  4. «Диаграмманы жылжыту» диалогтық терезесінде «Нысан» тізіміндегі жаңа парақты таңдап, «ОК» батырмасын басыңыз.Орынды таңдаңыз
  5. Бірден таңдалған диаграмма жылжытылады.Диаграмма жаңа параққа көшіріледі
  6. Енді сіз осы әдіс арқылы барлық жұмыс парақтарындағы барлық диаграммаларды бір-бірлеп өңдей аласыз.

2-әдіс: Excel VBA көмегімен пакеттік жылжыту

  1. Бастау үшін Excel VBA редакторын «сәйкес іске қосыңыз.Excel бағдарламасында VBA кодын қалай іске қосуға болады«.
  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

VBA коды - пакеттік барлық диаграммаларды барлық жұмыс парақтарынан жаңа жасалғанға ауыстырыңыз

  1. Осыдан кейін дәл қазір макросты іске қосу үшін «F5» пернесін басыңыз.
  2. Макрос аяқталғаннан кейін VBA редакторынан шығыңыз.
  3. Excel-дің негізгі терезесінде сіз барлық кестелерді көре алатын жаңа жұмыс парағын көре аласыз.Жаңа Excel жұмыс парағындағы топтық жылжытылған диаграммалар

салыстыру

  артықшылықтары кемшіліктері
1 әдісі Оңай жұмыс істеу Сіз бір-бірден қозғалуыңыз керек
2 әдісі Барлық диаграммаларды жаппай өңдей алады Пайдаланушылар сыртқы макростардан сақ болуы керек

Зақымдалған Excel файлын қалпына келтіру

Excel файлы бұзылуға бейім, өйткені Excel қазір және кейін бұзылуы мүмкін. Мұндай жағдайда сіз мықты және сенімді адамдарды дайындағаныңыз жөн xlsx қалпына келтіру сияқты құрал DataNumen Excel Repair. Бұл сіздің Excel файлыңыз бүлінгенде және Excel бағдарламасының автоматты қалпына келтіру мүмкіндігі жұмыс істемей тұрған кезде ыңғайлы болады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.