Jeanas ir Arnoldo uždavė šios savaitės „Excel“ klausimą.
„Lotus 1-2-3“ galite nutildyti eilutės spausdinimą, jei pirmasis simbolis yra vamzdinis simbolis (|). Tai buvo kietas, nes galite turėti formulę A skilties, kuri galėtų būti naudojama slopinti linijų spausdinimą su nulio: @IF(E2=0,"|",""). Panašu, kad „Excel“ nesiūlo šios funkcijos. Nenoriu slėpti eilučių, tiesiog noriu nutildyti jų spausdinimą „Excel“.
MrExcel gali įsijausti į jūsų situaciją. Aš naudoju „Lotus“ 1-2-3 8 metus, kol mano įmonė nusprendė naudoti „Excel“ kaip naują standartą. Perjungti niekada nebūna gražu. „Excel“ ir „Lotus“ yra panašūs, tačiau „Lotus 1-2-3“ energijos vartotojai dažniausiai susiduria su problemomis.
Praėjus keleriems metams po perėjimo, dabar jaučiu, kad „Excel“ yra geresnė nei „Lotus“. Tačiau aš puikiai suprantu skausmą, kurio reikia pereinant. Pakeitimus lengva laikyti asmenine ataka ir pykti ant „Microsoft“. Prisimenu, kaip kasdien mąsčiau: „KODĖL turiu visuose„ @VLOOKUP “pateikti paskutinį argumentą„ klaidinga “ir kodėl pagalbos failas neišeina ir tiesiog man to nepasako?
Jei turite makrokomandų, kurios buvo įrašytos „Lotus 1-2-3“, nepamirškite, kad makro konversijai galite naudoti „Consulting by“.
Yra keletas dalykų, kuriuos „Lotus 1-2-3“ atliko lengvai ir kurių nėra „Excel“. Gražus „Lotus“ failo „Combine Add Addire“ paprastumas pakeistas 8 „Excel“ veiksmais.
Šiandienos klausimas su vamzdžiu, skirtas slopinti eilučių spausdinimą, yra dar vienas pavyzdys, kai „Excel“ nepateikia panašios funkcijos. Žemiau esanti „LotusPrint“ makrokomanda imituos šią funkciją. Tai siaubingai neefektyvu. Makrokomanda tiria kiekvieną langelį aktyviame A stulpelio diapazone. Radusi vamzdį, jis slepia eilutę. Tada jis atspausdina darbalapį ir grįžta, kad paslėptų eilučių.
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
