Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 416 |
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)--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 596 |
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))--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 552 |
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
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 717 |
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
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 744 |
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
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA