Jean dan Arnoldo menanyakan pertanyaan Excel minggu ini.
Dalam Lotus 1-2-3, Anda dapat menghentikan pencetakan baris dengan membuat karakter pertama menjadi karakter pipa (|). Ini keren karena Anda bisa memiliki formula di kolom A yang dapat digunakan untuk menekan pencetakan baris dengan nol: @IF(E2=0,"|",""). Excel tampaknya tidak menawarkan fitur ini. Saya tidak ingin menyembunyikan baris, saya hanya ingin menyembunyikan pencetakannya di Excel.
MrExcel dapat berempati dengan situasi Anda. Saya menggunakan Lotus 1-2-3 selama 8 tahun sebelum perusahaan saya memutuskan Excel sebagai standar baru. Beralih tidak pernah cantik. Excel dan Lotus serupa, tetapi Pengguna yang Kuat dari Lotus 1-2-3 cenderung mengalami masalah.
Beberapa tahun setelah transisi, sekarang saya merasa Excel lebih baik daripada Lotus. Namun, saya sangat menyadari rasa sakit yang diperlukan saat beralih. Sangat mudah untuk mengambil perubahan sebagai serangan pribadi dan marah dengan Microsoft. Saya ingat berpikir setiap hari, "MENGAPA saya harus meletakkan ', False' sebagai argumen terakhir di semua @VLOOKUP saya, dan mengapa file bantuan tidak keluar dan katakan saja?".
Jika Anda memiliki makro yang dicatat di Lotus 1-2-3, ingatlah bahwa Anda dapat menggunakan Konsultasi oleh untuk konversi makro.
Ada beberapa hal yang dilakukan Lotus 1-2-3 dengan mudah yang tidak tersedia di Excel. Kesederhanaan yang indah dari / File Combine Add Seluruh di Lotus diganti dengan 8 langkah di Excel.
Pertanyaan hari ini tentang pipa untuk menekan pencetakan baris adalah contoh lain di mana Excel tidak menawarkan fitur serupa. Makro LotusPrint di bawah ini akan mensimulasikan fitur ini. Ini sangat tidak efisien. Makro memeriksa setiap sel dalam rentang aktif kolom A. Saat menemukan pipa, baris tersebut akan disembunyikan. Ini kemudian mencetak lembar kerja dan kembali menampilkan baris yang disembunyikan.
Option Base 1 Sub LotusPrint() ' ' LotusPrint Macro ' This Macro will temporarily hide rows that start with |, ' print the sheet, then unhide those rows. It is meant to ' emulate the Lotus 1-2-3 feature of not printing rows that ' start with a pipe. ' Copyright 1999 www.MrExcel.com ' ' Dim UnhideRow() As Single Application.ScreenUpdating = False ' Locate the final row in column A FinalRow = Range("A65536").End(xlUp).Row Ctr = 0 ' Check and hide each row that starts with a pipe For x = 1 To FinalRow If Left(Range("A" & x).Value, 1) = "|" Then ' Do nothing if the row is already hidden If Not Range("A" & x).EntireRow.Hidden Then Range("A" & x).EntireRow.Hidden = True ' Save the row number so that it can be unhidden Ctr = Ctr + 1 ReDim Preserve UnhideRow(Ctr) UnhideRow(Ctr) = x End If End If Next x ' Print the sheet ActiveWindow.SelectedSheets.PrintOut ' Unhide any hidden rows If Ctr> 0 Then For x = 1 To Ctr Range("A" & UnhideRow(x)).EntireRow.Hidden = False Next x End If Application.ScreenUpdating = True End Sub
