Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba usf listbox gera num aleatorio label e outros

Excel planilha vba usf listbox gera num aleatorio label e outros

E-mail Imprimir PDF

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)

Última atualização em Dom, 14 de Outubro de 2012 09:28  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

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


Pesquisa Google SaberExcel

Publicidade Google

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

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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