Јеан и Арнолдо поставили су овонедељно Екцел питање.
У Лотусу 1-2-3 можете да спречите штампање реда тако што ћете имати први знак у облику цеви (|). То је било цоол зато што може да има формулу у колони А који би могао да се користи за сузбијање штампање линија са нулом: @IF(E2=0,"|",""). Изгледа да Екцел не нуди ову функцију. Не желим да сакривам редове, само желим да потиснем њихово штампање у програму Екцел.
МрЕкцел може да саосећа са вашом ситуацијом. Лотус 1-2-3 сам користио 8 година пре него што се моја компанија одлучила за Екцел као нови стандард. Пребацивање никада није лепо. Екцел и Лотус су слични, али напредни корисници Лотуса 1-2-3 често наилазе на проблеме.
Неколико година након транзиције, сада сматрам да је Екцел бољи од Лотуса. Међутим, ја сам свестан бола потребног приликом преласка. Лако је схватити промене као лични напад и љутити се на Мицрософт. Сећам се да сам свакодневно размишљао: „ЗАШТО морам да ставим„ нетачно “као последњи аргумент у свим својим @ВЛООКУП-овима, и зашто датотека за помоћ не изађе и једноставно ми то каже?“.
Ако имате макронаредбе које су забележене у Лотусу 1-2-3, имајте на уму да можете да користите Цонсултинг би за конверзију макронаредби.
Постоје неке ствари које је Лотус 1-2-3 лако учинио, а које нису доступне у програму Екцел. Прелепа једноставност / Филе Цомбине Адд Ентире ин Лотус замењена је са 8 корака у програму Екцел.
Данашње питање са цевчицом за сузбијање штампања редова је још један пример где Екцел не нуди сличне функције. Макро ЛотусПринт у наставку симулира ову функцију. Ужасно је неефикасан. Макро прегледава сваку ћелију у активном опсегу колоне А. Када пронађе цев, сакрива ред. Затим исписује радни лист и враћа се назад да би открио скривене редове.
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
