Macro do Aplicativo Microsoft Excel VBA Selecione células com fórmulas
na folha de Planilha.

voce poderá também selecionar, vá à Caixa de Diálogo ou também (Tecle (F5),
e Especial) aparecerá a caixa de diálogo da imagem ao lado.

Essa macro seleciona todas as células com fórmulas na folha de planilha
Sub SelectFormulaCells()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
End Sub

Primeiro:
Observe "SpecialCells" nos arquivos de Ajuda de VBE assim vê o que outras
espécies de Células Especiais são disponíveis (espaços em branco, comentários etc.) "as Constantes" são outro modo de referenciar "Valores"

Segundo:
Se só uma célula for selecionada, todas as células na folha ativa serão procuradas. Se duas ou mais células forem selecionadas, só a seleção será procurada.

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, transforma as formulas relativas em fórmulas absolutas ou relativas e vice versa

Sub Formulas_relativa_absoluta()
[E21].Select
ActiveCell.Formula = Application.ConvertFormula _
(Formula:=ActiveCell.Formula, _
fromReferenceStyle:=xlA1, _
toAbsolute:=xlAbsolute)
[G21].Value = "<< ' =SOMA($B$17:$B$26) ( A B S O L U T A S )"
End Sub

Sub Formulas_absoluta_relativa()
[E21].Select
ActiveCell.Formula = Application.ConvertFormula _
(Formula:=ActiveCell.Formula, _
fromReferenceStyle:=xlA1, _
toAbsolute:=xlRelative)
[G21].Value = "<< ' =SOMA(B17:B26) << R E L A T I V A S >> "
End Sub

Especifica o estilo de referência de célula quando uma fórmula está sendo convertida.

Informação sobre versão
Version adicionada: Excel 2007

Aprenda Aplicativo Microsoft Excel VBA

SaberExcel VBA Estudos - o site das macros
Essas Funções do Aplicativo Microsoft Excel VBA, calculam descontos de acordo com o valor de compra, aqui fiz dois exemplos com as mesmas instruções, porém, usando duas estruturas de decisão (Instruções condicionais) diferentes. Estrutruras de decisão de instrução IF...THEN... ELSE.. END IF e SELECT CASE , que executam condicionalmente um grupo de instruções, dependendo do valor de uma expressão.

Function CalcPreço(quantidade As Integer)
If quantidade < 101 Then
CalcPreço = 10
ElseIf quantidade < 301 Then
CalcPreço = 9
ElseIf quantidade < 701 Then
CalcPreço = 8
Else: CalcPreço = 7
End If
End Function

Function CalcPreço(quantidade As Integer)
Select Case quantidade
Case 0 To 100: CalcPreço = 10
Case 100 To 300: CalcPreço = 9
Case 300 To 700: CalcPreço = 8
Case Is >= 701: CalcPreço = 7
End Select
End Function



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel




Publicidade
Compre com segurança, garantia e ótimos preços