Adicionado em: | 19/11/2010 |
Modificado em: | 19/11/2010 |
Tamanho: | Vazio |
Downloads: | 557 |
Saberexcel - o site das macros
Macro ao Aplicativo Microsoft Excel VBA, arredonda comentarios nos cantos
Sub Adiciona_arredondando_comentario()
Application.ScreenUpdating = False
On Error GoTo ErrorSaber
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
.Comment.Text Text:="Aprenda Microsoft Excel VBA com qualidade Saberexcel"
End With
With Selection
.Font.Size = 8
.ShapeRange.Shadow.Visible = msoFalse
.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
.ShapeRange.Adjustments.Item(1) = 0.25
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
ErrorSaber:
Application.ScreenUpdating = True
End Sub
'Macro auxiliar usada nos testes com medidas diferentes e arredondados nos cantos
Sub Adiciona_arredondando_comentario_II()
Application.ScreenUpdating = False
On Error GoTo ErrorSaber
With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
.Comment.Text Text:="Aprenda Microsoft Excel VBA com qualidade Saberexcel"
End With
With Selection
.Font.Size = 11
.ShapeRange.Shadow.Visible = msoFalse
.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 1.3, msoFalse, msoScaleFromTopLeft
.ShapeRange.Adjustments.Item(1) = 4.25
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
ErrorSaber:
Application.ScreenUpdating = True
End Sub
Macro auxiliar para os testes dos alunos desenvolvedores
Sub deleta_todos_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar todos os comentarios para teste?", vbYesNo + vbCritical, _
"Saberexcel - Site das Macros")
If resposta = 6 Then '=sim
For Each sb In ActiveSheet.Comments
sb.Delete
Next
End If
End Sub
Aprenda Microsoft Excel VBA(Visual Basic Application) com qualidade Saberexcel
Adicionado em: | 19/11/2010 |
Modificado em: | 19/11/2010 |
Tamanho: | Vazio |
Downloads: | 555 |
Macros do Aplicativo Microsoft Excel VBA, reposicionam todos os comentários na folha de planilha.
Saberexcel - o site das macros
Sub Reposisionando_todos_comentarios_planilha()
On Error Resume Next
Dim Sb As Comment
For Each Sb In ActiveSheet.Comments
Sb.Shape.Top = Sb.Parent.Top + 5
Sb.Shape.Left = Sb.Parent.Offset(0, 1).Left + 5
Next
End Sub
Sub Reposisionando_todos_comentarios_planilha_II()
On Error Resume Next
Dim Sb As Comment
For Each Sb In ActiveSheet.Comments
Sb.Shape.Top = Sb.Parent.Top + 60
Sb.Shape.Left = Sb.Parent.Offset(0, 1).Left + 15
Next
End Sub
Sub Reposisionando_todos_comentarios_planilha_III()
On Error Resume Next
Dim Sb As Comment
For Each Sb In ActiveSheet.Comments
Sb.Shape.Top = Sb.Parent.Top - 15
Sb.Shape.Left = Sb.Parent.Offset(0, 1).Left + 20
Next
End Sub
Aprenda Microsoft Excel VBA com qualidade Saberexcel
Adicionado em: | 21/12/2010 |
Modificado em: | 21/12/2010 |
Tamanho: | Vazio |
Downloads: | 550 |
Adicionado em: | 19/11/2010 |
Modificado em: | 19/11/2010 |
Tamanho: | Vazio |
Downloads: | 540 |
SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, formata o todos os comentários existentes
no livro, isto é em todas as folhas de planilhas.
1º.) - Formata o tamanho da fonte a ser empregada
2º.) - Determina o nome da fonte a ser empregada
3º.) - Formata a cor da fonte a ser empregada
4º.) - Mostra o email desejado em todos os comentários.
5º.) - Insere dados na célula(D17) e carrega o comentário com esses dados.
6º.) - Insere formato da fonte em negrito.
7º.) - Insere formato da da data e hora atual (Agora()).
Sub vba_comentario_formatando()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Dim Wsh As Worksheet, vMeuComentario As Comment
For Each Wsh In Worksheets
For Each vMeuComentario In Wsh.Comments
vMeuComentario.Shape.OLEFormat.Object.AutoSize = True
With vMeuComentario.Shape.OLEFormat.Object.Font
Range("D17").Comment.Text Text:= _
"Excel VBA Estudos®" & Now() & Chr(10) & " * Digite um valor menor que Célula E18! - << [email protected] >>"
.Name = "Courrier New"
.Size = 10
.ColorIndex = 12
.Bold = True
End With
vMeuComentario.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 27
Next vMeuComentario
Next Wsh
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub
Aprenda Microsoft Excel VBA(Visual Basic Application)
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