EXCELer Tudo sobre EXCEL em Português

Se pretendermos evidenciar as células que contêm valores duplicados (ver exemplo): pode utilizar-se uma macro, que deverá ser executada depois de "marcar" o Range de células pretendido: O Código: Sub ColorDupRows()    Dim rngSrc As Range    Dim NumRows As Integer    Dim ThisRow As Integer    Dim ThatRow As Integer    Dim ThisCol As Integer    Dim RightCol As Integer    Dim J As Integer, K As Integer     Application.ScreenUpdating = False    Set rngSrc = …

Se pretendermos inserir valores ou texto em determinadas células pré-definidas, para uma maior comodidade, podemos colori-las, de modo a saber que se encontram vazias e, por isso, mais fáceis de serem identificadas. Tomemos o exemplo: Depois de inserirmos valores, as células deixam de estar coloridas, voltando a ter coloração se ficarem novamente vazias: O método, é a utilização da Formatação …

Há uns tempos atrás, apresentei algum código relacionado com a inserção de comentários em determinadas células. Hoje, apresento mais uma peça de Código, vista em Office Tips and Hints Blog que, pelo seu interesse aqui deixo e que funciona para a célula previamente seleccionada : O Código: Sub InsereComentario()    Dim cell As Range    On Error Resume Next    Selection.ClearComments    On Error GoTo 0    For Each cell …

Para preencher uma sequência numérica, programaticamente, podem utilizar-se formulários: O Código: Sub Sequencia()''    Dim x, y, z, a, b     On Error GoTo Sai    x = InputBox(Prompt:="Digite a 1ª célula")    y = InputBox(Prompt:="Digite a última célula")    a = InputBox(Prompt:="Digite o primeiro nº")    b = "" & x & ""    z = "" & x & ":" & y & ""    Range(b).Select    Range(b) = a    Selection.AutoFill Destination:=Range(z), Type:=xlFillSeries    Range(z).Select    Selection.Font.Bold = True    Range(b).SelectSai:End Sub …

Como se pode verificar, ao utilizar-se a Função para dar o Total, pode mencionar-se o Range que inclui os subtotais, porque estes são, pura e simplesmente, ignorados!

Por vezes, podemos ter necessidade de limpar o conteúdo de determinadas células que se encontram desprotegidas numa worksheet com protecção, para termos a possibilidade de as preencher novamente com novos valores: O resultado obtido por clicar no botão de comando "Limpar Entradas" será a limpeza das células B1:B3 e B5:B7 : O Código: Private Sub CommandButton1_Click()     For Each Cell In …

No seguinte exemplo, temos uma tabela de nomes: Se pretendermos aplicar um filtro com utilização de um procedimento em VBA, teremos O resultado será: Para desfazer o filtro, podemos utilizar novamente o mesmo procedimento em VBA, desta vez só com a utilização do wildcard "*" (asterisco) : O resultado será o aparecimento da tabela, de novo já sem filtro efectuado: …