Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 1045 |
Saberexcel - o site das macros
Macros do Aplicativo Microsoft Excel VBA, referenciando a células de vários modos, e didáticamente vamos fazer umas operações matemáticas com os alguns valores. No exemplo de planilha usei formatação condicional também com o sentido didático, para ajudar a quem precisa,
que foi objeto de busca em nosso site. Baixe o exemplo de planilha no final desta página.
Espero que o exemplo possa ajudá-los. Fique com Deus, Boa sorte.
Sub Exercicio_I()
exercicio_1 'usamos para ocultar o shapes na folha de planilha
x = Workbooks.Item(1).Worksheets.Item("Plan1").Range("D6")
Z = Workbooks.Item(1).Worksheets.Item("Plan1").Range("H6")
y = x * Z
Workbooks.Item(1).Worksheets.Item("Plan1").Range("F1") = y / 2
Workbooks.Item(1).Worksheets.Item("Plan1").Range("D9") = "Multiplicando celula(D6) pela Celula(H6) dividindo por 2, retornando resultado na célula(F1)"
End Sub
Sub Exercicio_II()
exercicio_2 'usamos para ocultar o shapes na folha de planilha
x = Range("D6")
Z = Range("H6")
y = x * Z
Range("F1") = y
Range("D9").Value = "Multiplicando celula(D6) pela Celula(H6) retornando resultado na célula(F1)"
End Sub
Sub Exercicio_III()
exercicio_3 'usamos para ocultar o shapes na folha de planilha
x = [D6]
Z = [H6]
A = [A1]
y = x * Z + A
[F1] = y
[D9].Value = "Multiplica a célula(D6) pela Celula(H6) e soma com o valor da célula(A1)"
End Sub
'nomeando as células e calculando valores a partir de váriaveis
Sub Exercicio_IV()
exercicio_4 ''usamos para ocultar o shapes na folha de planilha
x = [dado1] ' célula D6 nomeada como dados1
Z = [dado2] ' célula H6 nomeada como dados2
y = (x * Z) / 4 'multiplicando e dividindo por 4
[dado3] = y ' célula F1 nomeada como dados3
[D9].Value = "Multiplicando range nomeadas dados1 pela dados2 e dividindo por quatro"
End Sub
Sub Exercicio_V()
exercicio_5 'usamos para ocultar o shapes na folha de planilha
Cells(1, 1).Select 'referencia a célula(A1)
x = ActiveCell.Offset(5, 3).Value ' range.propriedade offset(desloc) para item D6
Z = ActiveCell.Offset(5, 7).Value ' range.propriedade offset(desloc) para item H6
ActiveCell.Offset(0, 5).Value = (x * Z) / 4 'range.propriedade offset(desloc) para item f1 resultado da multiplicação e divisao
[D9].Value = "Usando a range.propriedade OffSet(Desloc) para referenciar as celulas D6,H6,F1"
End Sub
Sub Oculta_Shapes()
For i = 1 To 60
On Error Resume Next
With ActiveSheet
.Shapes("txt" & i).Visible = False
End With
Next
[A1].Select
End Sub
Sub exercicio_1()
Oculta_Shapes
Saber1.Shapes("txt1").Visible = True
End Sub
Sub exercicio_2()
Oculta_Shapes
Saber1.Shapes("txt2").Visible = True
End Sub
Sub exercicio_3()
Oculta_Shapes
Saber1.Shapes("txt3").Visible = True
End Sub
Sub exercicio_4()
Oculta_Shapes
Saber1.Shapes("txt4").Visible = True
End Sub
Sub exercicio_5()
Oculta_Shapes
Saber1.Shapes("txt5").Visible = True
End Sub
Sub ver_macros_modulo_vbe()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no módulo VBE?", vbYesNo, "Saberexcel - site das macros")
If resposta = 6 Then '6 é igual a vbyes
Application.Goto reference:="Exercicio_I"
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Publicidade:
Compre com garantia, segurança e ótimos preços nas lojas SubMarino
Adicionado em: | 18/11/2010 |
Modificado em: | 10/06/2011 |
Tamanho: | Vazio |
Downloads: | 1995 |
Saberexcel - o site das macros
Estas macros do Aplicativo Microsoft Excel VBA, insere intermitência(piscando) na célula A1 e A8, ao encerrar a execução da macro, retira a formatação inserida, observe as macros abaixo, os loops foram programados para piscar 5(cinco) vezes, voce poderá alterá-los.
Dim NextTime As Date 'referente a ultima macro parar...
Sub Intermitente_Celula()
Range("A1").Select
For compteur = 1 To 5
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 2
End With
Application.Wait Now + TimeValue("00:00:01")
Application.Wait Now + (TimeValue("00:00:01")) / 2
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
Range("A1").ClearFormats
End Sub
Sub cor_letra_interminte() ' essa macro inserirá intermitência na celula A8
Dim nCarac, corAnt, corNovab, corNovac, corNovad
nCarac = Range("A8").Characters.Count
corAnt = Range("A8").Characters.Font.ColorIndex
corNovab = 55
corNovac = 6
corNovad = 12
For a = 0 To 15
For b = 1 To nCarac
Range("A8").Characters(Start:=b, Length:=1).Font.ColorIndex = corNovab
Next b
For c = 1 To nCarac
Range("A8").Characters(Start:=c, Length:=1).Font.ColorIndex = corNovac
Next c
For d = 1 To nCarac
Range("A8").Characters(Start:=d, Length:=1).Font.ColorIndex = corNovad
Next d
For e = 1 To nCarac
Range("A8").Characters(Start:=e, Length:=1).Font.ColorIndex = corAnt
Next e
Next a
End Sub
Macros abaixo trabalhando junsta, Parar chama a normal
Esta macro com condição if(se) -- se a cor for preta fica vermelha intermitente
Sub Normal()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Normal").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Normal"
End Sub
Sub Parar()
On Error Resume Next
Application.OnTime NextTime, "Normal", schedule:=False
'Application.OnTime chamar, "Normal", , False
ActiveWorkbook.Styles("Normal").Font.ColorIndex = xlAutomatic
End Sub
Sub ver_código()
SendKeys ("%{F11}")
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com 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