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

or

Bagaimana untuk mencetak baris berulang kali di bahagian bawah setiap halaman bercetak dalam Excel?

Secara lalai, Excel menyediakan ciri untuk pengguna untuk mencetak baris berulang kali di atas. Tetapi dalam beberapa kes, anda mungkin memilih untuk mencetak baris berulang kali di bahagian bawah halaman kecuali di atas. Artikel ini akan menunjukkan sedikit helah.

Baris cetak berulang kali di bahagian bawah dengan kod VBA



Baris cetak berulang kali di bahagian bawah dengan kod VBA


Anda boleh menjalankan kod VBA di bawah untuk memasukkan baris yang ditetapkan ke dalam footer setiap halaman. Dan kemudian anda boleh mencetak baris ini berulang kali di bahagian bawah setiap halaman yang dicetak dalam Excel.

1. Akhbar Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Permohonan tingkap.

2. Di dalam Microsoft Visual Basic untuk Permohonan kotak dialog tetingkap, klik Memasukkan > Modul. Dan kemudian salin dan tampal kod VBA di bawah ke dalam tetingkap Modul.

Kod VBA: Masukkan baris yang ditetapkan ke tapak setiap halaman yang dicetak

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Tekan butang F5 kunci untuk menjalankan kod. Kemudian kotak dialog Kutools untuk Excel muncul, sila pilih barisan yang anda perlukan untuk mencetak berulang kali di bawah setiap halaman yang dicetak, dan kemudian klik OK butang.

Sekarang kandungan baris yang dinyatakan ditambah kepada footer setiap halaman yang dicetak dalam lembaran kerja semasa. Anda boleh mula mencetak lembaran kerja.

Nota: Jika anda ingin mencetak kandungan yang dipilih berulang kali di bawah setiap halaman dalam keseluruhan buku kerja, anda boleh memohon fungsi footer untuk menyisipkan kandungan ke footer dari semua helaian.


Anda mungkin berminat dalam:

Mudah mengulang baris tajuk dalam setiap baris ke-n dalam Excel

Kutools untuk Excel's Masukkan baris tajuk utiliti dengan cepat boleh memasukkan baris tajuk sebelum setiap baris ke-n dalam julat terpilih dalam Excel.

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Lebih Lanjut Muat turun percubaan percuma sekarang



Cadangan Alat Produktiviti untuk Excel

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.
  • To post as a guest, your comment is unpublished.
    Tim · 12 days ago
    Hi,

    I've been trying to use the above code but when I try to print te code it doesn't work. I followed all above steps and it doesn't give me any errors.
    I'm using office 365. Any tips ?

    Thanks in advance,
  • To post as a guest, your comment is unpublished.
    Tim · 12 days ago
    Hi,

    When I start the macro and select the wished rows it doesn't work when I try to print. What can this be?
    Using office 365.

    Thanks,
  • To post as a guest, your comment is unpublished.
    SVazquez · 1 months ago
    Hi,
    I am trying a few times but it's not working. Please advise.
    • To post as a guest, your comment is unpublished.
      crystal · 15 days ago
      Good day,
      Thank you for your comment. Which Office version do you use?
  • To post as a guest, your comment is unpublished.
    Shakeel Rao · 1 years ago
    Thank you So Muchhhh...
    It helped me very much.
  • To post as a guest, your comment is unpublished.
    vijay · 2 years ago
    Thanks for sharing.

    is any possibility of VBA code to repeated footer same as with "print titles" option including lines and auto page number.

    if possible please help me.