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 MS Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos checkboxes, através de um commandbutton no objeto userform, insere uma seleção em todos os checkboxes existentes, como também retira essa seleção. Observe que também voce poderá mudar a cor do frame, botão, userform, como também as fontes...

'Private Sub CommandButton1_Click()
' CheckBox1 = True
' CheckBox2 = True
' CheckBox3 = True
' CheckBox4 = True
' CheckBox5 = True
' CheckBox6 = True
' CheckBox7 = True
' CheckBox8 = True
' CheckBox9 = True
' CheckBox10 = True
'End Sub

'Prezado Silvio, o jeito que você estava fazendo também funciona, porém para fazermos isso em um só botão, fica melhor se fizermos da seguinte forma, usando um Loop For ... Next. Acredito que fica melhor, veja. Espero que o exemplo possa ajudá-lo Fique com Deus. Expedito Marcondes.

Private Sub CommandButton1_Click()
For i = 1 To 10
Controls("CheckBox" & i) = Not Controls("CheckBox" & i)
Next
'condição if somente para inserir no frame se os chekbox estão ou nao selecionados.
If CheckBox1 = True Then
Me.Frame1.Caption = "Checkboxes ATIVADOS!!"
Me.Frame1.BackColor = &HC0FFFF
Else
Me.Frame1.Caption = "Checkboxes Desativados!"
Me.Frame1.BackColor = &HFFFFC0
End If
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 MS Excel VBA

Esses macros usando a instrução Select Case, chama determinada macro de acordo com o nome atribuido ao botão renomeado(Shapes),
objeto botão da barra de formulario do Aplicativo do Excel

Sub sbx_botao_clique()
[D:D].ClearContents
Select Case Application.Caller
Case "btnUM"
MsgBox ("Botão 1 - Numeros Pares"), vbInformation, "Escola Saberexcel VBA Estudos®"
sbx_inserir_autonumeracao_pares
Case "btnDOIS"
MsgBox ("Botão DOIS - Numeros Impares"), vbInformation, "Escola Saberexcel VBA Estudos®"
sbx_inserir_autonumeracao_impares
End Select
End Sub

Sub sbx_inserir_autonumeracao_pares()
vLinha = 0
[D:D].ClearContents
For vLinha = 0 To 20
[d45000].End(xlUp).Offset(1, 0).Value = vLinha
vLinha = vLinha + 1
Next
End Sub

Sub sbx_inserir_autonumeracao_impares()
vLinha = 1
[D:D].ClearContents
For vLinha = [F1].Value To 20 Step 1
[d45000].End(xlUp).Offset(1, 0).Value = vLinha
vLinha = vLinha + 1
Next
End Sub

Sub sbx_limpar_teste()
[D:D].ClearContents
[G1].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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



 

SaberExcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.

Esses macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um SplashScreen, com duração de cinco(5) segundos, com auxílio de um Objeto Userform, após esses 5(cinco) segundos o procedimento fecha o Userform.


NA FOLHA DE EDIÇÃO DO OBJETO USERFORM INSIRA O SEGUINTE PROCEDIMENTO
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fechar_formulario"
End Sub

EM UM MODULO COMUM INSIRA OS SEGUINTES MACROS.
Sub Fechar_formulario()
ActiveWorkbook.RefreshAll
Unload frmSplash
End Sub

Sub Abrir_formulario()
frmSplash.Show 0
End Sub

NA FOLHA DE EDIÇÃO DO OBJETO WORKBOOK INSIRA O PROCEDIMENTO.
Private Sub Workbook_Open()
frmSplash.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

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