Žans un Arnoldo uzdeva šīs nedēļas Excel jautājumu.
Programmā Lotus 1-2-3 jūs varētu nomākt rindas drukāšanu, ja pirmā rakstzīme ir caurules rakstzīme (|). Tas bija forši, jo jūs varētu būt formula kolonnā, ko varētu izmantot, lai apspiestu drukāšanu līniju ar nulli: @IF(E2=0,"|",""). Šķiet, ka Excel nepiedāvā šo funkciju. Es nevēlos slēpt rindas, es tikai gribu nomākt to drukāšanu programmā Excel.
MrExcel var just līdzi jūsu situācijai. Es izmantoju Lotus 1-2-3 8 gadus, pirms mans uzņēmums nolēma Excel kā jauno standartu. Pārslēgšanās nekad nav skaista. Excel un Lotus ir līdzīgi, taču Lotus 1-2-3 enerģijas lietotājiem parasti ir problēmas.
Vairākus gadus pēc pārejas tagad es uzskatu, ka Excel ir labāks par Lotus. Tomēr es ļoti labi apzinos sāpes, kas nepieciešamas, pārejot. Izmaiņas ir viegli uztvert kā personisku uzbrukumu un dusmoties uz Microsoft. Es atceros, kā es katru dienu domāju: "KĀPĒC man visiem maniem @VLOOKUP failiem kā pēdējais arguments ir jānorāda", False ", un kāpēc palīdzības fails neiznāk un man to vienkārši nepasaka?".
Ja jums ir makro, kas tika ierakstīti Lotus 1-2-3, atcerieties, ka makro konvertēšanai varat izmantot Consulting by.
Ir dažas lietas, kuras Lotus 1-2-3 paveica viegli, kuras nav pieejamas programmā Excel. Skaista / File Combine Add Entire vienkāršība Lotus tiek aizstāta ar 8 soļiem programmā Excel.
Šodienas jautājums ar cauruli, lai nomāktu rindu drukāšanu, ir vēl viens piemērs, kur Excel nepiedāvā līdzīgu funkciju. Zemāk esošais LotusPrint makro simulēs šo funkciju. Tas ir šausmīgi neefektīvi. Makro pārbauda katru šūnu A kolonnas aktīvajā diapazonā. Atrodot cauruli, tā slēpj rindu. Pēc tam tas izdrukā darblapu un atgriežas, lai parādītu slēptās rindas.
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
