Jean ve Arnoldo bu haftanın Excel sorusunu sordu.
Lotus 1-2-3'te, ilk karakterin dikey çizgi karakteri (|) olmasını sağlayarak bir satırın yazdırılmasını engelleyebilirsiniz. Eğer sıfır çizgilerin baskı bastırmak için kullanılabilecek A sütununda bir formüle sahip olabilir, çünkü bu serin oldu: @IF(E2=0,"|",""). Excel bu özelliği sunmuyor gibi görünüyor. Satırları gizlemek istemiyorum, sadece Excel'de yazdırmalarını engellemek istiyorum.
MrExcel durumunuzla empati kurabilir. Şirketim yeni standart olarak Excel'e karar vermeden önce Lotus 1-2-3'ü 8 yıl kullandım. Geçiş asla hoş değildir. Excel ve Lotus benzerdir, ancak Lotus 1-2-3'ün Uzman Kullanıcıları genellikle sorunlarla karşılaşma eğilimindedir.
Geçişten birkaç yıl sonra, artık Excel'in Lotus'tan daha iyi olduğunu hissediyorum. Bununla birlikte, geçiş yaparken gereken acının kesinlikle farkındayım. Değişiklikleri kişisel bir saldırı olarak kabul etmek ve Microsoft'a kızmak kolaydır. Her gün düşündüğümü hatırlıyorum, "NEDEN tüm @ DÜŞEYARA'larımda son argüman olarak ', Yanlış' koymam gerekiyor ve neden yardım dosyası çıkıp bana bunu söylemiyor?"
Lotus 1-2-3'te kaydedilmiş makrolarınız varsa, makro dönüştürme için Danışmanlık'ı kullanabileceğinizi unutmayın.
Lotus 1-2-3'ün kolaylıkla yaptığı ve Excel'de bulunmayan bazı şeyler vardır. Lotus'ta / File Combine Tümü Ekle'nin güzel sadeliği Excel'de 8 adımla değiştirildi.
Satırların basılmasını önlemek için boru ile ilgili bugünün sorusu, Excel'in benzer bir özellik sunmadığı başka bir örnektir. Aşağıdaki LotusPrint makrosu bu özelliğin benzetimini yapacaktır. Korkunç derecede verimsiz. Makro, A sütununun etkin aralığındaki her bir hücreyi inceler. Bir boru bulduğunda, satırı gizler. Daha sonra çalışma sayfasını yazdırır ve gizli olan satırları göstermek için geri döner.
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
