EXCELer Tudo sobre EXCEL em Português

É com muito gosto que informo da existência de um Grupo de Discussão sobre Microsoft Office no Brasil, do qual sou, a partir de ontem, dia 28-12-2005, membro: Microsoft Users Group Rio Grande do Sul – Brasil.

Se tivermos preenchidas linhas, como no exemplo e pretendermos inserir linhas em branco após 4 linhas de dados, ou seja, sempre à próxima 5ª linha, podemos utilizar o seguinte Código, adaptado de Dave Peterson: Private Sub CommandButton1_Click() 'Adiciona 1 linha em branco após 4 linhas'Código original por: Dave Peterson        Dim iCtr As Long    Dim LastRow As Long    Dim myRng As Range        With ActiveSheet        LastRow = …

Por vezes podemos ter a necessidade de redefinir uma tecla para uma outra. No exemplo seguinte, redefine-se a tecla ENTER (incluindo a numérica) para a tecla TAB e provoca-se um avanço de uma coluna na mesma linha: Sub Auto_open()    Application.OnKey "~", "JumpNext"    Application.OnKey "{ENTER}", "JumpNext1"End Sub Sub JumpNext()    r = ActiveCell.Row    c = ActiveCell.Column     If c >= 1 Then        c = c + 1        r = …

Se tivermos um determinado Range de dados como no exemplo que se segue: e quisermos colorir as linhas totalmente em branco desse Range: Podemos utilizar um pouco de VBA. O Código: Private Sub CommandButton2_Click()    Dim RowNdx As Long    Dim LastRow As Long    Dim x    Dim y     LastRow = ActiveSheet.UsedRange.Rows.Count    For RowNdx = LastRow To 1 Step -1        On Error Resume Next        x = Cells(RowNdx, "A").Value = ""        y …

O MVP em Excel,Kirill Lapin, também conhecido por KL, apresentou uma alternativa ao post anterior, que pela sua qualidade e simplicidade, passo a referir: O Código: Private Sub CommandButton2_Click()    Dim r As Long    For r = UsedRange.Rows.Count To 1 Step -1        If Range("A" & r) = "" And Range("H" & r) = "" Then _            Range("A:H").Rows(r).Interior.ColorIndex = 48    Next rEnd Sub

Se pretendermos efectuar um cálculo para obter a diferença entre dois horários e sabermos o resultado em minutos, podemos utilizar, por exemplo, os seguintes métodos: E se a hora final for inferior à hora inicial, como no caso de a hora final ser já depois da meia-noite? Aqui, podemos utilizar a seguinte fórmula:

Num newsgroup, foi feita a seguinte pergunta: Será que é possivel num Range em que tenho números (1,2,3,4,5, etc.) acrescentar letras atrás (COL1,COL2,COL3,COL4,COL5, etc.) sem editar célula a célula? Selecciona-se o Range pretendido: Executa-se a macro: O resultado: O Código do exemplo, em VBA: Option Explicit Sub AdicionaTexto()     Dim rng As Range    Dim rngCell As Range    Const sCHARACTER As String = "COL" …