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

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), mostra os objetos TextBox desejados a partir de uma seleção no Objeto Combobox. Aproveitei para lhes mostrar como interagir com alguns outros objetos, formatando-os. É bem simples. Espero que o exemplo possa ajudá-los. Fiquem com Deus. Expedito Marcondes

Option Explicit

Private Sub ComboBox1_Click()
Dim i As Byte
'------------'
For i = 1 To 4
Controls("textbox" & i).Visible = False 'torna visivel a textbox(caixa de texto) desejada
Next i
Controls("textbox" & ComboBox1.ListIndex + 1).Visible = True
'------------'

'apenas formatação dos objetos (treinamento excel vba)
'observe que somente copiei a parte do código acima em laranja e inserí como Caption e ou Backcolor dos objetos desejados
Frame1.Caption = Controls("textbox" & ComboBox1.ListIndex + 1)
ComboBox1.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
Label1.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
Label2.ForeColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
frmSaberexcel_Treinamento.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
End Sub

(esse exemplo faz parte dos nossos módulos COMO FAZER - Programação MS Excel VBA)


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

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 MS excel VBA.

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos como TextBox, Labels e Frames, com intuíto didático, retorna a soma formatada em um Label(rótulo) com formatos para Moeda de todos os valores digitados na Textbox que retornam também para determinada coluna da folha de planilha, com isso fiz uma fórmula para auxiliar quem precisa usar alguma fórmula, que converte Euros em Reais, foi muito simples, usei um parâmetro de conversão em uma determinada célula e fiz uma formatação usando a função Texto(), como poderá ver na formula abaixo. Para melhor entendimento baixe o exemplo de planilha no link no final da folha de Planilha.
SABEREXCEL - Prática com Macros, Cursos vba, Modulos como Fazer, Funções de Planilha(VBA - observe que usei uma WorksheetFunction para retornar uma soma), não deixe de ler sobre as 340 PLANILHAS EXEMPLOS WORKSHEETFUNCTIONS VBA. Excel planilhas WorksheetFunctions Funções de Planilhas

Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
[D65000].End(xlUp).Offset(1, 0).Value = TextBox1.Value
Label1.Caption = Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €")
Frame1.Caption = "Valor Total: [ " & Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €") & " ]"
TextBox1.Value = ""
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Dim SBX As String, Start As Integer
SBX = TextBox1.Value
Start = TextBox1.SelStart

If SBX <> "" Then
If Right(SBX, 1) <> "€" Then
SBX = RTrim(SBX) & " €"
TextBox1.Text = SBX
TextBox1.SelStart = Start
End If
End If
End Sub

Private Sub UserForm_Initialize()
Label1.Caption = Format(Application.WorksheetFunction.Sum([D1:D100]), "#,000.00 €")
TextBox1.SetFocus
End Sub

usei essa fórmula para retornar um valor(Moeda) convertido de Euros para Reais, talvez possa ser útil para alguém.
="SOMA..: [ R$ "&TEXTO(SUBTOTAL(9;D2:D23);"#.000,00 €")&" ] = "&TEXTO(SUBTOTAL(9;D2:D23)*L1;"#.000,00")&" Reais"




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.

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o número da linha selecionado no objeto ComboBox, selecionando a linha pelo objeto ComboBox. Se a sua caixa de combinação é preenchida com todos os elementos em ordem (por exemplo, com a linha de código) ' ComboBox1.List=Range("A2:A" & Range("A65536").End(xlUp).Row).Value . Propriedade ListIndex fornece o número da linha correspondente. Dado que o primeiro elemento no índice 0, se inicia na linha 2 temos o número da linha ComboBox1.Listindex = + 2
Sugiro que baixe o exemplo de planiha no final da página para um melhor entendimento. Fiquem com Deus, Expedito Marcondes.

Private Sub UserForm_Initialize() 'carregar com a inicialização do Formulário(userform)
ComboBox1.List = Range("A2:A" & Range("A65536").End(xlUp).Row).Value
End Sub

Private Sub ComboBox1_Change() 'ao preencher(digitar) no objeto Combobox1
Cells(ComboBox1.ListIndex + 2, 1).EntireRow.Select 'selecionando a linha correspondente na folha de planiha
Set Area = Selection
Numero_Linha = Area.Row
MsgBox "Selecionou a linha: [" & Numero_Linha & "]" & " Selecionou ítem..: [ " & ComboBox1.Value & " ]", _
vbInformation, "Saberexcel - o site das Macros"
End Sub

Private Sub CommandButton1_Click()
Unload Me 'comando para fechar um formulário(Userform)
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

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