Adicionado em: | 17/02/2011 |
Modificado em: | 17/02/2011 |
Tamanho: | Vazio |
Downloads: | 1883 |
Saberexcel - site das macros
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) contém um exemplo de objeto Combobox(Caixa de Combinação), que que retorna dados para folha de planilha e também para o captions dos objetos dependendo do ítem selecionado no objeto combobox.
Retona valores selecionados para o captions Frame, UserForm, Labels, CommandButton, ComboBox e células.
♦ Observe que se o ítem na Combobox for igual a 'SABEREXCEL', muda os captions dos objetos senão, insere dados diferentes(objetos)
Private Sub ComboBox1_Change()
If ComboBox1.Value = "SABEREXCEL" Then
[B1].Value = ""
[B18].Value = "Quando você selecionar Saberexcel - veja os captions dos objetos"
TextBox1.Value = ComboBox1.Value
Label1.Caption = "Selecionou [ " & ComboBox1.Value & " ]"
CommandButton1.Caption = "Fechar"
UserForm1.Caption = "Saberexcel - site das macros"
Frame1.Caption = ComboBox1.Value
Else
[B1].Value = ComboBox1.Value
[B18].Value = "MUDANDO OS CAPTIONS E RETORNANDO NA CÉLULA B1"
TextBox1.Value = "Lançado na célula B1"
Label1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
CommandButton1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
UserForm1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
Frame1.Caption = "Item selecionado..: [ " & ComboBox1.Value & " ]"
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "SABEREXCEL"
ComboBox1.AddItem "Aprenda VBA"
ComboBox1.AddItem "Determinação"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), praticando com os produtos didáticos SaberExcel
Adicionado em: | 19/06/2011 |
Modificado em: | 19/06/2011 |
Tamanho: | Vazio |
Downloads: | 2008 |
SaberExcel - O Site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), soma determinados valores na própria Caixa de Texto(TextBox),
usando o Evento AfterUpdate(Ocorre depois que os dados de um controle são alterados através da interface do usuário) por ex: ao digitar 756+3837+938 = Ao teclar Enter, retornará o resultado da soma na própria caixa de texto(Textbox) = 5531
Private Sub TextBox1_AfterUpdate()
Dim iValor, vTabela, vNum, i
On Error Resume Next
TextBox1 = Evaluate(TextBox1.Value)
If Err.Number Then
TextBox1 = ""
Err.Clear
End If
iValor = Me.TextBox1.Value
vTabela = Split(iValor, "+")
vNum = 0
For i = 0 To UBound(vTabela)
vNum = vNum + vTabela(i)
Next
Me.TextBox1.Value = vNum
Frame1.Caption = "Total da Soma..:" & TextBox1.Value
'observe que aqui vou fazer um exemplo para voce aprender um pouco sobre a propriedade offset, que deslocará dados,
'de determinado objeto para a célula na folha de planilha - lembre-se( ....Offset(linha, Coluna).
'Não deixe de ler sobre COMO FAZER - Programação MS excel VBA -(Propriedade offset),
'de extrema importancia no aprendizado ms Excel VBA
[A65000].End(xlUp).Offset(1, 0).Value = "Total..: [ " & TextBox1.Value & " ]"
[A65000].End(xlUp).Offset(0, 2).Value = "Soma executada no próprio TextBox1."
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
Adicionado em: | 24/05/2011 |
Modificado em: | 24/05/2011 |
Tamanho: | Vazio |
Downloads: | 2070 |
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
Adicionado em: | 06/02/2012 |
Modificado em: | 06/02/2012 |
Tamanho: | Vazio |
Downloads: | 2636 |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções
Esses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application) carregam um objeto ListBox e um Objeto Combobox na inicialização de Userform(formulário).
Não deixe de ver nosso trabalho com Deslocamentos de dados (Células e Range) - assinantes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub ComboBox1_Click()
Plan1.Range("L65000").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item Inserido: [ " & ComboBox1.Value & " ]"
End Sub
Private Sub CommandButton1_Click()
[b].ClearContents 'celulas nomeadas como [b] ' nao deixe de ver nosso trabalho 'RENOMEANDO CÉLULAS'
MsgBox ("area deletada com sucesso!"), vbInformation, "Escola Saberexcel VBA Estudos"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Plan1.Range("n65000").End(xlUp).Offset(1, 0).Value = ListBox1.Value
Frame1.Caption = "Item Inserido: [ " & ListBox1.Value & " ]"
End Sub
'procedimento para posicionar o userform na folha de planilha
Private Sub UserForm_Activate()
With UserForm1
.Top = Application.Top + 322 '
.Left = Application.Left + 200
End With
End Sub
'veja que usei a propriedade Rowsource para carregar ambos objetos : combobox e listbox
Private Sub UserForm_Initialize()
Dim vLinha As String
vLinha = Range("a1").End(xlDown).Address
UserForm1.ListBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
UserForm1.ComboBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
ListBox1.ListIndex = 5
ComboBox1.ListIndex = 1
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.
Adicionado em: | 25/05/2011 |
Modificado em: | 25/05/2011 |
Tamanho: | Vazio |
Downloads: | 2792 |
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
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