Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menggunakan tajuk atau pengaki yang berbeza pada setiap halaman pada hamparan Excel?

Secara lalai, apabila memasukkan header atau footer ke dalam lembaran kerja, kandungan header atau footer akan digunakan untuk semua halaman. Bagi ramai orang, halaman yang berbeza mungkin mempunyai kandungan yang berbeza dalam lembaran kerja mereka. Dan mereka cenderung untuk membezakan halaman ini dengan tajuk atau kandungan footer selepas mencetak lembaran kerja. Bagaimana untuk memohon tajuk atau pengaki yang berbeza pada setiap halaman pada lembaran kerja? Kaedah dalam artikel ini boleh membantu anda.

Gunakan tajuk atau kaki yang berbeza pada setiap halaman dengan kod VBA


anak panah gelembung kanan biruGunakan tajuk atau kaki yang berbeza pada setiap halaman dengan kod VBA


Kod VBA berikut boleh membantu anda menggunakan tajuk atau pengaki yang berbeza pada setiap halaman lembaran kerja. Sila buat seperti berikut.

1. Tekan butang Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Permohonantetingkap s.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin dan tampal di bawah kod VBA ke dalam Kod tingkap. Lihat tangkapan skrin:

Kod VBA: Guna tajuk yang berbeza pada setiap halaman dalam Excel

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vLeft As Variant, vRight As Variant, xRg As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    vLeft = Array("First page", "Second page", "Third page", "fourth page")
    xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

    Application.ScreenUpdating = False
    For i = 0 To UBound(vLeft)
        With ws.PageSetup
        .PrintArea = xRg(i)
        .LeftHeader = vLeft(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

Nota:

1. Dalam kod VBA, anda perlu memberikan nama header atau footer yang berlainan dalam sekeping kod "vLeft = Array ("Halaman pertama", "Halaman kedua", "Halaman ketiga", "halaman keempat")".

2. Dan tentukan kawasan cetakan setiap halaman dalam lembaran kerja semasa dalam sekeping kod "xRg = Array ("A1: C50", "A51: C100", "A101: C150", "A151: C200")".

3. Untuk menggunakan pelantar yang berbeza, sila gantikan perkataan "Header"Dalam kod dengan"Footer".

3. Tekan butang F5 kunci untuk menjalankan kod. Kemudian Preview tetingkap timbul, sila klik Cetak butang untuk mula mencetak halaman dengan tajuk atau kaki yang berbeza.

Nota: Jika terdapat 4 yang dinyatakan halaman bercetak dalam lembaran kerja, anda perlu mengklik Cetak butang empat kali untuk menyelesaikan percetakan keseluruhan.


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.