Escola Saberexcel VBA Estudos - o site de quem precisa aprender tudo sobre excel vba

Procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como inserir um moveicon em determinado objeto, neste caso vamos usar CommandButtons e Labels, pegamos uma figura do Super-Mário.
Junto inserí também um shapes(Autoforma) intermitente, isto é, uma autoforma que pisca 10 vezes na folha de planilha ao executar o macro.
Espero que o exemplo possa lhe ser útil. Baixe o exemplo de planilha no final da página com todas as explicações de como fazer.
Fique com Deus, Expedito Marcondes
' - - - - - - - - - - - - - - - - - - - - - - - - - -
PROCEDIMENTOS EXISTENTES NO MÓDULO DE CÓDIGO DO USERFORM.
'- - - - - - - - - - - - - - - - - - - - - - - - - -

Private Sub cmdICONE_Click()
On Error Resume Next
Saber1.Shapes("saber").Visible = True
[A13].Value = "......A-G-U-A-R-D-E---> 4 segundos......"
vTempo = Timer + 4 'definindo os quatro segundos para ocultar a imagem

Do While Timer < vTempo
DoEvents
Loop

Saber1.Shapes("saber").Visible = False
UserForm1.Show
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
Private Sub lblINTERMITENTE_Click()
Dim resposta As String

resposta = MsgBox("Já que clicou, quer aprender a fazer imagem intermitente", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then

sb = 0
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
Do While sb < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop

ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
sb = sb + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub

'onde queremos que o userform abra na folha de planilha (Altura e Esquerda)
Private Sub UserForm_Activate()
With frmICONE
.Top = Application.Top + 15 '
.Left = Application.Left + 17 '
End With
End Sub

Private Sub Label3_Click()
sbx_visualizar_shapes
End Sub

Private Sub cmdFECHAR_Click()
Unload Me
End Sub

' - - - - - - - - - - - - - - - - - - - - - - - - - -
EM UM MÓDULO COMUM INSIRA ESSE MACRO.
'- - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_intermitente()
'http://www.microsoftexcel.com.br
Dim resposta As String
resposta = MsgBox("deseja visualizar autoforma intermitente?..", vbYesNo, "Escola Saberexcel VBA Estudos®")
If resposta = 6 Then
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
n = 0
Do While n < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop
ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
n = n + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub

Sub sbx_visualizar_shapes()
ActiveSheet.Shapes("sbx_didaticos").Visible = True
Saber1.Shapes("saber").Visible = True
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox, com base na range nomeada, ao clicar em um ítem na caixa de combinação(Combobox) os valores retornarão para um Label(Rótulo) e também para determinadas células na folha de planiha, a inserção de dados acontecerá a medida que for selecionando os ítens da ComboBox. Espero que o exemplo seja útil.
Fiquem com Deus, E_Marcondes.

'Esse procedimento esta em uma planilha que faz parte do Modulos Como Fazer - Programação Microsoft Excel VBA
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Worksheets("Plan1").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
ActiveCell.Offset(0, 0).Value = "u" ' faz a formatação Wingdings (seta direita)
ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'vai inserir código do lado da célula ativa também
ActiveCell.Offset(1, 0).Select ' e selecionar a próxima linha
Label1.Caption = "Item..: [ " & ComboBox1.Value & " ] inserido com sucesso"
End Sub

Aprenda tudo sobre o Apliicativo Microsoft Excel VBA - Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel

Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Esse exemplo de procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o objeto ComboBox, retornam valores multi-dados, isto é, retornam valores classe relacionado ao código do produto, observe que a propriedade Offset esta direcionando para busca dos na coluna(A), da folha de planiha 'bd'. Observe que o valor retornado do código é automaticamente é inserido a correspondência do código. Baixe o exemplo de planiha contendo o procedimento com o Evento no final da página. Fiquem com Deus. Expedito Marcondes.

Private Sub ComboBox2_Change()
ComboBox1.Text = Sheets("bd").Range("A:A").Find(ComboBox2.Text).Offset(0, 1) 'buscando multidados classe baseado no código.
'Worksheets("bd").Range("A" & i + 1).Value = ComboBox1.Text 'somente para teste em outra folha de planilha.
'abaixo os códigos retornaram os valores para a folha de planilha sequencia a medida em que o combobox for sendo clicado.
[H65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1.Value
ActiveCell.Offset(0, 1).Value = ComboBox2.Value
'nesta linha de código retorna para célula [B12] os valores das combobox selecionadas,
[B12].Value = "Dados Selecionados - { CLASSE [ " & ComboBox1.Value & " ] ---- CÓDIGO...: [ " & ComboBox2.Value & " ] }"
[E1].Select
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

Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), mostram como carregar dados em um objeto Combobox,
de acordo com a

Private Sub ComboBox1_Click()
[L65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ComboBox1.Value
Frame1.Caption = "Nome inserido [ " & ComboBox1.Value & "]"
Frame1.ForeColor = H000040C0&
End Sub

Private Sub UserForm_Initialize()
'carregar uma combobox com auxílio de instrução with
With Worksheets("Auxiliar")
UserForm1.ComboBox1.List = .Range("B4:B" & .Range("B4").End(xlDown).Row).Value
End With
' UserForm1.ComboBox1.List = Saber1.Range("B4:B38").Value 'limitando o range
SendKeys "%{down}"
End Sub

Private Sub cmdFechar_Click()
Unload Me
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





Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - O site de quem precisa aprender Macros Microsoft Excel VBA.

Esses procedimentos do Aplicativo Microsoft Excel VBA, cadastra dados em determinada folha de Planilha, por meio de objetos textboxes.
' - - - - - - - - - - - - - - - -
Private Sub cmdLANCAMENTO_Click()
Dim vPALAVRA As Long

vPALAVRA = Plan1.Range("A65536").End(xlUp).Row + 1 'localiza a última linha +1 (célula vazia)
'poderá criar um verifica inconsistência para todos os ítens abaixo.
If txtNOME = "" Then
MsgBox ("Preencha os dados corretamente")
Exit Sub
End If

'observe a simplicidade do código, localiza as ultimas linha/colunas e grava dados
'Plan1 - é o nome da folha de código da folha de planilha, se o usuário mudar o nome da folha de planilha na aba,
'não ocorrerá erro, porque referenciamos o nome da folha de código da folha de planilha.

Plan1.Range("a" & vPALAVRA).Value = Me.txtNOME.Text
Plan1.Range("b" & vPALAVRA).Value = Me.txtENDERECO.Text
Plan1.Range("c" & vPALAVRA).Value = Me.txtBAIRRO.Text
Plan1.Range("d" & vPALAVRA).Value = Me.txtCIDADE.Text
Plan1.Range("e" & vPALAVRA).Value = Me.cboESTADO.Text
Plan1.Range("f" & vPALAVRA).Value = Me.txtCEP.Text
Plan1.Range("g" & vPALAVRA).Value = Me.txtTELEFONE.Text
Plan1.Range("h" & vPALAVRA).Value = Me.txtOBSERVACAO.Text

MsgBox ("Dados inseridos com sucesso"),vbInformation, "http://www.microsoftexcel.com.br"
lblCONTADOR.Caption = vPALAVRA 'mostrando o próximo codigo cliente, cada gravação

'limpando as TextBox depois de ter gravado os dados na folha de planilha
Me.txtNOME.Value = ""
Me.txtENDERECO.Value = ""
Me.txtBAIRRO.Value = ""
Me.txtCIDADE.Value = ""
Me.txtCIDADE.Value = ""
Me.cboESTADO.Value = ""
Me.txtCEP.Value = ""
Me.txtTELEFONE.Value = ""
Me.txtOBSERVACAO.Value = ""
Me.txtNOME.SetFocus 'retornando o cursor para o TextBox (txtNOME)
End Sub
' - - - - - - - - - - - - - - - -
'carregar a combobox com os estados ao inicializar, isto é ao abrir o formulário.
Private Sub UserForm_Initialize()
vPALAVRA = Plan1.Range("A65536").End(xlUp).Row + 1 ' numerar o proximo cadastro
lblCONTADOR.Caption = vPALAVRA
cboESTADO.List = Array("AC", "AL", "AP", "AM", "BA", "CE", "DF", "GO", "MA", "MG", "MT", _
"MS", "PA", "PB", "PR", "PE", "PI", "RJ", "RS", "RN", "RD", "SC", "SP", "SE", "TO")
End Sub
' - - - - - - - - - - - - - - - -

'fechar o formulário na conclusão das tarefas
Private Sub cmbSAIR_Click()
Unload Me
End Sub
' - - - - - - - - - - - - - - - -
'esse procedimento determina a localização de abertura do formulário na folha de planilha
Private Sub UserForm_Activate()
With frmCADASTRO
.Top = Application.Top + 149
.Left = Application.Left + 30
End With
End Sub
' - - - - - - - - - - - - - - - -
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.