Acesso Livre - Registrados (REGISTRE-SE!)
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
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 823 |
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: | 826 |
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 )))--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 878 |
Saberexcel - o site das macros
Esse exemplo de fórmulas do Aplicativo Microsoft Excel VBA, insere em determinada célula uma fórmula matricial Soma(se()) e Somase(), que somará valores de determinadas ocorrencias de ítens na coluna(A)
Fruta | Valor |
Laranja | 10 |
Maça | 14 |
Laranja | 20 |
Uva | 30 |
Pessego | 50 |
Pera | 10 |
Laranja | 14 |
Uva | 12 |
Uva | 87 |
Laranja | 25 |
Laranja | 37 |
Fórmulas usadas
'=SOMA(SE(($A$2:$A$12="Laranja");($B$2:$B$12)))
ou
=SOMASE($A$2:$A$12;$F$1;$B$2:$B$12)
Aprenda Microsoft Excel VBA com SaberExcel
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 967 |
Esta macro do Aplicativo Microsoft Excel VBA, seleciona e ou deleta todas as células
com fórmula, somente as células que contenham fórmulas
Sub Seleciona_todas_Celulas_Com_Formulas()
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'Selection.ClearContents
'Selection.Delete
End Sub
Aprenda Microsoft Excel VBA(Visual Basic Application) --((SaberExcel))--
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