Багцлах 2 арга Бүх графикуудыг одоо байгаа бүх ажлын хүснэгтээс Excel-ийн ажлын дэвтэрт шинээр үүсгэсэн хуудсанд шилжүүлэх

Хэрэв Excel ажлын дэвтрийн ажлын хуудас бүр хэд хэдэн диаграмм агуулсан бөгөөд одоо та бүх диаграммыг шинээр үүсгэсэн ажлын хуудас руу багцаар зөөхийг хүсвэл энэ бичлэгийг үзнэ үү. Энд бид танд 2 хялбар аргыг танилцуулах болно.

Эдгээр хүснэгтийн дагуу өгөгдлийг илүү сайн шинжлэхийн тулд Excel-ийн ажлын номны ажлын хуудас бүрт өгөгдөлд зориулсан диаграмм үүсгэсний дараа эдгээр бүх хүснэгтийг ижил хүснэгтэд нэгтгэхийг хүсч магадгүй юм. Өөрөөр хэлбэл, та бүгдийг нь шинэ ажлын хуудсанд шилжүүлэх болно гэж найдаж магадгүй юм. Хэрэв график цөөхөн бол та дараахь 1-р аргыг ашиглан нэг нэгээр нь шилжүүлж болно. Гэсэн хэдий ч, тоо томшгүй олон чартууд байгаа бол та сүүлийнхээс ашиглах нь дээр.

Арга 1: Диаграмыг гараар нэг нэгээр нь зөөх

1. Эхлээд бүх диаграмыг шилжүүлэхийг хүсэж байгаа ажлын шинэ хуудсыг үүсгээрэй.
2. Дараа нь ажлын хуудсаа нээгээд, доторх хүснэгт дээр байрлуул.
3. Дараа нь диаграм дээр хулганы баруун товчийг дарж контекст цэснээс "Move Chart" командыг сонгоно уу.
4. "Move Chart" харилцах цонхноос "Object in" жагсаалтад байгаа шинэ хуудсыг сонгоод "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. засвар кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com