About Me
Estatisticas
5:04 da tarde | 
Publicada por
JRod - PORTUGAL
Depois de se ter instalado o Microsoft Office Service Pack 3 (SP3), não é possível abrir, no Microsoft Excel 2003, workbook files do Microsoft Excel 5.0/95 que contenham macros do Visual Basic for Applications (VBA) .
Ver mais em: Ajuda e Suporte Técnico Microsoft
Clicar no banner para aceder ao link.
Na próxima semana: 5 webcasts, um por dia, sempre às 15h
|
Se pretendermos verificar o número de ocorrências num determinado Range, sejam as ocorrências "MG", "VM", "PR" e "MD", como no seguinte exemplo:
podemos utilizar a seguinte fórmula, adaptada a cada uma das ocorrências:
="MG" & " " &SUMPRODUCT(--(RIGHT(A1:F2;2)="MG"))
="MV" & " " &SUMPRODUCT(--(RIGHT(A1:F2;2)="VM"))
="PR" & " " &SUMPRODUCT(--(RIGHT(A1:F2;2)="PR"))
="MD" & " " &SUMPRODUCT(--(RIGHT(A1:F2;2)="MD"))
Tópicos relacionados:
'---------------------------------------------------------------------------------------
' Procedure : Test
' DateTime : 05-10-2007 17:57
' Author : JRod
' Purpose : Apagar Row da célula activa na Sheet1 e 1ª Row da Sheet2
' : cuja entrada seja igual à célula activa
'---------------------------------------------------------------------------------------
'
Sub Test()
Dim c As Range, myRange As Range
On Error Resume Next
Set myRange = Sheets(2).Range("A1:A100")
For Each c In myRange
If c.Value = ActiveCell.Value Then
c.EntireRow.Delete
End If
Next c
ActiveCell.EntireRow.Delete
End Sub
' Procedure : Workbook_Open
' DateTime : 05-10-2007 18:00
' Author : JRod
' Purpose : Abre Macro com click no botão direito do rato
'---------------------------------------------------------------------------------------
'
Private Sub Workbook_Open()
Dim MyMenu As Object
Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _
.MenuItems.AddMenu("A minha Macro", 1)
With MyMenu.MenuItems
.Add "Test", "Test", , 1, , ""
End With
Set MyMenu = Nothing
End Sub
Tópicos relacionados:
Recebi hoje a seguinte mensagem da Microsoft:
" Dear Jorge Rodrigues,
Congratulations! We are pleased to present you with the 2008 Microsoft® MVP Award!".
Ou seja, fui galardoado, pelo 3º ano consecutivo, Microsoft MVP Excel!!!
URRA!!!