EXCELer Tudo sobre EXCEL em Português

Se pretendermos ver um formulário (que criámos anteriormente) ao efectuarmos duplo clique numa célula de uma worksheet, acedemos ao código dessa worksheet (clicando no tabulador com a tecla direita do mouse): e escrevemos o seguinte código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    UserForm1.Show    Cancel = TrueEnd Sub Ao fazer-se duplo clique em qualquer célula da worksheet1, o resultado será …

Se pretendermos que a visualização do UserForm seja limitado a um ou vários Ranges, então podemos inserir o seguinte Código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng1 As Range, rng2 As Range Set rng1 = Range("a1:a10")Set rng2 = Range("b1:b10")          If Not Intersect(Target, rng1) Is Nothing Then         UserForm1.Show    Else        Cancel = True    End If     If Not Intersect(Target, rng2) Is …

De acordo com os dois posts anteriores, torna-se evidente que, usando o evento Worksheet_BeforeDoubleClick, será também possível mostrar mais do que um Userform: Se fizermos duplo clique numa das células do Range A1:A5, o resultado será: Se fizermos duplo clique numa das células do Range B1:B5, o resultado será: O Código: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) …

Como é sabido, o Excel apenas dá a possibilidade de incluir 3 formatações condicionais: Mas, com um pouco de código VBE, é possí­vel incluir muitas mais formatações condicionais. Para tanto, basta clicar com a tecla direita do rato no tabulador da folha: escolher "Ver Código" e escrever o seguinte: Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Cells.Count > 1 Then Exit …

Se pretendermos ver a quantidade de ocorrências contidas num determinado Range de células (no exemplo, o Range é A1:A5 e está formatado como data na forma dd-mmm e as ocorrências pretendidas são "Jan" e "Fev"), podemos utilizar a seguinte fórmula:

Se pretendermos preencher uma coluna com a sequência de uma série iniciada na coluna adjacente, digitam-se os dois primeiros números sequenciais na coluna que se pretende preencher: marcam-se as duas células e no canto inferior direito faz-se um duplo clique. O resultado é o preenchimento sequencial da coluna, tomando por base a coluna adjacente anterior: Esta Dica foi retirada de …

Em Excel Pragma, foi apresentada uma Função definida pelo utilizador, a qual, porque prática, aqui apresento, a título de exemplo: O Código: Public Function ConcSep(InCells As Range, Sep As String) As String    Dim OutStr As String    Dim Cell As Variant        OutStr = ""    If InCells Is Nothing Then Exit Function    On Error Resume Next    For Each Cell In InCells        OutStr = OutStr & Cell.Value & Sep    Next Cell    OutStr …