Secara langsung, Excel tidak memungkinkan agar nilai pada suatu sel tertentu dapat ditampilkan ke dalam header atau footer halaman print out. Tip berikut ini akan menjelaskan solusi untuk mengatasi hal tersebut dengan mudah menggunakan pemrograman VBA sederhana.


Sebagai contoh seperti yang ditunjukkan pada gambar, saya membuat daftar bilangan acak pada sel A1:I100 dan sel A102 berisi suatu contoh nilai rata-rata yang akan ditampilkan sebagai 'CenterHeader'. Adapun kode macro yang dapat anda susun pada kode 'ThisWorkbook' adalah:
Private Sub Workbook_BeforePrint(X As Boolean)
With ActiveSheet.PageSetup
.CenterHeader = Sheets("Sheet1").Range("A102").Text
End With
End Sub
Berikut ini langkah-langkah sebagaimana ditunjukkan dalam gambar di atas:
  1. Sorot barisan sel A1:I100 lalu ketik rumus =RANDBETWEEN(1,100) kemudian tekan tombol CTRL+ENTER.
  2. Tekan CTRL+C untuk menyalin barisan sel tersebut dan klik kanan pilih Paste Special... atau dapat juga dengan menekan ALT+CTRL+V kemudian klik Values dan klik OK.
  3. Ketik rumus =AVERAGE(A1:I100) pada sel A102.
  4. Buka menu ribbon View > Workbook Views > Page Layout.
  5. Tampilkan VBE dengan membuka menu ribbon Developer > Code > Visual Basic.
  6. Pada panel VBAProject, double klik 'This Workbook' kemudian tuliskan kode di atas.
  7. Tampilkan kembali Excel lalu tampilkan Print Preview.
Untuk mengganti sel pada posisi header atau footer lainnya, contohnya jika ingin ditempatkan di footer kanan maka perintah 'CenterHeader' di atas anda ganti menjadi 'RightFooter'.