Home Excel - Downloads / Areas Restritas Excel VBA - Msgbox e InputBox

Excel VBA - Msgbox e InputBox

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba msgbox fecha automaticamente Excel planilha vba msgbox fecha automaticamente

    popular!
    Adicionado em: 30/10/2011
    Modificado em: 30/10/2011
    Tamanho: 105.55 KB
    Downloads: 1467

    Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

    Esses macros do Aplicativo MS Excel VBA(Visual Basic Application), emite uma mensagem temporária, conforme os argumentos atribuidos a subrotina
    AutoFechaMsgbox, que voce poderá atribuir a sua mensagem um determinado tempo para fechar automaticamente.
    Espero que o exemplo lhes sejam útil. Fiquem com Deus, Expedito Marcondes

    '- - - - - - - - - - - - - - - - - - -
    Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
    Set oSHL = CreateObject("WScript.Shell")
    oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
    End Sub
    '- - - - - - - - - - - - - - - - - - -
    Sub AutoMessagem()
    AutoFechaMsgBox "Clique em OK ou aguarde", "MsgBox fecha automaticamente",
    1
    AutoFechaMsgBox "Alterar o Cadastro de Clientes", "Cadastro de Clientes",
    2
    AutoFechaMsgBox "Aprenda Microsoft Excel VBA" & vbCrLf _
    & "Praticando, com os produtos didáticos" & vbCrLf _
    & "Escola SaberExcel", "Curso MS Excel VBA Saberexcel",
    2
    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 inputbox seleciona varios intervalo celula refedit vba inputbox seleciona varios intervalo celula refedit

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 18.04 KB
    Downloads: 790


    Essa macro do Aplicativo Microsoft Excel VBA, que insere cores em diversas áreas contíguas de células na folha de planilha.
    Usando uma entrada de dados(InputBox) com argumento Type:=8, que é igual o RefEdit, libera para o usuário selecionar áreas diversas na folha de planilha, neste caso voce poderá pressionar a tela CTRL e selecionar várias áreas para que a macro insira cores nas áreas selecionadas atraves desta inputbox. Espero que a matéria possa lhe ser útil. Fique com Deus, Boa Sorte.
    Baixe o exemplo de planilha no final da página.



    Sub inputbox_colorindo_area()
    Dim vRange As Range
    Dim msgTitulo As String

    msgTitulo = "Demonstração - Colorindo vários intervalos de células "

    On Error Resume Next
    Set vRange = Application.InputBox _
    (Prompt:="- Escolha o intervalo de células que deseja colorir " & _
    "SELECIONANDO-O" & vbCrLf & vbCrLf & "Pode ser em varias áreas " & _
    "- Para selecionar, mantenha pressionada a Tecla Ctrl e " & vbCrLf & _
    "- Selecione os intervalos desejados tecla ctrl pressionada", _
    Title:=msgTitulo, Type:=8)

    If Not vRange Is Nothing Then

    MsgBox "As área foram selecionadas e vão ser coloridas!:" & vbCrLf & _
    vRange.Address, vbExclamation, msgTitulo
    'Atribuir uma cor de fundo das células
    vRange.Interior.Color = RGB(255, 255, 0) 'amarelo

    Else
    MsgBox "Você não selecionou uma área !", _
    vbOKOnly + vbInformation, msgTitulo & "Saberexcel"
    End If

    End Sub

    Sub limpar_teste()
    Cells.ClearFormats: [G1].Select
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel



    vba msgbox adiciona planilha e envia msg sete exemplos diferentes vba msgbox adiciona planilha e envia msg sete exemplos diferentes

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 21 KB
    Downloads: 668

    Saberexcel - o Site das Macros
    Essa macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha no livro, e emite uma determinada mensagem, são sete exemplos de mensagem que o vb emite ao inserir uma nova folha de planilha no livro ativo.

    Sub Adiciona_planilha()
    Worksheets.Add
    MsgBox "Macros finalizada.", vbInformation, "http://www.saberexcel.com"
    End Sub

    Adiciona uma planilha e mostra o nome da planilha adicionada
    Exemplo simples de mensagem com o ícone de infomações (Information icon)
    Sub Adiciona_planilha_2()
    Worksheets.Add
    MsgBox "Uma nova planilha foi adicionada ao livro." _
    , vbInformation + vbOKOnly, "Macro finalizada!!"
    End Sub

    Adiciona uma planilha e mostra o nome da planilha adicionada
    Sub Adiciona_planilha_3()
    Dim sht As Worksheet
    Set sht = Worksheets.Add
    MsgBox "A nova planilha foi adicionada." & vbCrLf & _
    "O o nome da nova planilha é : " & sht.Name _
    , vbInformation + vbOKOnly, "Macro finalizada!"
    End Sub

    Adiciona uma nova planiha e inica que a planilha foi adicionada
    vem com o vb yes/no, se não querer a macro sai da execução
    Sub Adiciona_planilha_4()
    Dim Response As VbMsgBoxResult
    Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
    If Response = vbNo Then Exit Sub
    Worksheets.Add
    MsgBox "A nova planilha foi adicionada.", vbInformation, "http://www.saberexcel.com"
    End Sub

    Esta macro usa a mensagem Yes/No, e pergunta se quer inserir uma planilha e se a resposta
    foi não informa que não foi adicionada e se sim e informa que [sim ]
    Sub Adiciona_planilha_5()
    Dim Response As VbMsgBoxResult
    Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
    If Response = vbNo Then
    MsgBox "Não foi adicionada a worksheet", vbInformation
    Else
    Worksheets.Add
    MsgBox "Uma nova planilha foi inserida no workbook.", vbInformation, "http://www.saberexcel.com"
    End If
    End Sub

    Esta macro usa a mensagem Yes/No/Cancel, e pergunta se quer inserir uma
    nova planilha com formata de data e horario, tem a opção de sim, nao ou cancela
    Sub Adiciona_planilha_6()
    Dim Response As VbMsgBoxResult
    Dim sht As Worksheet
    Response = MsgBox("Deseja inserir uma nova planilha ao workbook com formato de dia e hora?" _
    , vbQuestion + vbYesNoCancel)
    If Response = vbYes Then
    Set sht = Worksheets.Add
    sht.Name = Format(Now, "ddd-mmm-yyyy_hhnnss")
    ElseIf Response = vbNo Then
    Worksheets.Add
    Else
    Exit Sub
    End If
    MsgBox "Macro finalizada!.........", vbInformation, "http://www.saberexcel.com"
    End Sub


    Esta macro usa a instrução Case e analisa a msg com yes/no/cancel (caixa de mensagem)
    Yes/No/Cancel message box.
    Sub Adiciona_planilha_7()
    Dim Response As VbMsgBoxResult
    Dim sht As Worksheet
    Response = MsgBox("Você deseja inserir a planilha com formato dia e hora?" _
    , vbQuestion + vbYesNoCancel)
    Select Case Response
    Case vbYes
    Set sht = Worksheets.Add
    sht.Name = Format(Now, "ddd-mmm-yyyy_hhmmss")
    Case vbNo
    Worksheets.Add
    Case vbCancel
    Exit Sub
    End Select
    MsgBox "Macro finalizada.....", vbInformation, "http://www.saberexcel.com"
    End Sub


    Esta macro deleta todas as planilhas exceto a escolhida para não ser deletada
    Sub Deleta_Planilhas_Exceto_Desejada()
    On Error Resume Next
    For Each Nm In Worksheets
    Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
    If Nm.Name <> "PRINCIPAL" Then
    Nm.Delete
    End If
    Next
    End Sub

    Aprenda Aplicativo Microsoft Excel VBA ---( SaberExcel VBA )--
    Sozinho, em casa, com excelente material de estudos (SaberExcel)




    vba msgbox emite splash screen vba msgbox emite splash screen

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 48.08 KB
    Downloads: 896

    Saberexcel - O Site das Macros
    Essa macro do Aplicativo Microsoft Excel VBA, emite uma mensagem com espaços iniciais, aqui na macro determinado como (50), observe que funcionará como um Splash Screen. é bem legal.



    Sub Splash_Screen_Msg()
    Dim WShell As Object
    Dim mensagem As String
    Application.StatusBar = "Espere apenas dois segundos...."
    mensagem = Space(50) & "http://www.saberexcel.com" & Space(50)
    Set WShell = CreateObject("WScript.Shell")
    r = WShell.Popup(mensagem, 2, Space(35) & "Excel VBA Estudos®", 4096)
    Set WShell = Nothing
    Application.StatusBar = ""
    End Sub




    Aprenda tudos sobre o Aplicativo Microsoft Excel VBA com Saberexcel




    vba msgbox exemplos de multiplas escolha vba msgbox exemplos de multiplas escolha

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: 19.34 KB
    Downloads: 980

    Saberexcel - O site das Macros

    Macros do Aplicativo Microsoft Excel VBA contendo mensagens simples e com múltiplas escolhas.

    msgbox simples
    Sub vba_msgbox_exemplo_I()
    MsgBox "Aprenda MS Excel VBA", vbInformation, "Saberexcel - o site das macros"
    End Sub

    msgbox usando a instrução if...then else, com duas escolhas sim e ou nao.
    Sub vba_msgbox_exemplo_II()
    If MsgBox("Escolha SIM ou NÃO", vbQuestion + vbYesNo) = vbYes Then _
    MsgBox "você optou por SIM" Else MsgBox "voce optou por NÃO"
    End Sub


    msgbox usando a instrução select case, com tres escolhas, sim, nao, cancelar
    Sub vba_msgbox_exemplo_III()

    Select Case MsgBox("Escolha SIM, NAO OU CANCELAR", vbQuestion + vbYesNoCancel)

    Case vbYes: MsgBox "Você optou por SIM", vbInformation, "Saberexcel - o site das macros"
    Case vbNo: MsgBox "Voce optou por NÃO", vbCritical, "Saberexcel - o site das macros"
    Case Else: MsgBox "Você optou por CANCELAR", vbCritical, "Saberexcel - o site das macros"

    End Select

    End Sub



    Aprenda Microsoft Excel VBA (Saberexcel)



    Página 1 de 2

    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