Adicionado em: | 29/11/2010 |
Modificado em: | 29/11/2010 |
Tamanho: | Vazio |
Downloads: | 570 |
Esse exemplo de Macros, Procedimentos, Função e Declaração do Aplicativo Microsoft Excel VBA, ativa e ou desativa o botão NumsLock, com auxílio de um Botão Toogle (Botão de Ativação), que retorna (True / False ) (Verdadeiro ou Falso)
Function NumsLock() As Boolean
NumsLock = GetKeyState(VK_NUMLOCK) And 1 = 1
End Function
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub ToggleButton1_Click()
'declaração
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = IIf(kbArray.kbByte(VK_NUMLOCK) = 1, 0, 1)
SetKeyboardState kbArray
ToggleButton1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
Label1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
Frame1.Caption = IIf(NumsLock() = 0, "Tecla NumLook [Desativada]", "Tecla NumsLock [Ativada]")
If Label1.Caption = "Desativado" Then
Label1.BackColor = &H80C0FF
Frame1.ForeColor = &HFF&
Else
Label1.BackColor = &H80FF80
Frame1.ForeColor = &H4000&
End If
End Sub
Private Sub UserForm_Initialize()
'ToggleButton1.Value = True
ToggleButton1.Caption = IIf(NumsLock() = 0, "[Desativada]", "[Ativada]")
Label1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
End Sub
Aprenda Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 15/04/2013 |
Modificado em: | 15/04/2013 |
Tamanho: | Vazio |
Downloads: | 643 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esses macros do Aplicativo Microsoft excel VBA, insere um texto derroulante com auxilio de Objeto WebBrowse,
com cores de fundo e fonte predeterminadas, há uma folha de planilha no exemplo abaixo, que traz o números das cores
HexaDecimais "#FFFF00"(Amarelo), com 256 para você praticar e observar os resultados.
Também fiz o que nossa colaboradora nos pediu uma autonumeração sequencial em (linhas e também Colunas)
no macro inseri uma condição if que verifica se o valor da célula é para ou impar e inser uma formatação condicional nas
cores da fonte para impares e pares. Espero que o exemplo possa ajuda-la. (Resposta para Arlete) - BH.
Fique com Deus,
Expedito Marcondes
Sub sbx_WebBrowse()
Const vTexto = "Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções"
Const vSite = "http://www.microsoftexcel.com.br/"
Dim xTexto As String
FonteCor = "#FFFF00"
FonteCor1 = "#FFFFFF"
With UserForm1
Saber1.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#666600' scroll='no'><font color= " & FonteCor & _
" size='5' face='Arial'>" & _
"<marquee>" & vTexto & "</marquee></font></body></html>"
Saber1.WebBrowser2.Navigate _
"about:<html><body BGCOLOR ='#003300' scroll='no'><font color= " & FonteCor1 & _
" size='4' face='Arial'>" & _
"<marquee>" & vSite & "</marquee></font></body></html>"
End With
Application.StatusBar = ""
End Sub
Sub sbx_autonumeracao_linha()
Dim vLin, vCol, tNum As Long
tNum = 1
For vLin = 11 To 22
For vCol = 2 To 9
Cells(vLin, vCol).Value = tNum
tNum = tNum + 1
If Cells(vLin, vCol).Value Mod 2 = 0 Then
Cells(vLin, vCol).Font.ColorIndex = 3
Else
Cells(vLin, vCol).Font.ColorIndex = 10
End If
Next vCol
Next vLin
End Sub
'Auto_Numeração sequencial em Colunas
Sub sbx_autonumeracao_coluna()
Dim vLin, vCol, tNum As Long
tNum = 1
[b11:i22].Font.ColorIndex = 1
For vCol = 2 To 9
For vLin = 11 To 22
Cells(vLin, vCol).Value = tNum
tNum = tNum + 1
If Cells(vLin, vCol).Value Mod 2 = 0 Then
Cells(vLin, vCol).Font.ColorIndex = 3
Else
Cells(vLin, vCol).Font.ColorIndex = 10
End If
Next vLin
Next vCol
End Sub
Sub sbx_limpar_teste()
[b11:i22].ClearContents
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: | 19/02/2011 |
Modificado em: | 19/02/2011 |
Tamanho: | Vazio |
Downloads: | 684 |
Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), aumenta e diminui as medidas do Objeto CommandButton(Botão)
observe que a instrução IF, faz com que os eventos de clicar retorna a ação, fucionando como se fosse um botao de ativacao(Toggle)
Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub
Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub
'procedimento no módulo de edição do objeto Workbook, evento Auto_Open
Private Sub Workbook_Open()
With Saber1.CommandButton1
.Height = 20
.Width = 90
.Left = 150
.Top = 80
.Caption = "Sô tiancinha!!!"
End With
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 13/02/2011 |
Modificado em: | 13/02/2011 |
Tamanho: | Vazio |
Downloads: | 691 |
Saberexcel - o site das macros
Esses procedimentos do Objeto CheckBox do Aplicativo Microsoft Excel VBA(Visual Basic Application) oculta a aba de planihas e protege a folha de planiha, muda a cor do checkbox e fonte quando a condição do checkbox for muda, retornando uma mensagem no caption do CheckBox, observe que fiz uma linha de código também para retornar
um valor para célula B1.
Veja bem, você poderia retornar qualquer valor de qualquer lugar, de qualquer objeto, uma soma, ou um texto, qualquer coisa,
para desenvolver o racicinio lógico e aprender a programar temos que buscar opções com um exemplo, isto é um exemplo simples, mas com
um pouquinho de criatividade dá pra se fazer um exemplo bacana. não é mesmo?. Suponhamos que fala, Ah! que pena, eu queria que essa planilha fosse protegida com senhas. Eu lhe digo é muito fácil, voce mesmo vai fazer.
Abra uma planiha comum, acione o gravador de macros, insira uma senha de proteção em uma planilha, desligue o gravador de macros,
vá até o ambiente do VBA(ALT+F11), pegue o código que foi gravado e substitua a linha de código que protege pela sua.
simples. Expero que o exemplo seja útil. Fiquem com Deus, Expedito Marcondes
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = True
CheckBox1.Caption = "Planilha Desprotegida e abas visíveis"
CheckBox1.BackColor = &H8000&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentLeft
Saber1.Shapes("sb").Visible = False
Saber1.[B1].Value = "Cuidado planilha desprotegida!!"
Else
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = False
Range("C2").Select
Saber1.[B1].Value = "Planilha PROTEGIDA!!"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
CheckBox1.Caption = "Planilha protegida, e Abas invisíveis!"
CheckBox1.BackColor = &HFF&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentRight
Saber1.Shapes("sb").Visible = True
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),
praticando sozinho, com baixo custo, estudando com os produtos didáticos Saberexcel
Adicionado em: | 15/02/2011 |
Modificado em: | 07/03/2011 |
Tamanho: | Vazio |
Downloads: | 696 |
Saberexcel - site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Aplication) contém vários options que ajudam na localização de dados,
isto é, ocultam linhas desejadas e mostram as linhas que contém determinados dados.
Observem que quando selecionar o option1 as instrução Case, mostrará as linhas referente ao range nomeado "Saber1", e asim acontece com os 5 options. Espero que o exemplos seja útil, Fiquem com Deus, E_Marcondes
Sub OptionButton_Click()
Rows("15:65").EntireRow.Hidden = True
Select Case Application.Caller
Case "opt1"
Range("Saber1").EntireRow.Hidden = False
Case "opt2"
Range("Saber2").EntireRow.Hidden = False
Case "opt3"
Range("Saber3").EntireRow.Hidden = False
Case "opt4"
Range("Saber4").EntireRow.Hidden = False
Case "opt5"
Range("Saber5").EntireRow.Hidden = False
End Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos 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