Blog Archive
-
▼
2005
(103)
-
▼
fevereiro
(17)
- Obrigado, John Walkenbach!
- VBA: Enviar dados do Excel para o WinWord
- VBA & Excel: Mais uma UDF
- VBA & Excel: Ainda a propósito de Comentários.
- VBA: Ainda o Comentário
- VBA: Inserir Comentários em Células
- Excel: a Função CLEAN() ou LIMPARB()
- Novo Blog de Excel
- Excel: Ainda a troca de posição do sinal menos (-)
- Excel: Trocar a posição do sinal (-)
- Novo Blog de Excel em Português
- Excel: Ainda a Função SUMPRODUCT()
- Excel: Ainda as Funções SUMPRODUCT() e TEXT(). Uti...
- VBE & Excel: Função definida pelo Utilizador - Con...
- Excel:Preenchimento de Colunas
- Excel: As Funções SUMPRODUCT e TEXT
- VBE: Formatação Condicional - mais do que 3 condições
-
▼
fevereiro
(17)
About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2005-02-19
VBA: Inserir Comentários em Células
11:28 da tarde |
Publicada por
JRod - PORTUGAL |
Editar mensagem
Para inserir o mesmo Comentário em várias células de um determinado Range:
Pode utilizar-se (adaptado ao/aos Ranges pretendidos) o seguinte Código:
Private Sub Worksheet_Change(ByVal Target As Range)
' Macro para criar um Comentário numa célula
Dim rng1 As Range
Dim MyComment
Dim Cell As Range
MyComment = "Comentário:" & Chr(10) & "Isto é um Teste!"
Set rng1 = Intersect(Range("a1:a5"), Target)
If Not rng1 Is Nothing Then
For Each Cell In rng1.Cells
Cell.ClearComments
Cell.AddComment
Cell.Comment.Visible = False
Cell.Comment.Text Text:=MyComment
Next
Else
Cancel = True
End If
End Sub
NOTA: o Código deve ser colocado na própria folha - tecla direita do rato no tabulador da folha e escolher "Ver Código".
Pode utilizar-se (adaptado ao/aos Ranges pretendidos) o seguinte Código:
Private Sub Worksheet_Change(ByVal Target As Range)
' Macro para criar um Comentário numa célula
Dim rng1 As Range
Dim MyComment
Dim Cell As Range
MyComment = "Comentário:" & Chr(10) & "Isto é um Teste!"
Set rng1 = Intersect(Range("a1:a5"), Target)
If Not rng1 Is Nothing Then
For Each Cell In rng1.Cells
Cell.ClearComments
Cell.AddComment
Cell.Comment.Visible = False
Cell.Comment.Text Text:=MyComment
Next
Else
Cancel = True
End If
End Sub
NOTA: o Código deve ser colocado na própria folha - tecla direita do rato no tabulador da folha e escolher "Ver Código".