Adicionado em: | 19/11/2010 |
Modificado em: | 19/11/2010 |
Tamanho: | Vazio |
Downloads: | 748 |
Saberexcel - site das macros
Macro do Aplicativo Microsofoft Excel VBA, formata o comentário em uma determinada planilha com a cor verde de fundo e a fonte em azul é.
Sub formata_cores_comentario()
Dim Wsh As Worksheet, vComentario As Comment
For Each Wsh In Worksheets
For Each vComentario In Wsh.Comments
vComentario.Shape.OLEFormat.Object.AutoSize = True
With vComentario.Shape.OLEFormat.Object.Font
.Name = "Tahoma"
.Size = 10
.ColorIndex = 5 'cor número cinco refere-se a cor Azul
End With
vComentario.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 '
Next vComentario
Next Wsh
End Sub
Aprenda Microsoft Excel VBA (( SaberExcel ))
Adicionado em: | 13/12/2010 |
Modificado em: | 13/12/2010 |
Tamanho: | Vazio |
Downloads: | 738 |
Macro microsoft excel vba insere texto em comentario a partir de determinadas células.
Macros do Aplicativo Microsoft Excel VBA, inserem textos em um objeto Comentário através de célula, alternando-os.
Sub Texto_da_celula_no_comentario()
[F12] = "Texto da célula no comentário"
[F18] = "Saberexcel - o site das macros!"
[F25] = "Aprenda Microsoft Excel VBA com Qualidade - Saberexcel"
On Error Resume Next
Dim sb As Range
sb = Range("F12,F18,F25").Select
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next
End Sub
Sub Texto_da_celula_no_comentario_1()
[F12] = "Aprender Macros Microsoft Excel VBA"
[F18] = "Esforço, boa vontade e necessidade de aprender!"
[F25] = "Muitos alunos já se profissionalizaram, produzem belos exemplos"
On Error Resume Next
Dim sb As Range
sb = Range("F12,F18,F25").Select
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next
End Sub
Aprenda Microsoft Excel VBA com qualidade Saberexcel
Projeto aprenda em casa, sozinho, com baixo custo
Adicionado em: | 19/11/2010 |
Modificado em: | 19/11/2010 |
Tamanho: | Vazio |
Downloads: | 734 |
Saberexcel - site das macros
Anota no comentário as vezes que a célula foi acessada e os dados modificados
Essa macro do Aplicativo Microsoft Excel VBA, anota todas vezes que acessar a célula(E5) e fazer alguma modificação, mostrando a palavra inserida, hora e data do acesso. Observe que usei o Evento Worksheet_Change (No módulo de código da planilha)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Row <> 5 Then Exit Sub
Dim ccc As String
ccc = Format(Date + Time, "mm/dd/yy hh:mm") _
& " " & Target.Value ' -- Application.UserName
If Target.Comment Is Nothing Then
Target.AddComment.Text ccc
Else
Target.Comment.Text (Target.Comment.Text & Chr(10) & ccc)
End If
Target.Comment.Shape.TextFrame.AutoSize = True
End Sub
Aprenda Microsoft Excel VBA (Saberexcel)
Adicionado em: | 29/03/2011 |
Modificado em: | 29/03/2011 |
Tamanho: | Vazio |
Downloads: | 734 |
Saberexcel - O site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), seleciona todas as células que contém comentario na folha de planilha.
Sub Seleciona_celulas_todos_comentarios()
Cells.SpecialCells(xlCellTypeComments).Select
MsgBox ("Todos os comentários selecionados"), vbInformation, "Saberexcel - site das macros"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adicionado em: | 19/11/2010 |
Modificado em: | 19/11/2010 |
Tamanho: | Vazio |
Downloads: | 730 |
SaberExcel VBA Estudos®
Essa macro do Aplicativo Microsoft Excel VBA, insere um comentário formatado em vermelho, na célula ativa da folha de planilha, o retorno do comentário é auxiliado por uma inputbox,
Option Explicit
Sub Comentario_Celula()
Dim rnCell As Range
Dim SbNome As String
Dim vlr_Comentario As Variant
Dim iEventos As Integer
Dim resposta As String
SbNome = Application.UserName
Set rnCell = ActiveCell
With rnCell
'Caso nao exista comentario na celula
resposta = MsgBox("Deseja inserir um comentario na célula ativa?", vbYesNo, "Saberexcel - site das macros")
If resposta = vbYes Then
If .Comment Is Nothing Then
'Comentario digitado pelo usuario
vlr_Comentario = Application.InputBox _
("Digite seu comentario:", "Comentario na celula e formata", Default:="Saberexcel.com", Type:=2)
'fecha a caixa de dialogo com o botao cancelar
If vlr_Comentario = False Then Exit Sub
'Aqui é o nome do usuario e o comentario da celula
.AddComment Text:=SbNome & ":" & vbLf & vlr_Comentario
'Aqui formata a celula do comentario
With .Comment.Shape.TextFrame
With .Characters.Font
.Size = 11
.ColorIndex = 3
.Name = "Arial"
End With
.AutoSize = True
'o nome do usuario em negrito
.Characters(Start:=1, Length:=Len(SbNome)).Font.Bold = True
End With
Else
'verifica se a celula já tem comentario
iEventos = MsgBox("Deseja remover a célula comentário ?", vbYesNoCancel, "Excluir Comentario")
Select Case iEventos
Case vbYes
.Comment.Delete
Exit Sub
Case vbCancel
Exit Sub
Case vbNo
vlr_Comentario = Application.InputBox _
("Digite o texto comentar aqui :", "Inserir / Editar célula comentário ", Default:="Saberexcel.com", Type:=2)
If vlr_Comentario = False Then Exit Sub
.Comment.Delete
.AddComment Text:=SbNome & ":" & vbLf & vlr_Comentario
End Select
End If
End If
End With
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub
Aprenda tudo sobre Aplicativo Microsoft Excel VBA com Saberexcel
Baixe o exemplo de planilha contendo a macro acima
Publicidade:
Compre com segurança, garantia e preços baixos nas lojas submarino
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA