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: | 21/12/2010 |
Modificado em: | 21/12/2010 |
Tamanho: | Vazio |
Downloads: | 550 |
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: | 08/03/2011 |
Modificado em: | 08/03/2011 |
Tamanho: | Vazio |
Downloads: | 349 |
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: | 29/03/2011 |
Modificado em: | 29/03/2011 |
Tamanho: | Vazio |
Downloads: | 779 |
- Saberexcel - o site das Macors
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna a quantidade de comentários existente em uma determinada folha de planilha, neste caso em particular, usamos a planilha ativa.
Sub Contando_Comentarios_planilha()
Dim vConta_Comentario As Integer
Dim vCelula As Range
Dim sbx As String
' Sai do procediemtno se não houver comentários na folha de planilha
vConta_Comentario = 0
For Each vCelula In ActiveSheet.UsedRange
On Error Resume Next
sbx = vCelula.Comment.Text
If Err = 0 Then vConta_Comentario = vConta_Comentario + 1
Next vCelula
If vConta_Comentario = 0 Then
MsgBox "Nesta folha de planilha ativa, não há comentários!", vbInformation, "Saberexcel - site das macros"
Else
MsgBox "Nesta folha de Planilha existem: [ " & vConta_Comentario & " ] comentarios!", vbInformation, "Saberexcel - site das macros"
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos 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