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: | 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: | 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: | 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
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