Menggunakan VBA Untuk Menentukan Ukuran Halaman Dan Lebar Kolom Yang Diperlukan Di Excel

[ad_1]

Karena Excel terutama merupakan aplikasi untuk analisis data, terkadang alat presentasi mengalami perbandingan. Misalnya, terkadang data Anda memiliki teks dengan berbagai panjang dan mungkin melebihi ruang pencetakan yang tersedia.

Artikel ini akan menunjukkan kepada Anda cara menghitung lebar kolom yang benar untuk memastikan teks sesuai dengan halaman. Skenario tipikal mungkin adalah 2 kolom standar dan kemudian kolom ke-3 yang menampilkan komentar:


Nama, Tanggal, Komentar

Meskipun Excel memiliki beberapa alat yang tersedia, seperti fitur auto-fit tidak ada yang seperti mengendalikan aplikasi Anda untuk mendapatkan hasil yang Anda butuhkan.

Kita akan menulis beberapa kode yang akan menghitung lebar ruang pencetakan yang tersedia, sehingga kita dapat menentukan lebar kolom untuk memastikan pencetakan yang efisien.

Menghitung Ruang Pencetakan Yang Tersedia Pada Halaman

Salah satu masalah adalah bahwa unit pengukuran untuk ukuran halaman, margin dan kolom tidak konsisten dan kita perlu menstandarisasi unit sebelum menentukan lebar kolom yang benar.

Satu cara ke depan adalah mengubah semua unit menjadi titik, bukan inci atau sentimeter. Ukuran halaman awalnya dikembalikan dalam inci dan dikonversi, sementara margin kiri dan kanan sudah dalam titik.


pgWid = Application.InchesToPoints (ActiveSheet.PageSetup.PaperSize)
leftMargin = ActiveSheet.PageSetup.LeftMargin
rightMargin = ActiveSheet.PageSetup.RightMargin

Oleh karena itu, beberapa matematika sederhana akan memberi kita ruang pencetakan yang tersedia dan ini adalah lebar yang kita perlukan untuk masuk ke kolom ketiga kita.


content = pgWid - leftMargin - rightMargin
col3 = content-columns (1) .Lebar - kolom (2) .Lebar

Sekarang kita punya lebar yang diperlukan untuk kolom tiga dalam poin dan itu bagus, kecuali lebar kolom itu tidak diukur dalam poin, tetapi di unit Excel sendiri berdasarkan ukuran font. Jadi, kami akan membuat faktor untuk mengonversi lebar berdasarkan pengukuran dalam sel 1.


'Lebar dalam poin - hanya baca.
pts = Kolom (1). Lebar
'lebar dalam unit pengukuran Excel
wd = Columns (1) .ColumnWidth
faktor = pts / wd
col3 = col3 / faktor

Akhirnya kami memiliki nilai untuk lebar kolom tiga dan kami menggunakannya dalam kode berikut plus pengaturan bungkus kata untuk benar dan tinggi baris untuk menyesuaikan secara otomatis.


Kolom (3) .ColumnWidth = col3
Kolom (3) .wrapText = true
Baris (3) .EntireRow.AutoFit

Ringkasan

Meskipun perhitungan untuk ukuran halaman dan kolom bisa sedikit membingungkan, ada baiknya Anda tetap gigih. Pengetahuan yang baik tentang bagaimana elemen-elemen yang berbeda dari suatu spreadsheet diukur memungkinkan persiapan lebih mudah dari data untuk dicetak.

[ad_2]

Leave a Reply

Your email address will not be published. Required fields are marked *