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

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

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
Essa planilha do Aplicativo Microsoft Excel VBA, procura aleatóriamente a palavra do Senhor para você na planilha e retorna com auxílio de macros e e Fórmulas

Fórmula usada ......: =ÍNDICE(Plan1!$A$2:$B$300;CORRESP($G$1;Plan1!$A$2:$A$300;0);2)

Sub ALE()
Application.SendKeys ("{DEL}")
End Sub

Sub cont()
For i = 1 To Range("G1")
ALE
Next i

If Range("g1") = 0 Then
ALE
End If

End Sub

Sub começo()
[c2] = "estou fazendo a busca do que servirá para você"
End Sub

Sub fim()
[c2] = "Eis a palavra de Deus para você!"
End Sub



Aprenda Aplicativo Microsoft Excel VBA

SaberExcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, impede a formatação em células que contém fórmulas, aqui fiz um pequeno exemplo de como fazer um simples formatação em células que contém e ou não contém formulas. Poderá ser útil. Fique com Deus, E_Marcondes.

Sub Testar_Formulas()
Inserir_formato_branco
[C7].Font.ColorIndex = 5 'formata cor fonte azul
Range("C7").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
For Each cell In Range("C1:C8")
If cell.HasFormula = False Then
cell.Interior.Color = vbRed
End If
Next
[E7].Value = "Observe que EXITE FÓRMULA, portanto, macro impediu a formatação do interior da célula"
End Sub

Sub Inserir_formato_branco()
Range("C1:C8").Select
Selection.Interior.ColorIndex = 2
[C7].Font.ColorIndex = 1 'formata cor fonte preto
Range("L6").Select
[E7].Value = "Limpamos toda a formatação existente no range[C1:C8]"
End Sub

Sub Formatacao_sem_fórmulas()
[C7].Value = "12345" 'aqui quando voce executa a macro, automaticamente já apaga as formulas e insere o número para o teste
[C7].Font.ColorIndex = 2 'formata cor fonte branco
For Each cell In Range("C1:C8")
If cell.HasFormula = False Then
cell.Interior.Color = vbRed 'poderá ser a cor que desejar.
End If
Next
[E7].Value = "Veja: NAO EXISTE fórmula, macro INSERIU formatação no interior da célula"
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA