vba_codigos

Prévia do material em texto

Utilizando o arquivo semi pronto da aula anterior aulaVBA1.xls, faça os passos 
seguintes:
1 – Na planilha estoque, insira quatro campos de texto, sendo eles referentes a 
produto, quantidade, medida e data de entrada (DESENVOLVEDOR-INSERIR-
CONTROLES ACTIVEX- CAMPO DE TEXTO)
2- Mude os nomes de cada campo de texto de forma conveniente ( BOTÃO 
DIREITO DO MOUSE – PROPRIEDADES - (NAME))
3 - Insira um botão cadastrar (DESENVOLVEDOR-INSERIR-CONTROLES 
ACTIVEX- BOTÃO)
4 - Mude o nome e o label do botão para cadastrar ( BOTÃO DIREITO DO 
MOUSE – PROPRIEDADES – (NAME) – CAPTION)
5- Insira o código VBA a seguir correspondente ao botão cadastrar, fazendo as 
devidas modificações, destacadas em vermelho. Os comentários em negrito 
devem ser retirados pois são apenas explicativos ( BOTÃO DIREITO DO MOUSE 
– EXIBIR CÓDIGO)
' declaração de duas variáveis
Dim contador As Integer
Dim fim As Boolean
' inicialização de variáveis
fim = False
contador = 15
' laço de repetição enquanto a variável fim tem valor igual a false 
Do While fim = False
' testa se a uma certa célula da planilha está vazia, sendo referenciada por linha e 
coluna.
If Worksheets("Nome da planilha").Cells(contador, 2).Value = "" Then
' preenche a celula referenciada da planilha com um valor
Worksheets("Nome da planilha").Cells(contador, 2).FormulaR1C1 = contador – 14
' preenche a celula referenciada da planilha com um valor
Worksheets("Nome da planilha ").Cells(contador, 3).FormulaR1C1 = nome do campo 
produto
' preenche a celula referenciada da planilha com um valor
Worksheets("Nome da planilha").Cells(contador, 4).FormulaR1C1 = nome do campo 
quantidade
' preenche a celula referenciada da planilha com um valor
Worksheets("Nome da planilha").Cells(contador, 5).FormulaR1C1 = nome do campo 
medida
' preenche a celula referenciada da planilha com um valor
Worksheets("Nome da planilha").Cells(contador, 6).FormulaR1C1 = nome do campo data 
entrega
' limpa campos de texto
nome do campo produto = ""
nome do campo qtde = ""
nome do campo medida = ""
nome do campo data_entrega = ""
' altera o valor da variável fim para que o laço de repetição pare.
fim = True
End If
contador = contador + 1
Loop
End Sub
6 - Insira um botão pesquisarr (DESENVOLVEDOR-INSERIR-CONTROLES 
ACTIVEX- BOTÃO)
7 - Mude o nome e o label do botão para pesquisar ( BOTÃO DIREITO DO 
MOUSE – PROPRIEDADES – (NAME) – CAPTION)
8- Insira o código VBA a seguir correspondente ao botão pesquisar, fazendo as 
devidas modificações, destacadas em vermelho. Os comentários em negrito 
devem ser retirados pois são apenas explicativos ( BOTÃO DIREITO DO MOUSE 
– EXIBIR CÓDIGO)
' declaração de variáveis
Dim codigo_informado As String
Dim teste As String
Dim contador As Integer
' caixa para entrada de dados
codigo_informado = InputBox("Mensagem para o usuário", "título da janela")
teste = codigo_informado + 14
' repetição de instruções de 1 até achar código informado
For contador = 1 To codigo_informado
' testa se achou o código informado 
 If codigo_informado = contador Then
' caixa de mensagem com o valor da célula Cteste
 MsgBox (Range("C" + teste).Value)
 Exit For
 End If
Next contador
End Sub