Jean és Arnoldo feltette az e heti Excel kérdést.
A Lotus 1-2-3-ban elnyomhatja egy sor nyomtatását, ha az első karakter pipa karakter (|). Ez jó, mert akkor lehetett volna egy képlet az A oszlopban, amelyek felhasználhatók, hogy elnyomja a nyomtatási sor nulla: @IF(E2=0,"|",""). Úgy tűnik, hogy az Excel nem kínálja ezt a funkciót. Nem akarom elrejteni a sorokat, csak el akarom nyomni az Excel-ben történő nyomtatásukat.
MrExcel átérezheti helyzetét. 8 évig használtam a Lotus programot 1-2-3-mal, mielőtt a cégem az Excel mellett döntött volna új szabványként. A váltás soha nem szép. Az Excel és a Lotus hasonlóak, de a Lotus 1-2-3 erőfelhasználói általában ütköznek a problémákba.
Néhány évvel az átállás után most úgy érzem, hogy az Excel jobb, mint a Lotus. Tisztában vagyok azonban a váltáshoz szükséges fájdalommal. Könnyű személyes változásnak tekinteni a változásokat, és haragudni a Microsoftra. Emlékszem, hogy naponta gondoltam: "MIÉRT kell egy", Hamis "szót feltennem az utolsó érvként az összes @VLOOKUP fájlomban, és miért nem jelenik meg a súgó fájl, és csak ezt mondja el nekem?".
Ha makrói vannak, amelyeket a Lotus 1-2-3 a Lotus 1-2-ben rögzített, ne feledje, hogy a Consulting by segítségével használhatja a makrókonvertálást.
Van néhány olyan dolog, amelyet a Lotus 1-2-3 könnyen elvégzett, és amelyek nem állnak rendelkezésre az Excelben. A Lotus / File Combine Add Entire gyönyörű egyszerűségét az Excel 8 lépésével helyettesíti.
A mai kérdés a sorok nyomtatásának elnyomására szolgáló csővel egy másik példa, ahol az Excel nem kínál hasonló funkciót. Az alábbi LotusPrint makró szimulálja ezt a funkciót. Iszonyatosan hatástalan. A makró megvizsgálja az A oszlop aktív tartományának minden celláját. Amikor egy csövet talál, elrejti a sort. Ezután kinyomtatja a munkalapot, és visszatér az elrejtett sorok elrejtéséhez.
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
