Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1165 |
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando UserForm e ComboBox, mostram determinados dados relacionados em outra caixa de combinação (ComboBox), alterando simultaneamente a Propriedade RowSource de ambas.
Private Sub Cb1_Click()
'A maneira de se fazer é Alterar a propriedade RowSouce pelo código
'Esse If testa qual o Depto foi escolhido
If Cb1.ListIndex = 0 Then 'ListIndex 0 representa o primeiro dpto da lista
Cb2.RowSource = "Adm" 'Adm é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
ElseIf Cb1.ListIndex = 1 Then 'ListIndex 1 representa o segundo dpto da lista e assim por diante
Cb2.RowSource = "Prod" 'Prod é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
End If
End Sub
'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
'não esqueça que a numeração da lista inicia em 0
Private Sub UserForm_Activate()
Cb1.RowSource = "Dept"
Cb1.Text = Cb1.List(0) '0 é o primeiro item da lista
End Sub
'Abaixo o evento change de uma combobox somente para voce ver como montar uma mensagem concatenando dados
Private Sub Cb2_Change()
[J3].Value = Cb2.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub
Private Sub Cb1_Change()
[J2].Value = Cb1.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub
Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) - com Saberexcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 792 |
Saberexcel - o site das macros - aqui voce encontra o que procura.
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que trabalha com Checkboxes, quando ativar determinada checkbox, que estão dispostos na folha de planiha na coluna(B), inserirá uma data e hora (Agora()) na coluna(C). São sete objetos checkboxes do vba que interagem com as macros.
Sub Processa_checkbox(sbObjeto)
Dim vLinha As Integer
Dim vRange As String
'Variaveis procura por todos os checkboxes inseridos plan
vLinha = sbObjeto.TopLeftCell.Row
vRange = "C" & CStr(vLinha)
'Insere na coluna(C) a data atual se o checkbox for ativado
If sbObjeto.Value = True Then
ActiveSheet.Range(vRange).Value = Now() 'nao esqueça de inserir a formatação personalizada na folha de planilha (Agora())
'Limpa a coluna C se a checkbox for destivada
Else
ActiveSheet.Range(vRange).Value = Null
End If
End Sub
Aprenda Aplicativo Microsoft Excel VBA com Saberexcel - o site das macros
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 5343 |
Saberexcel - o site das macros
Exemplos de planilha do Aplicativo Microsoft Excel VBA, contendo userforms e textboxes, com simplicidade de contas a pagar, porém pode ser muito bem aproveitado, a intenção é ensinar um caminho para se fazer, uma boa formatação e usar alguns macros em exemplos de planilha.
Abaixo a imagem do formulário gerado pela planilha exemplo. Neste exemplo voce poderá ver como ligar um determinado textbox à uma célula, para mostrar um determinado valor.
Aprenda Microsoft Excel VBA - SaberExcel
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1035 |
Saberexcel - o Site das Macros
Estas macros do Aplicativo Microsoft Excel VBA, mostram horas através de um userform, horas continuas
Relógio digital, que funcionará como um Spash
Esses procedimentos junto com a declaração Global (Boolean), insere um relogio digital no rótulo(label)
de determinado Userform(Formulário)
1 objeto Userform1 ............: - Caption "Userform1"
1 objeto Label....................: - Caption "Label1"
1 objeto CommandButton....: - Caption "CommandButton"
'NO MÓDULO COMUM STANDARD INSIRA AS MACROS E VARIAVEL GLOBAL ABAIXO
Global onOff As Boolean
Sub MostrarFormulário()
UserForm1.Show
End Sub
Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
'veja que aqui inserimos as horas no Caption do Userform, Label e Frame1
UserForm1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"
UserForm1.Label1.Caption = Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Frame1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"
'só é executado se o formulário estiver activo
If onOff = True Then
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
Else
Application.OnTime 0, ""
End If
End Sub
'Essa macro usando evento Open que abrirá o formulário na Abertura do Livro
Sub Auto_Open()
On Error Resume Next
UserForm1.Show
End Sub
'NA FOLHA DE CÓDIGO DO USERFORM
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
onOff = True ' variável declarada como global as boolean
'inicia o ciclo de a cada segundo actualizar as horas no formulário
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
End Sub
'Aqui o Evento Terminate encerra o ciclo de atualização por encerramento do formulário
Private Sub UserForm_Terminate()
onOff = False
End Sub
'Por exemplo se voce quiser abrir um userform chamado Spash
'faça uma macro que abre ativará um form splash e o fecha em 5 segundos.
'Private Sub UserForm_Activate()
'Application.OnTime Now + TimeValue("00:00:05"), "FechaSplash"
'End Sub
Aprenda Microsoft Excel VBA --((SaberExcel ))--
Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1022 |
Procedimentos do Aplicativo Microsoft Excel VBA, usando objetos userforms e Textboxes, retornam o primeiro e o ultimo registro percebidos na coluna(A)
Private Sub UserForm_Activate()
Me.TextBox1 = Plan1.Cells(2, 1)
Me.TextBox2 = Plan1.Cells(65536, 1).End(xlUp) 'Range("B65536").End(xlUp)
Frame1.Caption = "1ºReg. [" & TextBox1.Value & " ] 2ºReg. [ " & TextBox2.Value
End Sub
Aprenda Microsoft Excel VBA - (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