SaberExcel o Site das Macros
Adiciona uma planilha e formula de números aleatórios na nova planilha de Range(A1:D4)

Macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha ao wkb (workbook) e definir sua propriedade Visible como (Oculta), e inserir nesta nova planilha uma fórmula de números aleatórios, em determinada range, isto é, na range A1:D4.

Este exemplo cria uma nova planilha e, em seguida,define sua propriedade Visible como xlVeryHidden.Para referir-se à planilha, use sua variável de objeto, Nova_Planilha, como mostrado na última linha do exemplo.Para usar a variável de objeto Nova_Planilha em um outro procedimento,você precisa declará-la como uma variável pública (Public Nova_Planilha As Object) na primeira linha do módulo antes de qualquer procedimento Sub ou Function.

Sub Adiciona_Plan_e_Formulas()
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
End Sub

Observe a mesma macro, porém fiz uma pequena modificação para realização do teste do Desenvolvedor.
Sub Adiciona_Plan_e_Formulas()
Dim resposta As String

Application.DisplayAlerts = False 'nao emite e mensagem "deseja salvar...."
Sheets("Saberexcel").Visible = True
Sheets("Saberexcel").Delete 'na entrada da macro deleta a planilha existente.

Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Name = "SaberExcel"
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
Application.DisplayAlerts = False

resposta = MsgBox("Planilha [Saberexcel] criada com sucesso, ocultada, deseja visualizá-la?", vbYesNo + vbInformation, "Saberexcel - site das macros")

If resposta = 6 Then
Sheets("Saberexcel").Visible = True
End If

End Sub

Aprenda Aplicativo Microsoft Excel VBA --((( SaberExcel )))--

Macro do Aplicativo Microsoft Excel VBA, faz uma soma através do Visual Basic Application, inserindo a fórmula na célula(A1)
sendo a soma de determinado range (A2:A18), e em A1 adicione a soma o Texto "SOMA TOTAL", texto precedido da soma.

Sub Inserir_Formula()
Range("A1").Select
Range("A1").Formula = "=SUM(A2:A18)"
Selection.Formula = " Soma Total = R$ " & Range("A1").Value
End Sub



Aprenda Microsoft Excel VBA --(SaberExcel)--

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

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

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