Adicionado em: | 15/02/2011 |
Modificado em: | 07/03/2011 |
Tamanho: | Vazio |
Downloads: | 696 |
Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Aplication) contém vários options que ajudam na localização de dados,
isto é, ocultam linhas desejadas e mostram as linhas que contém determinados dados.
Observem que quando selecionar o option1 as instrução Case, mostrará as linhas referente ao range nomeado "Saber1", e asim acontece com os 5 options. Espero que o exemplos seja útil, Fiquem com Deus, E_Marcondes
Sub OptionButton_Click()
Rows("15:65").EntireRow.Hidden = True
Select Case Application.Caller
Case "opt1"
Range("Saber1").EntireRow.Hidden = False
Case "opt2"
Range("Saber2").EntireRow.Hidden = False
Case "opt3"
Range("Saber3").EntireRow.Hidden = False
Case "opt4"
Range("Saber4").EntireRow.Hidden = False
Case "opt5"
Range("Saber5").EntireRow.Hidden = False
End Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel
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/02/2011 |
Modificado em: | 19/02/2011 |
Tamanho: | Vazio |
Downloads: | 684 |
Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), aumenta e diminui as medidas do Objeto CommandButton(Botão)
observe que a instrução IF, faz com que os eventos de clicar retorna a ação, fucionando como se fosse um botao de ativacao(Toggle)
Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub
Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub
'procedimento no módulo de edição do objeto Workbook, evento Auto_Open
Private Sub Workbook_Open()
With Saber1.CommandButton1
.Height = 20
.Width = 90
.Left = 150
.Top = 80
.Caption = "Sô tiancinha!!!"
End With
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 20/02/2011 |
Modificado em: | 20/02/2011 |
Tamanho: | Vazio |
Downloads: | 909 |
Esses procedimentos do aplicativo microsoft Excel VBA(Visual Basic Application), contém options que preenche os dados da propriedade rowsource do objeto ComboBox, com critério de seleção options.
Private Sub ComboBox1_Click()
'Range("A65536").Offset(1, 0).End(xlUp).Value = ComboBox1.Value
Range("A407").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item inserido..: " & ComboBox1.Value
frm_viagem.Caption = Left(ComboBox1.Value, 5)
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub OptionButton1_Click()
Alimenta_Combo 1
End Sub
Private Sub OptionButton2_Click()
Alimenta_Combo 2
End Sub
Private Sub OptionButton3_Click()
Alimenta_Combo 3
End Sub
Private Sub OptionButton4_Click()
Alimenta_Combo 4
End Sub
Sub Alimenta_Combo(vColuna As Integer)
Dim I As Long
Me.ComboBox1.Clear
With Sheets("Banco_Dados")
For I = 2 To .Cells(65536, vColuna).End(xlUp).Row
Me.ComboBox1 = .Cells(I, vColuna)
If Me.ComboBox1.ListIndex = -1 Then
Me.ComboBox1.AddItem .Cells(I, vColuna)
End If
Next I
End With
Me.ComboBox1.ListIndex = -1
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho,
com baixo custo, praticando com os produtos didáticos SaberExcel
Adicionado em: | 03/03/2011 |
Modificado em: | 03/03/2011 |
Tamanho: | Vazio |
Downloads: | 890 |
Saberexcel - site das Macros
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox somente com dados das folhas de planilhas que o nome começasm com as Letras 'SAB', neste caso específico carregará os dados somente das Folhas de Planilhas "SABEREXCEL" e "SABERPLAN", porque começam com as três letras 'SAB' . Espero que o exemplo seja útil. Fique com Deus. E_Marcondes
'dando saida de um dado para folha de planilha, fiz isso com intuíto didático, para que voce observe como é simples o princípio de um cadastro.
'esse aprendizado sobre a propriedade offset(Desloc), é muito importante no aprendizado MS Excel VBA(Visual Basic Application).
'não deixe de ver nosso Módulo COMO FAZER - Programação MS Excel VBA - (PROPRIEDADE DESLOC(OFFSET))
Private Sub ComboBox2_Change()
Frame1.Caption = ComboBox2.Value
[A65000].End(xlUp).Offset(1, 0).Value = ComboBox2 'localiza a proxima Célula em branco na coluna(A) e insere ítem selecionado combobox
End Sub
Private Sub UserForm_Initialize()
Dim sbx As Long
Set sbDicionario = CreateObject("Scripting.Dictionary")
Dim Wst As Worksheet, vColuna As Integer, vLinha As Long
' Definir a coluna para procura
vColuna = Me.ComboBox2.ListIndex + 1
' determinar para cada palanilha que comece com o nome SAB
For Each Wst In ThisWorkbook.Worksheets
' Se as tres primeiras letras for correspondente ao nome da folha de planiha
If Left(Wst.Name, 3) = "SAB" Then
' para todas as linhas
For sbx = 2 To 4
For vLinha = 2 To 10
'Adicionando o valor da coluna selecionada ao objeto combobox
iValor = Wst.Cells(vLinha, sbx + vColuna)
If iValor <> "" Then sbDicionario.Item(iValor) = iValor
Next vLinha
Next sbx
End If
Next Wst
Me.ComboBox2.List = sbDicionario.items
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos 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