Adicionado em: | 26/01/2011 |
Modificado em: | 26/01/2011 |
Tamanho: | Vazio |
Downloads: | 579 |
O Site das Macros excel vba
Essa macro do Aplicativo Microsoft Excel VBA (Visual Basic Application) , insere o contéudo do comentário na célula, onde esta o comentário.
Option Explicit
Sub Salvar_comentario_na_celula()
Dim vCelula As Excel.Range
Dim vComentario As String
Dim vContador As Integer
With Sheets("Plan1")
On Error Resume Next
For Each vCelula In .UsedRange.Cells
vComentario = ""
vComentario = vCelula.Comment.Text
If vComentario <> "" Then
vContador = InStr(vComentario, ":")
If vContador > 0 Then
vComentario = Right(vComentario, Len(vComentario) - vContador - 1)
End If
vCelula = vComentario
End If
Next
On Error GoTo 0
End With
End Sub
Sub limpar_teste()
[H6,G17].Value = ""
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel
Adicionado em: | 21/12/2010 |
Modificado em: | 21/12/2010 |
Tamanho: | Vazio |
Downloads: | 550 |
Adicionado em: | 13/12/2010 |
Modificado em: | 13/12/2010 |
Tamanho: | Vazio |
Downloads: | 803 |
{jcomments on}
vba_comentario_ajusta_tamanho_do_comentario_selecionado
Essa macro do Aplicativo Microsoft Excel VBA, ajusta comentarios em determinadas células selecionadas
neste caso o código selecionará os comentarios nas células(D6;E16;G27).
foi inserido intensionalmente mais algumas fórmulas para auxilar o teste,
(Aumenta o tamanho do comentário, ao mesmo tempo em que insere dados digitado na célula ativa)
Sub Auto_ajuste_comentarios_selecionados()
On Error Resume Next
Dim Sbx As Range
Dim vMinhaRange As Range
[D6,E16,G27].Select
Set vMinhaRange = Selection
For Each Sbx In vMinhaRange.Cells
With Sbx.Comment
.Shape.TextFrame.AutoSize = True
End With
Next Sbx
vMinhaRange.Select
[D6].Value = "Ajustando comentario"
Adiciona_Comentario_com_texto
End Sub
Macro auxiliar para o teste de ajuste, aumenta o tamanho
do comen-tario para realização do teste da macro acima, observem que a macro
Sub Adiciona_Comentario_com_texto, adiciona o texto da célula D6 no primeiro
comentário, finalidade didática .
Sub Alterando_tamanho_teste()
Dim sb As Object
For Each sb In ActiveSheet.Comments
sb.Shape.Width = 144
sb.Shape.Height = 72
Next sb
[D6].Value = "Alterando tamanho para o teste!!"
Adiciona_Comentario_com_texto
End Sub
Essa macro foi usada também como auxiliar ao ser chamada insere os dados da célula(D6) no comentário.
Sub Adiciona_Comentario_com_texto()
On Error Resume Next
[D6].AddComment
[D6].Comment.Text Text:=[D6].Text
End Sub
Aprenda Microsoft Excel VBA com qualidade
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: | 521 |
Macros do Aplicativo Microsot Excel VBA, inserem uma determinada altura em comentarios.
Esta macro insere determinada altura no comentário
Sub Alterar_altura_comentarios()
[E5] = "Comentario com Altura(20)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 20
Next sb
End Sub
Macro auxliar para efeturar o teste.....
Sub Alterar_altura_comentarios_II()
[E5] = "Altura alterada para(60)"
Texto_no_comentario
On Error Resume Next
Dim sb As Comment
For Each sb In ActiveSheet.Comments
sb.Shape.Height = 60
Next sb
End Sub
Macro auxiliar com finalidade didática usada para o teste do usuário
Esta macro insere dados da célula ativa no comentario
Sub Texto_no_comentario()
On Error Resume Next
Dim sb As Range
For Each sb In Selection
sb.Comment.Text Text:=sb.Text
Next
End Sub
Aprenda Microsoft Excel VBA com qualidade - Saberexcel
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