SaberExcel - Site das Macros
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), foram montados com intuíto didático para mostrar aos nossos alunos,
como formatar e lidar com determinados objetos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando usf(Userforms) e afetar diretamente as células na folha de planiha desejada.
1º.) - A cada seleção que fizer no Objeto ListBox (Caixa de Listagem), o procedimento produz um número aleatorio, de 1 a 150, que é passado para o o Caption dos Objetos: Label, Frame, CommandButton, e também para o Caption do próprio Userform.
2º.) - O check box muda o userform de posição, também direciona os dados que serão selecionados na folha de planilha, ou para linhas ou para colunas, isso com a ajuda da Propriedade OFFSET.
Nao deixe de ver nosso MÓDULO COMO FAZER - Programação MS Excel VBA - Trabalhando com propriedade Offset(DESLOC - VBA E EXCEL)
COMO FAZER - Relação dos Módulos - COMO FAZER - Programação MS Excel VBA - SABEREXCEL
Private Sub ListBox1_Change()
Dim VAL As Variant
VAL = Int(150 * Rnd)
Me.Label1.Caption = "NUMERO ALEATORIO GERADO.. [ " & VAL & " ]"
[C65000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ListBox1.Value & " - [ " & Label1.Caption
ActiveSheet.Name = "PAGAMENTO SABER - " & VAL 'atribuindo a variável(VAL) ao nome da folha de planilha ativa.
Frame1.Caption = "PLANILHA.: [ " & ActiveSheet.Name & " ]"
If CheckBox1.Value = True Then 'se o checkbox estiver na condição (VERDADEIRA) true, 'dados na linha', senão, na 'dados na coluna'.
ActiveCell.Offset(1, 0).Value = "Planilha " & ActiveSheet.Name
Else
ActiveCell.Offset(0, 2).Value = "Planilha " & ActiveSheet.Name
End If
CommandButton1.Caption = Label1.Caption
UserForm1.Caption = Label1.Caption
End Sub
'formatando a checkbox - caixa de seleção
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox1.Caption = "Relacionando planilha abaixo"
CheckBox1.BackColor = &H8000&
CheckBox1.ForeColor = &H8000000B
UserForm1.Left = ActiveWindow.Width - UserForm1.Width
UserForm1.Top = ActiveWindow.Height - UserForm1.Height
Else
CheckBox1.Caption = "Relacionando planilha ao lado"
CheckBox1.BackColor = &H80FF& 'cor de fundo da checkbox
CheckBox1.ForeColor = &H8000000B 'cor da fonte da checkbox 'branco'
' UserForm1.Left = ActiveWindow.Width - UserForm1.Width
' UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Top = ActiveWindow.Height - UserForm1.Height
End If
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value Then
Frame1.Visible = False
ToggleButton1.Caption = "MOSTRAR - Objetos"
ToggleButton1.BackColor = &H8000&
Else
Frame1.Visible = True 'observe que o frame oculta/mostra todos objetos
ToggleButton1.Caption = "OCULTAR - Objetos"
ToggleButton1.BackColor = &H80FF&
End If
End Sub
Private Sub CommandButton1_Click()
MsgBox ("FECHANDO.....")
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
Acesso Livre - Registrados (REGISTRE-SE!)
Baixe o exemplo de planilha contendo os procedimentos acima
Esta planilha exemplo faz parte do Módulo COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA _ IV -- Saberexcel
Excel planilha vba usf listbox gera num aleatorio label e outros (32.03 KB)
