Saberexcel - o site das macros

Estas macros do Aplicativo MicrosoftExcel VBA(Visual Basic Application), visualiza a fórmula inserida na célula C7, e outra apaga deixando somente o valor gerado por essa fórmula, também uma macro insere uma fórmula para realização do teste que insere a fórmula quando for apagada

'Esta macro mostra a fórmula inserida na célula (C5), antecida de um 'apostofre
Sub Visualizar_Formula_Cel_C7()
Range("C7") = "'" & Range("C7").FormulaLocal
End Sub

'Esta outra macro apaga a formula deixando o valor gerado
Sub Retorna_ou_apaga_formula_celula_C7()
Range("C7").FormulaLocal = Mid(Range("C7"), 1)
End Sub

'Esta macro insere a formula para realização do teste
Sub inserir_formula_teste()
Range("C7").FormulaR1C1 = "=SUM(RC[-2]:R[18]C[-2])"
End Sub


Aprenda Microsoft Excel VBA(Visual Basic Application) ---((SaberExcel))--

Saberexcel - o site das macros

Proteger as células com formulas com macro método validação dados
Macro do Aplicativo Microsoft Excel VBA, que proteja minhas fórmulas pela Validação de Dados,

Sub Proteger_Formulas()
Range("A1").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select

With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Existe Fórmula - não digite!"
.InputMessage = ""
.ErrorMessage = "Célula com Fórmula está protegida!!"""
.ShowInput = True 'Mude para FALSE para desproteger a células
.ShowError = True 'Mude para FALSE para desproteger a células

End With
End Sub



Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) --((SaberExcel))--

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica todos os valores digitados,
localiza a última célula e insere o valor Máximo, desloca mais uma linha e insere
o valor mínimo da coluna(A)

Sub Valor_Maximo_Minimo()
Dim i As Single

i = 1

Do While Cells(i, 1) <> "" 'Retorna a posição da linha da primeira célula
i = i + 1 ' na coluna "A" vazia
Loop

Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=MAX(R[-" & i - 1 & "]C:R[-1]C)" 'Inseri a fórmula
Cells(i, 1).Select

Cells(i + 1, 1).Select
ActiveCell.FormulaR1C1 = "=MIN(R[-" & i - 1 & "]C:R[-1]C)"

End Sub


Aprenda Microsoft Excel VBA --(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 - o site das macros
Essas fórmulas e macros do Aplicativo Microsoft Excel VBA, faz um controle de vendas de veículos, usa a Função Procv, para buscar a faixa de juros cobrados por cidade, são quatro cidades, neste exemplo usei options ligados a Função Procv (Procura na Vertical), que buscará os dados desejados e os retornará na folha de planiha na coluna desejada. Esses recursos com certeza o ajudará a montar seu projeto. baixe o exemplo para ajudá-lo. Obrigado a todos. Fiquem com Deus, E_Marcondes.


usada fórmula para concatenar os valores e retornar uma mensagem do resultado:

="Preço do [ "& C23& " ] para cidade de [ "& PROCV(J1;precos;2;FALSO)& " ]" &" Acrescimo de [ " &TEXTO(PROCV(J1;precos;3;FALSO);"00%")&" ]"& " Custo:[ "&TEXTO(C24;"R$ #.###,00")& "] Venda: [ "&TEXTO(C25;"R$ #.###,00")& " ]"








Aprenda Aplicativo Microsoft Excel VBA - SaberExcel