Adicionado em: | 16/11/2011 |
Modificado em: | 16/11/2011 |
Tamanho: | Vazio |
Downloads: | 1267 |
Saberexcel - o site de quem precisa aprender macros ms excel VBA
Esse macro do aplicativo Microsoft Excel VBA, trabalham com Checkbox, formatando células, cor da fonte e interior, ao serem selecionados,
mudam os dados nas linhas especificas onde estão ancoradas, marcam a data e hora na coluna(b) e mensagem na coluna(C), ao serem habilitados.
Espero que o exemplo possam ajudá-los. Fiquem todos com Deus, Expedito Marcondes
Sub trabalhando_com_checkboxes()
Dim ckBOX As CheckBox
Dim vLinha As Integer
Dim LRange As String
Dim LBatataDoce As String 'Cristina uma variável pode conter qualquer nome desde que nao faça parte do scopo do vb, simbolos proibidos, e sem espaços.
vNome = Application.Caller
Set ckBOX = ActiveSheet.CheckBoxes(vNome)
'procura a linha onde esta a checkbox residencia dela
vLinha = ckBOX.TopLeftCell.Row
LRange = "B" & CStr(vLinha)
LBatataDoce = "C" & CStr(vLinha)
'insere a data na coluna(B) se a checkbox for habilitada
If ckBOX.Value > 0 Then
ActiveSheet.Range(LRange).Value = Now() 'Date
ActiveSheet.Range(LBatataDoce).Value = "Revisado,Entregue"
ActiveSheet.Range(LBatataDoce).Interior.ColorIndex = 35
ActiveSheet.Range(LBatataDoce).Font.ColorIndex = 1
ActiveSheet.Range(LBatataDoce).Font.Bold = False
ActiveSheet.Range(LRange).Interior.ColorIndex = 28
'limpar a data na coluna(B) se a checkbox for desabilitada
Else
ActiveSheet.Range(LRange).Value = Null
ActiveSheet.Range(LRange).Interior.ColorIndex = Null
ActiveSheet.Range(LBatataDoce).Value = "Aguardando Aprovação"
ActiveSheet.Range(LBatataDoce).Interior.ColorIndex = 3 'xlNone 'ou Null
ActiveSheet.Range(LBatataDoce).Font.ColorIndex = 2
ActiveSheet.Range(LBatataDoce).Font.Bold = True
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
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 29/11/2011 |
Modificado em: | 29/11/2011 |
Tamanho: | Vazio |
Downloads: | 1273 |
Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objeto userform e um CheckBox oculta todos os controles
Labels, TextBoxes e CommandButtons do objeto Userform.
Private Sub CheckBox1_Click()
Dim c As Control
For Each c In Me.Controls
If CheckBox1 = True Then
Select Case TypeName(c)
Case "TextBox"
c.Visible = False
Case "Label"
c.Visible = False
Case "CommandButton"
c.Visible = False
End Select
CheckBox1.Caption = "Objetos Ocultos"
CheckBox1.BackColor = &HFFFF00
CheckBox1.ForeColor = &HFF&
Else
Select Case TypeName(c)
Case "TextBox"
c.Visible = True
Case "Label"
c.Visible = True
Case "CommandButton"
c.Visible = True
End Select
TextBox1.SetFocus
CheckBox1.Caption = "Ocultar Objetos"
CheckBox1.BackColor = &H80C0FF
CheckBox1.ForeColor = &H8000&
End If
Next c
lblSBX.Visible = True 'mostrando label desejado.
End Sub
Private Sub fechar_Click()
End
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 23/12/2011 |
Modificado em: | 23/12/2011 |
Tamanho: | Vazio |
Downloads: | 1332 |
Escola Saberexcel VBA Estudos - o site de quem precisa aprender tudo sobre excel vba
Procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como inserir um moveicon em determinado objeto, neste caso vamos usar CommandButtons e Labels, pegamos uma figura do Super-Mário.
Junto inserí também um shapes(Autoforma) intermitente, isto é, uma autoforma que pisca 10 vezes na folha de planilha ao executar o macro.
Espero que o exemplo possa lhe ser útil. Baixe o exemplo de planilha no final da página com todas as explicações de como fazer.
Fique com Deus, Expedito Marcondes
' - - - - - - - - - - - - - - - - - - - - - - - - - -
PROCEDIMENTOS EXISTENTES NO MÓDULO DE CÓDIGO DO USERFORM.
'- - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub cmdICONE_Click()
On Error Resume Next
Saber1.Shapes("saber").Visible = True
[A13].Value = "......A-G-U-A-R-D-E---> 4 segundos......"
vTempo = Timer + 4 'definindo os quatro segundos para ocultar a imagem
Do While Timer < vTempo
DoEvents
Loop
Saber1.Shapes("saber").Visible = False
UserForm1.Show
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
Private Sub lblINTERMITENTE_Click()
Dim resposta As String
resposta = MsgBox("Já que clicou, quer aprender a fazer imagem intermitente", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then
sb = 0
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
Do While sb < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop
ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
sb = sb + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
'onde queremos que o userform abra na folha de planilha (Altura e Esquerda)
Private Sub UserForm_Activate()
With frmICONE
.Top = Application.Top + 15 '
.Left = Application.Left + 17 '
End With
End Sub
Private Sub Label3_Click()
sbx_visualizar_shapes
End Sub
Private Sub cmdFECHAR_Click()
Unload Me
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - - -
EM UM MÓDULO COMUM INSIRA ESSE MACRO.
'- - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_intermitente()
'http://www.microsoftexcel.com.br
Dim resposta As String
resposta = MsgBox("deseja visualizar autoforma intermitente?..", vbYesNo, "Escola Saberexcel VBA Estudos®")
If resposta = 6 Then
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
n = 0
Do While n < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop
ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
n = n + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
Sub sbx_visualizar_shapes()
ActiveSheet.Shapes("sbx_didaticos").Visible = True
Saber1.Shapes("saber").Visible = True
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 06/02/2012 |
Modificado em: | 06/02/2012 |
Tamanho: | Vazio |
Downloads: | 2636 |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções
Esses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application) carregam um objeto ListBox e um Objeto Combobox na inicialização de Userform(formulário).
Não deixe de ver nosso trabalho com Deslocamentos de dados (Células e Range) - assinantes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub ComboBox1_Click()
Plan1.Range("L65000").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item Inserido: [ " & ComboBox1.Value & " ]"
End Sub
Private Sub CommandButton1_Click()
[b].ClearContents 'celulas nomeadas como [b] ' nao deixe de ver nosso trabalho 'RENOMEANDO CÉLULAS'
MsgBox ("area deletada com sucesso!"), vbInformation, "Escola Saberexcel VBA Estudos"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Plan1.Range("n65000").End(xlUp).Offset(1, 0).Value = ListBox1.Value
Frame1.Caption = "Item Inserido: [ " & ListBox1.Value & " ]"
End Sub
'procedimento para posicionar o userform na folha de planilha
Private Sub UserForm_Activate()
With UserForm1
.Top = Application.Top + 322 '
.Left = Application.Left + 200
End With
End Sub
'veja que usei a propriedade Rowsource para carregar ambos objetos : combobox e listbox
Private Sub UserForm_Initialize()
Dim vLinha As String
vLinha = Range("a1").End(xlDown).Address
UserForm1.ListBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
UserForm1.ComboBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
ListBox1.ListIndex = 5
ComboBox1.ListIndex = 1
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adicionado em: | 16/02/2012 |
Modificado em: | 16/02/2012 |
Tamanho: | Vazio |
Downloads: | 860 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses procedimentos (macros) do aplicativo Microsoft Excel VBA(Visual Basic Application), limpa todos objetos Textboxes de um determinado objeto Userform, observe que poderá também usar o código, fazer um macro para também limpar os objetos textboxes quando chamados.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
Private Sub CommandButton1_Click()
Dim T As Control
TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next Z
End Sub
Private Sub CommandButton2_Click()
limpar_todos_textoboxes
MsgBox ("textbox foram limpados com macros"), vbInformation, "Saberexcel"
TextBox1.SetFocus
End Sub
Private Sub Label1_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
veja o macro que voce poderá fazer para chamar a partir de um módulo comum
para diversos userforms.
Sub limpar_todos_textoboxes()
Dim T As Control
UserForm1.TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next T
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
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