VBA

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 …

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: …

Se pretendermos que o(s) nome(s) filtrados apareçam numa ListBox na WorkSheet, criam-se: uma ListBox e um botão de comando, ambos a partir do Control ToolBox. Depois, com um pouco de VBA, podemos efectuar o filtro, como nos mostra a seguinte sequência: 1º – Para chamar o procedimento: 2º – Define-se o filtro: 3º – O resultado será: O Código: Private …

Se quisermos, em vez de criarmos uma ListBox na própria Worksheet, podemos criá-la num UserForm. Vejamos o exemplo: Usamos o mesmo tipo de InputBox, já mostrado anteriormente: O resultado será: Para aparecer a ListBox, temos então que criar um UserForm no editor de VBA, como o que segue: Depois, inserimos a ListBox no UserForm: Por fim, nas propriedades da ListBox, …