Jean ja Arnoldo esitasid selle nädala Exceli küsimuse.
Lootuses 1-2-3 võite rea printimise maha suruda, kui esimene märk on torumärk (|). See oli lahe, sest sa oleks võinud valemiga A veeru, mida võiks kasutada, et tõkestada trükitud jooned null: @IF(E2=0,"|",""). Tundub, et Excel seda funktsiooni ei paku. Ma ei taha ridu peita, vaid tahan nende Excelis printimise maha suruda.
MrExcel suudab teie olukorda kaasa tunda. Kasutasin Lotust 1-2-3 8 aastat, enne kui minu ettevõte otsustas uue standardi Exceli kasuks. Vahetamine pole kunagi ilus. Excel ja Lotus on sarnased, kuid Lotus 1-2-3 jõukasutajad kipuvad probleemidega kokku puutuma.
Mitu aastat pärast üleminekut tunnen nüüd, et Excel on parem kui Lotus. Kuid ma olen täiesti teadlik vahetamisel vajalikust valust. Muudatusi on lihtne võtta isikliku rünnakuna ja olla Microsofti peale vihane. Mäletan, et mõtlesin iga päev: "MIKS pean kõigisse oma @VLOOKUP-idesse viimase argumendina panema" vale "ja miks abifail välja ei tule ja lihtsalt mulle seda ei ütle?".
Kui teil on makrosid, mis on salvestatud Lotus 1-2-3-sse, pidage meeles, et saate makro teisendamiseks kasutada Consulting by-i.
On mõned asjad, mida Lotus 1-2-3 hõlpsasti tegi, mis pole Excelis saadaval. Programmi / File Combine Add Entire ilus lihtsus asendatakse Excelis 8 sammuga.
Tänane küsimus toruga ridade printimise pärssimiseks on veel üks näide, kus Excel ei paku sarnast funktsiooni. Allpool olev LotusPrinti makro simuleerib seda funktsiooni. See on jube ebaefektiivne. Makro uurib iga veergu A aktiivse vahemiku lahtrit. Kui ta leiab toru, peidab see rea. Seejärel prindib tööleht ja läheb tagasi peidetud ridade peitmiseks.
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
