Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 616 |
SaberExcel - o site das Macros
Esta macro do Aplicativo Microsoft Excel VBA, localiza a linha da última célula usada, e retrona uma msgbox,
na coluna A a partir da celula A1.
Excel VBA Estudos® >> www.saberexcel.com >> Escola de Informática
Sub Ultima_linha_celula()
Dim vlCelBusca As Long
On Error Resume Next
'Essas linhas comentadas abaixo você poderá usar como um ["Verfica Inconsistência"] se tal célula estiver vazia msgbox e sai da macro.
'If Sheets("Plan2").Cells(1, 1) = "" Then
' MsgBox ("É so digitar algo na Coluna A, Blz!"), vbInformation, "Saberexcel.com"
' Encontrar a última linha, que forneceu um texto ou valor.
' faz a busca aqui...
' Exit Sub
'Else
vlCelBusca = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox "A Linha ULTIMA CELULA usada esta na linha é : " & vlCelBusca, vbInformation, "Saberexcel.com"
Sheets("Plan2").Cells(2, 3) = "A Linha ULTIMA CELULA usada esta na linha : - " & vlCelBusca
'End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 18/11/2010 |
Modificado em: | 18/11/2010 |
Tamanho: | Vazio |
Downloads: | 609 |
Saberexcel - o site das macros
Essse exemplo do Aplicativo Microsoft Excel VBA, contém macro que utilizando da Instrução Select Case, seleciona determinada células na folha de planilha e em seguida abre uma caixa de diálogo, (existem centenas de caixas de diálogo), e insere nas Células[C3] e [C4], o número do botão que foi executado como também a célula que foi selecionada pela instrução Select Case . Detalhe, observe que todos os shapes(Autoformas) que representam os botões , botão1, botão2, foram antecipadamente renomeados observem na caixa de nome.
Option Explicit
Sub Seleciona_celula_mostra_FC()
Select Case Application.Caller
Case "botao1"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão 1"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao2"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [2]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao3"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [3]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao4"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão [4] "
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao5"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [5]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao6"
Range("E2").Select
[C3].Value = "Voce Acionou o Botão [6]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao7"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [7]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao8"
Range("G2").Select
End Select
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub
Aprenda tudo sobre o Aplicativo Microsoft VBA com SaberExcel
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
Adicionado em: | 07/01/2011 |
Modificado em: | 07/01/2011 |
Tamanho: | Vazio |
Downloads: | 570 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, desloca celulas baseados em valores de variáveis, atribuidos para linhas e colunas,
observe que para um melhor entendimento usei uma operação matematica (linha-1) .
Exemplo selecionará celula (L10) - uma linha = ( L9)
Sub deslocando_para_celula()
Dim AR As Integer
Dim AC As Integer
AR = 10 'Linha 10
AC = 12 'coluna 12
Cells(AR - 1, AC).Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com os produtos didáticos Saberexcel
Adicionado em: | 29/07/2011 |
Modificado em: | 29/07/2011 |
Tamanho: | Vazio |
Downloads: | 0 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento ..Open() do módulo de Edição de Códigos do Livro(Workbook), abirá o userform na planiha desejada, observe no código vba que selecionamos a planilha primeiramente e depois mandamos abrir o userform.
Esse Evento Workbook_Open ocorre na abertura (Inicialização) do Livro.
Private Sub Workbook_Open()
Sheets("Plan3").Select
UserForm1.Show
End Sub
'----'
Imagem de como proteger células manualmente, se quiser poderá gravar a macro com os passos de proteção de células.
para o treinamento.
O Aluno(Leandro) solicitou que fizessemos um passo a passo de como proteger células na determinada Folha de Planilha para evitar a
a digitação nas células e ou seleção nestas células protegidas. Fizemos uma imagem (abaixo) desse procedimento) manualmente e também,
via macro, como é um assunto para iniciantes usamos o GM(Gravador de Macros) já logo na explicação, usando o Gravador de Macros e resultou
nesta macro abaixo, que primeiramente desprotege todas as células da planilha, em seguida selecionamos nossas células ou uma área de células,
e marcamos nossas células como bloqueadas, isso significa que somente a nossas células ficaram bloqueadas, neste ponto voce poderá ir
em proteger planilha e selecionar os ítem selecionar células desbloqueadas, isso quer dizer que as células bloqueadas não poderão ser acessadas.
Veja a imagem abaixo. ( observem que o GM(Gravador de Macros) que é o assunto de nosso Curso Completo Microsoft Excel VBA, Saberexcel - Planilhas onteúdo Curso Completo Microsoft Excel Vba (791.91 KB)como Aprender a lidar com o Gravador de Macros(Gravar, depurar um código etc..), que é extremamente importante para aprendizes e ou já quem domina também a linguagem de programação ms excel vba. Expero que o exemplo possa ajudá-los, Fiquem com Deus. Expedito Marcondes
Código gerado pelo GM(Gravador de Macros) - automatizando dados ou formatação em uma folha de planilha
o esforço é fazer os passos no aplicativo corretamente para nao gravar códigos desnecessários.
Sub Macro1()
' Saberexcel_Treinamento VBA - Gravador de Macros
' Saberexcel - o site das macros
On Error Resume Next
'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("E5,F6,G7,H8,I9,J10,K11,L12,M13,N14,O15,P16,Q17").Select
Range("Q17").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Locked = True
Selection.FormulaHidden = False
Range("F10").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range("D7").Select
Plan2.Select
Range("D18").Select
End Sub
Sub limpar_cell()
ActiveSheet.Unprotect
Cells.Clear
Cells.Locked = True
[G1].Select
End Sub
Sub abrir()
UserForm1.Show
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos 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