Jean e Arnoldo fizeram a pergunta sobre o Excel desta semana.
No Lotus 1-2-3, você poderia suprimir a impressão de uma linha fazendo com que o primeiro caractere fosse uma barra vertical (|). Este foi fresco porque pode ter uma fórmula na coluna A, o qual pode ser utilizado para suprimir a impressão das linhas com zero: @IF(E2=0,"|",""). O Excel não parece oferecer esse recurso. Não quero ocultar as linhas, só quero suprimir sua impressão no Excel.
MrExcel pode ter empatia com sua situação. Usei o Lotus 1-2-3 por 8 anos antes de minha empresa decidir pelo Excel como o novo padrão. Mudar nunca é bonito. Excel e Lotus são semelhantes, mas os usuários avançados do Lotus 1-2-3 tendem a ter problemas.
Vários anos após a transição, agora sinto que o Excel é melhor do que o Lotus. No entanto, estou perfeitamente ciente da dor necessária ao trocar. É fácil interpretar as mudanças como um ataque pessoal e ficar com raiva da Microsoft. Lembro-me de pensar diariamente: "POR QUE eu tenho que colocar ', False' como o argumento final em todos os meus @VLOOKUPs, e por que o arquivo de ajuda não sai e apenas me diz isso?".
Se você tiver macros que foram gravadas no Lotus 1-2-3, lembre-se de que pode usar Consultoria por para conversão de macro.
Existem algumas coisas que o Lotus 1-2-3 fez facilmente que não estão disponíveis no Excel. A bela simplicidade de / File Combine Add Whole no Lotus foi substituída por 8 etapas no Excel.
A pergunta de hoje com o tubo para suprimir a impressão das linhas é outro exemplo em que o Excel não oferece um recurso semelhante. A macro LotusPrint abaixo simulará esse recurso. É terrivelmente ineficiente. A macro examina cada célula no intervalo ativo da coluna A. Quando encontra um tubo, ele oculta a linha. Em seguida, imprime a planilha e volta a exibir as linhas que estavam ocultas.
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
