Home Excel - Downloads / Areas Restritas Excel VBA - Userforms e outros

Excel VBA - Userforms e outros

  • - Acesso Livre

    • Documentos

    Ordenar por : Nome | Data | Acessos | [ Descendente ]

    vba usf botao ativa desativa tecla numlock vba usf botao ativa desativa tecla numlock

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



    Excel vba texto derroulante exemplo objeto webBowse Excel vba texto derroulante exemplo objeto webBowse

    popular!
    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.

     

     

     

    vba usf commandbutton altera medidas vba usf commandbutton altera medidas

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



    vba usf checkbox protege retira oculta abas vba usf checkbox protege retira oculta abas

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




    vba options case calculos geometricos triangulo vba options case calculos geometricos triangulo

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



    Página 1 de 10

    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

    Google

    Contatos Equipe Saberexcel

    Navegar pelo Site

    Outros Assuntos

    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

    Tags Populares

    RSFirewallProtected

    19.04.2024

    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