Planilha Excel VBA Shapes 22 mostrar formulas em autoformas

<script>
<script>

Planilha Excel VBA Shapes 22 mostrar formulas em autoformas
Neste exemplo com macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como inserir as fórmulas em uma Autoforma (Shapes) por comandos no teclado. Para isso deverá selecionar a célula onde existe a fórmula, neste caso,  as formulas inicia-se na célula F20  observem que gravei um macro primeiramente, atribui teclas (Ctrl + f; Ctrl + x, Ctrl + E ) depois acrescentei o código
logo abaixo dos comentários.

Usar comandos no teclado para exibir formulas em Shapes ‘Autoformas ‘ Exibir e Deletar.
Ctrl + f: Exibe a fórmula na célula ativa em uma forma
Ctrl + x: Exibe as fórmulas em uma coluna em formas
Ctrl + E: Apaga todas as formas

Para uso em outro livro, o livro deverá ficar aberto por causa dos macros e gravação dos comandos das teclas
ou grave um macro atribuindo as teclas acima Ctrl + f; Ctrl + x, Ctrl + E
e acrescente os códigos abaixo das atribuições, deve manter os comentários do gv(Gravador de Macros)

Sub sbx_apagar_formulas()

‘ apagar shapes formulas Macro
‘ Macro gravada em 01/10/2014 por Escola SaberExcel VBA Estudos

‘ Todos shapes tecle : Ctrl+e

ActiveSheet.DrawingObjects.Delete
End Sub

Sub sbx_inserir_formulas_shapes()

‘ sbx_inserir_formulas_shapes
‘ Macro desenvolvida em 01/10/2014 par Escola Saberexcel VBA Estudos

‘ Todos os Shapes tecle: Ctrl+f

If ActiveCell.Formula = “” Or ActiveCell.HasFormula = False Then Exit Sub
Set c = ActiveCell
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, Len(c.Formula) * 5, 9).Select
Selection.Characters.Text = c.Formula
Selection.Font.Name = “Arial”
Selection.Font.Size = 7
Nome = “Shape” & c.Row & c.Column
Selection.Name = Nome
ActiveSheet.Shapes(Nome).Left = ActiveCell.Offset(0, 1).Left + 3
ActiveSheet.Shapes(Nome).Top = ActiveCell.Top + 1
End Sub

Sub sbx_adicionar_todas_formulas_shapes()

‘ sbx_adicionar_todas_formulas_shapes Macro
‘ Macro gravada em 20/04/2014 por Escola Saberexcel VBA Estudos®

‘ todas as formulas em shapes: Ctrl+x

If ActiveCell.Formula = “” Or ActiveCell.HasFormula = False Then Exit Sub
ActiveSheet.DrawingObjects.Delete

For Each c In Range(ActiveCell, ActiveCell.End(xlDown))
Largura = Len(c.Formula)
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, Largura * 6, 9).Select
Selection.Characters.Text = c.Formula
Selection.Font.Name = “Arial”
Selection.Font.Size = 7
Nome = “Shape” & c.Row
Selection.Name = Nome
ActiveSheet.Shapes(Nome).Left = c.Offset(0, 1).Left + 3
ActiveSheet.Shapes(Nome).Top = c.Top + 1
Next c
End Sub

 


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

 

Compre pelo PagSeguro   Compre pelo PayPal
excel-vba-treinamento-pagseguro  
     
 Material Didático: Curso Excel VBA Expert 
 
excel vba treinamentos planilhas
 
 
 Baixe o exemplo de planilha contendo os macros acima:
iconPlanilha Excel VBA Shapes 22 mostrar formulas em autoformas
<<Download Link :  Verifique também a Caixa de Itens Excluídos >>
 


    iconPlanilha Excel VBA Shapes 22 mostrar formulas em autoformas

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *