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: | 01/05/2011 |
Modificado em: | 01/05/2011 |
Tamanho: | Vazio |
Downloads: | 6215 |
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
Adicionado em: | 29/03/2011 |
Modificado em: | 29/03/2011 |
Tamanho: | Vazio |
Downloads: | 3641 |
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o resultado da multiplicação entre dois objetos, duas textbox(caixa de texto), e formata os textbox como Moeda, neste caso Reais.
Espero que o exemplo lhe seja útil. Fique com Deus, Boas Pesquisas.
'esse procedimento retorna o resultado da multiplicação entre dois textbox,
'TextBox1 x TextBox2, retorna em :
'Retorna valor com centavos em uma Label,
'Retorna valor com centavos em um Frame,
'Retorna no caption do Userform1
'Retorna Também na Célula(B16) o valor da multiplicação
'Ao Fechar o userform (QueryClose) limpa a célula (B16)
Private Sub TextBox2_Change()
vNum1 = TextBox1.Value
vNum2 = TextBox2.Value
Label1.Caption = "Resultado da Multiplicação: [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
Frame1.Caption = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
UserForm1.Caption = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
[B16].Value = "Resultado : TextBox1 x TextBox2 = [ " & Format(vNum1 * vNum2, "R$ ###,###.00") & " ]"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
[B16].Value = ""
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Aprenda tudo sobre o 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: | 05/03/2011 |
Modificado em: | 05/03/2011 |
Tamanho: | Vazio |
Downloads: | 1191 |
Esses procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), oculta e ou mostra determinada folha de planilha,
como também determinadas Colunas. Observe que muda o caption e a cor do commandbutton no usf(userform), conforme a o procedimento,
o procedimento verifica o caption do botão e status da planilha se está ou não oculta, para não perder o caption do commandbutton,
também a propriedade AllowFiltering:=True, veja abaixo a explicação, essa propriedade é para que o autofiltro funcione com a planilha protegida.
Veja abaixo explicação Microsoft.
Private Sub CommandButton12_Click()
Dim vPlanilha As Worksheet
For Each vPlanilha In ThisWorkbook.Worksheets
If vPlanilha.Name <> "" Then vPlanilha.Unprotect ""
Next
With Sheets("1").Range("D1:J1").EntireColumn
.Hidden = Not .Hidden
If .Hidden Then CommandButton12.Caption = "Visível" Else CommandButton12.Caption = "Invisível "
End With
If Sheets("2").Visible = True Then
Sheets("2").Visible = False
Saber3.Shapes("sb").Visible = False
Else
Sheets("2").Visible = True 'planilha referenciada pelo nome da folha de planilha
Saber3.Shapes("sb").Visible = True 'planilha referenciada pelo nome da folha de código da folha de planilha
End If
For Each vPlanilha In ThisWorkbook.Worksheets
If vPlanilha.Name <> "" Then vPlanilha.Protect "", _
DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Next
Unload frmMENU
End Sub
Private Sub UserForm_Initialize()
'ao inicializar verifica se as células D1:J1, estão ocultas para o correto caption do botão
If Sheets("1").Range("D1:J1").EntireColumn.Hidden Then
CommandButton12.Caption = "Visível"
CommandButton12.BackColor = vbGreen
CommandButton12.ForeColor = &H80000012
Else
CommandButton12.Caption = "Invisível"
CommandButton12.BackColor = vbRed
CommandButton12.ForeColor = &HFFFFFF
End If
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