Aprendendo a programar em VBA

2 Dados x e y como parâmetros range, retorne z=|x1y1|+|x2y2|+…+|xn.yn|

Criar função Prod Abs (x as range, y as range) as long

3Desenhe uma janela para entrar nome, sobrenome e pronome de tratamento (sr, Sra, Srta) e registre em uma planilha o nome completo mais pronome de tratamento (coluna A) e Data de registro (coluna B)

4 Crie uma macro que elimina valores repetidos em um range fornecido como parâmetro (vetor) (dica: use gravador de macro e entenda a função dados-> remover duplicatas)

 

respostas:

2:    Function ProdAbs(x As Range, y As Range) As Long

Dim CounterX As Long
Dim CounterY As Long

CounterX = 0
CounterY = 0
ProdAbs = 0
For Each xn In x.Cells
CounterX = CounterX + 1
CounterY = 0
For Each yn In y.Cells
CounterY = CounterY + 1
If CounterX = CounterY Then
ProdAbs = ProdAbs + Abs(xn.Value * yn.Value)
End If
Next
Next
End Function

3:Private Sub CommandButton1_Click()

Sheets(“Sheet1″).Select
If Range(“A2″) = “” Then
linha = 2
Else
Range(“A2″).Select
Selection.End(xlDown).Select
linha = ActiveCell.Row + 1

End If

Cells(linha, 1) = TextBox1 & ” ” & TextBox2 & ” ” & ComboBox1
Cells(linha, 2) = Date

End Sub

 

4:Sub DeleteDups()

Dim x As Long
Dim LastRow As Long

LastRow = Range(“A65536″).End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range(“A1:A” & x), Range(“A” & x).Text) > 1 Then
Range(“A” & x).EntireRow.Delete
End If
Next x

End Sub