Lógica em VisualBasic for Aplication & Excel
Sinfo2012.2 :: Fixas :: Masters :: MS. O. EXCEL
Página 1 de 1
Lógica em VisualBasic for Aplication & Excel
Dedicado ao meu Colega Deivison
{Porque?)
{porque o Excel está em quase todas as empresas que já trabalhei e na grande maioria das que vocês vão trabalhar.)
{ e o que vc vai fazer nessa primeira onda?)
{vamos começar criando um form que recebe dois valores e indica qual é o maior)
{é...parece bom)
{se você não tiver a guia de desenvolvedores habilitada faça isso seguindo esse caminho: Arquivo / Opções / personalizar faixa de opções /(no lado direito marque a opção Desenvolvedor). OK e lá está ela.
{para abrir o VBFA(visualBasic for Aplication) vá na guia desenvolvedor e clique no botão que o corresponde)
o Layout se assemelha com o office 2003 e é abaixo do Menu Arquivo que vc verá dois botões e num deles um simbolo para expandir onde vc vai selecionar UserForm)
{HUM..... APARECEU UMA CAIXA DE FERRAMENTAS FLUTUANT E EU CONSIGO MUDAR O LUGAR DELA.)
{isso aew amarelo, clique sobre o item Caixa de Texto dessa caixa de ferramenta e clique no form. veja que no canto esquerdo vc tem uma caixa de propriedades do objeto, no campo nome altere para Txt1 repita o processo e ponha o nome da segunda caixa Txt2)
{acrescente:
um botao de comando e altere seu nome para CmdCalc;
um rótulo com nome de LblMsg[nas propriedades deste apague o texto que está em Caption]
{ficou tão feio, vou organizar para ficar melhor)
{
{legal mlk, ficou joinha)
{
Caption é o conteudo de um objeto;
Value é o valor de algo;
_Click() é o evento (evento é quando vc quer que seu comando aconteça, por exemplo quero qeu execute esse comando quando clicar no botão)
entre Private Sub e End Sub são respectivamente o inico e fim do nosso projeto
)
{Porque?)
{porque o Excel está em quase todas as empresas que já trabalhei e na grande maioria das que vocês vão trabalhar.)
{ e o que vc vai fazer nessa primeira onda?)
{vamos começar criando um form que recebe dois valores e indica qual é o maior)
{é...parece bom)
{se você não tiver a guia de desenvolvedores habilitada faça isso seguindo esse caminho: Arquivo / Opções / personalizar faixa de opções /(no lado direito marque a opção Desenvolvedor). OK e lá está ela.
{para abrir o VBFA(visualBasic for Aplication) vá na guia desenvolvedor e clique no botão que o corresponde)
o Layout se assemelha com o office 2003 e é abaixo do Menu Arquivo que vc verá dois botões e num deles um simbolo para expandir onde vc vai selecionar UserForm)
{HUM..... APARECEU UMA CAIXA DE FERRAMENTAS FLUTUANT E EU CONSIGO MUDAR O LUGAR DELA.)
{isso aew amarelo, clique sobre o item Caixa de Texto dessa caixa de ferramenta e clique no form. veja que no canto esquerdo vc tem uma caixa de propriedades do objeto, no campo nome altere para Txt1 repita o processo e ponha o nome da segunda caixa Txt2)
{acrescente:
um botao de comando e altere seu nome para CmdCalc;
um rótulo com nome de LblMsg[nas propriedades deste apague o texto que está em Caption]
{ficou tão feio, vou organizar para ficar melhor)
{
- Código:
Private Sub CmdCal_Click()
'declarando variaveis'
Dim v1, v2 As Integer
'Dando o valor das caixas de texto as váriaveis'
v1 = Txt1.Value
v2 = Txt2.Value
'Teste condicional'
If (v1 > v2) Then
'atribuindo o Caption que vc apagou pelo texto e unindo com '&' a váriável v1
LblMsg.Caption = "o maior é o " & v1
Else
'atribuindo o Caption que vc apagou pelo texto e unindo com '&' a váriável v2
LblMsg.Caption = "o maior é o " & v2
End If
End Sub
{legal mlk, ficou joinha)
{
Caption é o conteudo de um objeto;
Value é o valor de algo;
_Click() é o evento (evento é quando vc quer que seu comando aconteça, por exemplo quero qeu execute esse comando quando clicar no botão)
entre Private Sub e End Sub são respectivamente o inico e fim do nosso projeto
)
Sinfo2012.2 :: Fixas :: Masters :: MS. O. EXCEL
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|