Adicionado em: | 28/11/2010 |
Modificado em: | 28/11/2010 |
Tamanho: | Vazio |
Downloads: | 1241 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere dados em uma combobox.
Há um passo-a-passo no exemplo de planilha da macro abaixo, explicando onde voce deverá aplicar o macro para que não ocorra um erro de compilação quando usamos a instrução Me. Você poderá observar a importancia de aprendermos sobre Membros de Objetos e suas hierarquia no Visual Basic. Baixe o exemplo de planilha no final da página com o passo a passo.
Sub Como_preencher_combobox_na_planilha()
Dim vContarLinhas
Me.ComboBox1.Clear
For vContarLinhas = 11 To 19
Me.ComboBox1.AddItem Plan2.Range("K" & vContarLinhas)
Next
[C4].Value = "Dados inseridos na Combobox"
End Sub
Sub limpar_combo_teste()
Me.ComboBox1.Clear
[C4].Value = "Dados Deletados da Combobox"
End Sub
Private Sub ComboBox1_Click()
[C2].Value = "Voce Selecionou o ítem: [ " & Me.ComboBox1.Value & " ]"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel
Publicidade:
Compre com segurança, garantia e preços baixos nas lojas SubMarino
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: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 1274 |
Saberexcel - Site das Macros
Essas declarações e procedimentos do Aplicativo Microsoft Excel VBA, impede o usuário de mover o userform (formulário) pela folha de planilha, tornando-o estático, imóvel.
Private Declare Function RemoveMenu _
Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) _
As Long
Private Declare Function FindWindowA _
Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION As Long = &H400
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim lFrmHdl As Long, iCount As Integer
lFrmHdl = FindWindowA(vbNullString, Me.Caption)
If lFrmHdl <> 0 Then
'MF_BYCOMMAND
'Indicates that uPosition gives the identifier of the menu item.
'If neither the MF_BYCOMMAND nor MF_BYPOSITION flag is specified,
'the MF_BYCOMMAND flag is the default flag.
'MF_BYPOSITION
'Indicates that uPosition gives the zero-based relative position of the menu item.
'ie 0,1,2,3 etc
'Exit Sub
'Typical Windows has 6 menus
'Restore, Move, Size, Minimise, Maximize, Close
'Even though a Userform displays 2 = Move & Close
'By default Move is the Next item
'so just loop twice
For iCount = 0 To 1
RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION
Next iCount
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 28/11/2010 |
Modificado em: | 28/11/2010 |
Tamanho: | Vazio |
Downloads: | 1278 |
Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, insere na folha de planilha cada frase para cada linha, todas as frases com quebra de linhas que foram carregadas no objeto TextBox pelo evento Initialize do Userform(abaixo). Baixe o exemplo de planilha no final da Página.
Esse exemplo faz parte dos Módulos: COMO FAZER - Programação Aplicativo Microsoft Excel VBA- SaberExcel.
Option Explicit
Private Sub cmdEntre_Click()
Dim vLinha As Integer
Dim vTexto As String
vTexto = txtText.Text
vTexto = WorksheetFunction.Substitute(vTexto, vbLf, "")
Do
vLinha = vLinha + 1
If InStr(vTexto, vbCr) Then
Cells(vLinha, 1).Value = Left(vTexto, InStr(vTexto, vbCr) - 1)
vTexto = Right(vTexto, Len(vTexto) - InStr(vTexto, vbCr))
Else
Cells(vLinha, 1).Value = vTexto
Exit Do
End If
Loop
Unload Me
End Sub
'Ao abrir o userform, carregará com as seguintes frases, com quebra de texto, depois executando a macro acima irá inserir cada frase 'em linhas 'diferentes.
Private Sub UserForm_Initialize()
txtText.Text = _
"Excel VBA Estudos® - Saberexcel" & vbCr & _
"Site das Macros" & vbCr & _
"Ensinando VBA Macros" & vbCr & _
"http://www.saberexcel.com.br" & vbCr & _
"[email protected]"
cmdEntre.SetFocus
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com 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