VBA

Supondo que é dado o valor da Receita Líquida e que o valor do Fundo é o resultado da fórmula Receita Bruta*Taxa, como apurar o valor dessa Receita Bruta? Uma possível resposta está no seguinte Código em VBE: '—————————————————————————————' Procedure : CommandButton1_Click' DateTime  : 31-12-2004 16:38' Author    : Jorge Rodrigues' Purpose   : Apuramento da Receita Bruta'—————————————————————————————'Private Sub CommandButton1_Click()    Dim ValLiq, Tax, Cem, iBox …

Inserção de dados numa folha (no exemplo denominada "DADOS") através de um formulário: Procedimento na folha: Definir o nome "Dados" para a tabela (através de Insert>Name>Define), com a Referência =OFFSET(Dados!$A$1;0;0;COUNTA(Dados!$A:$A);2) Procedimentos para o formulário: Procedimentos a usar: Private Sub CommandButton1_Click() ' Refere-se ao Botão do Formulário "ADICIONA"    Dim IntNext As Integer'Conta as linhas preenchidas existentes na grelha e adiciona 1    IntNext = …

Visto em: VBA Visual Basic for Applications (Microsoft) Forum O Código: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _    (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _    (ByVal hWnd As Long, ByVal nIndex As …

Código: Public nRow As Long 'Declara a Variável como Pública,no início do MóduloPrivate Sub UserForm_Initialize() ' Inicia o Form mostrando linha 2                                  '(1ª linha de dados)     If nRow < 2 Then        nRow = 2    End If     'mostra os dados    TextBox1.Text = Cells(nRow, "A")    TextBox2.Text = Cells(nRow, "B")    TextBox3.Text = Cells(nRow, "C") End Sub Private Sub CommandButton1_Click()    ' Botão Seguinte     nRow = nRow + 1    'Incrementa 1 linha 'mostra …

Em vez de utilizarmos Botões de Comando, podemos usar o SpinButton: O resultado no Formulário é: O Código: Private Sub SpinButton1_SpinUp()    nRow = nRow + 1    'Incrementa 1 linha 'mostra os dados    TextBox1.Text = Cells(nRow, "A")    TextBox2.Text = Cells(nRow, "B")    TextBox3.Text = Cells(nRow, "C")End Sub Private Sub SpinButton1_SpinDown()  If nRow = 2 Then    ' se a linha for a 2 (1ª linha de dados)    Exit Sub            'já não decrementa    Else        nRow …