VBA Tips - Use Caixas de Mensagens melhores com botões e ícones adicionais - Enhance Message Boxes with additional Buttons and Icons

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

A função MsgBox contém um argumento opcional, Buttons, que nos permite colocar botões adicionais, além de ícones nas nossas caixas de mensagens, especificando um valor VbMsgBoxStyle. 

Para obter uma lista de valores VbMsgBoxStyle, consulte o Object Browser VBA.

Aqui está um exemplo de como colocar botões adicionais e ícones nas suas caixas de mensagens:

Public Sub CustomMessageBoxes()

    ' Purpose: Demonstrates how to work with custom message boxes.

    Dim iResponse As Integer

    

    MsgBox Prompt:="Abort/Retry/Ignore (Ignore Default)", _

        Buttons:=vbAbortRetryIgnore + vbDefaultButton3

    MsgBox Prompt:="Critical", Buttons:=vbCritical

    MsgBox Prompt:="Exclamation", Buttons:=vbExclamation

    MsgBox Prompt:="Information", Buttons:=vbInformation

    MsgBox Prompt:="OK/Cancel", Buttons:=vbOKCancel

    MsgBox Prompt:="Question", Buttons:=vbQuestion

    MsgBox Prompt:="Retry/Cancel", Buttons:=vbRetryCancel

    MsgBox Prompt:="Yes/No", Buttons:=vbYesNo

    MsgBox Prompt:="Yes/No with Information", _

        Buttons:=vbYesNo + vbInformation

    MsgBox Prompt:="Yes/No with Critical and Help", _

        Buttons:=vbYesNo + vbCritical + vbMsgBoxHelpButton

    ' Determina cada botão selecionado pelo usuário.

    Let iResponse = MsgBox(Prompt:="Click Yes or No.", _

        Buttons:=vbYesNo + vbCritical)

    Select Case iResponse

        Case vbYes

            MsgBox Prompt:="You clicked Yes."

        Case vbNo

            MsgBox Prompt:="You clicked No."

    End Select

End Sub

Tags: VBA, Tips, enhance, message, boxes, additional, buttons, Icons, caixa de mensagens, ícones, botões, VBA Object Browser, VbMsgBoxStyle, VbMsgBoxStyle

VBA Excel - Caixa de Diálogo

Olá mais uma vez...

Segue código pronto para o COPIAR e COLAR (do jeito que eu gosto). Abra a caixa de diálogo e escolha o arquivo que desejar para o propósito que preferir. E porque não voltar ao básico? Isso é perfeito! Revemos o princípio e melhoramos o presente com excelentes perspectivas para o futuro.

Primeira opção

Dim strFilePath As String, strPath As String Dim fdgO As FileDialog, varSel As Variant MsgBox "A tabela não está correta, " & _ "e o arquivo de dados não pôde ser achado na respectiva pasta: " & _ strPath & ". Por favor,localize a pasta que contenha dados de exemplo " & _ ".: Dialog.", vbInformation, gstrAppTitle Set fdgO = Application.FileDialog(msoFileDialogFilePicker) With fdgO .AllowMultiSelect = False .Title = "Localize a pasta com dados de exemplo" .ButtonName = "Escolha" .Filters.Clear .Filters.Add "All Files", "*.*", 1 .FilterIndex = 1 .InitialFileName = strPath .InitialView = msoFileDialogViewDetails If .Show = 0 Then MsgBox "Houve falha para selecionar o arquivo correto. ATENÇÃO: " & _ "Você talvez não tenha aberto uma tabela conectada a aplicação. " & _ " Você pode re-abrir este formulário ou " & _ "inicie o formulário, tentando novamente.", vbCritical, gstrAppTitle Let CheckConnect = False Exit Function End If Let strFilePath = .SelectedItems(1) End With Let strPath = Left(strFilePath, InStrRev(strFilePath, "\") - 1) Let varSel = AttachAgain(strPath)

Segunda opção

Sub GetDat () ' Posiciona num local específico. ChDrive "C: \" ChDir "C: \ Teste \" Let FileToOpen = Application.GetOpenFilename _ (Title:="Por favor escolha o arquivo a importar:", FileFilter:="Arquivos Excel *.xls (*.xls),")'' If FileToOpen = False Then MsgBox "Arquivo não especificado!", vbExclamation, "Duh!!!" Exit Sub Else Workbooks.Open Filename:=FileToOpen End If End Sub

Fontes: https://sites.google.com/site/vbabernardes/blogs http://www.mrexcel.com

Tags: André Luiz Bernardes, Analista, Programador VBA, MOS, Microsoft Office Specialist, VBA, Visual Basic for Applications, MS, Microsoft, Office, MS Office, MS Access, MS Excel, MS Outlook, MS Powerpoint, MS Word, MS Visio, MS Communicator, MS OneNote, MS Publisher, InfoPath, SharePoint Workspace, Lync

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com