Adicionado em: | 11/05/2011 |
Modificado em: | 11/05/2011 |
Tamanho: | Vazio |
Downloads: | 1585 |
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
Adicionado em: | 24/05/2011 |
Modificado em: | 24/05/2011 |
Tamanho: | Vazio |
Downloads: | 1470 |
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
Adicionado em: | 10/02/2011 |
Modificado em: | 10/02/2011 |
Tamanho: | Vazio |
Downloads: | 1449 |
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
Adicionado em: | 23/12/2011 |
Modificado em: | 23/12/2011 |
Tamanho: | Vazio |
Downloads: | 1332 |
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.
Adicionado em: | 28/11/2010 |
Modificado em: | 28/11/2010 |
Tamanho: | Vazio |
Downloads: | 1278 |
Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, insere na folha de planilha cada frase para cada linha, todas as frases com quebra de linhas que foram carregadas no objeto TextBox pelo evento Initialize do Userform(abaixo). Baixe o exemplo de planilha no final da Página.
Esse exemplo faz parte dos Módulos: COMO FAZER - Programação Aplicativo Microsoft Excel VBA- SaberExcel.
Option Explicit
Private Sub cmdEntre_Click()
Dim vLinha As Integer
Dim vTexto As String
vTexto = txtText.Text
vTexto = WorksheetFunction.Substitute(vTexto, vbLf, "")
Do
vLinha = vLinha + 1
If InStr(vTexto, vbCr) Then
Cells(vLinha, 1).Value = Left(vTexto, InStr(vTexto, vbCr) - 1)
vTexto = Right(vTexto, Len(vTexto) - InStr(vTexto, vbCr))
Else
Cells(vLinha, 1).Value = vTexto
Exit Do
End If
Loop
Unload Me
End Sub
'Ao abrir o userform, carregará com as seguintes frases, com quebra de texto, depois executando a macro acima irá inserir cada frase 'em linhas 'diferentes.
Private Sub UserForm_Initialize()
txtText.Text = _
"Excel VBA Estudos® - Saberexcel" & vbCr & _
"Site das Macros" & vbCr & _
"Ensinando VBA Macros" & vbCr & _
"http://www.saberexcel.com.br" & vbCr & _
"[email protected]"
cmdEntre.SetFocus
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com 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