Excel planilha vba usf listbox gera num aleatorio label e outros

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)

Tags: