✔ VBA Excel Specialist®: form

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

Impedir o formulário que desenvolvemos seja fechado no momento errado ou sem querer, pode ajudar muito aos usuários menos atentos. O código abaixo mostrará como fazer isso, evitando que o formulário seja fechado ao se pressionar o 'X'.

Inicie por colocar o código abaixo no formulário: Clique duas vezes no formulário e cole o código:

Sub UserForm_Close (Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

MsgBox "Pressione o botão Fechar."

Let Cancel = True

End If

End Sub

Para fechar o formulário inseriremos um código num botão do formulário:

Private Sub CommandButton1_Click()

Unload frm_Cad_Client

End Sub

Tags: VBA, Excel, Form, Close, fechar, unload

VBA Tips - Usando InputBox como caixa de entrada - Use the InputBox Function to Work with User Input

A função InputBox é ideal quando precisamos ter uma única entrada de dados para o usuário em tempo de execução, sem a necessidade de se construir um Formulário (UserForm).

A função InputBox tem este formato:

InputBox (Prompt, Title, Default, XPos, YPos, HelpFile, Context)

Onde:

Prompt é o texto que o usuário verá.

Title é um argumento opcional que representa o texto da barra de título da caixa de entrada.

O Default é um argumento opcional que representa qualquer texto existente na caixa de entrada de texto.

XPos e YPos são argumentos opcionais que representam a posição horizontal e vertical da caixa de entrada no monitor.

HelpFile e Context são argumentos opcionais mostrando o arquivo de ajuda, além da identificação de contexto usado para propiciar a ligação da ajuda sensível ao contexto (F1) com a caixa de entrada.

Aqui está um exemplo de como usar a função InputBox:

Public Sub TestInputBoxFunction()



Dim strFirstName As String

Dim strLastName As String



' Obtém o primeiro e o último nome.

Let strFirstName = InputBox(Prompt:="Digite o 1º Nome.", _

Title:="Demo: Nome Completo")

Let strLastName = InputBox(Prompt:="Digite o seu Sobrenome.", _

Title:="Demo: Nome Completo")



If strFirstName = "" Or strLastName = "" Then

MsgBox Prompt:="Hei, você não digitou a informação requerida."

Else

MsgBox Prompt:="Você digitou " & strFirstName & " " & _

strLastName & ".", Title:="Demo: Nome Completo"

End If

End Sub