Aula10 - Programação (VBA)

Prévia do material em texto

Introdução à Computação
Para Ciências Humanas
10 semestre de 2017
Renata Wassermann
renata@ime.usp.br
Decomposição de Problemas
“Divide et impera”
(Julius Caesar)
Exemplo
Decompondo
1.Preencher Coluna D “Pedido de 
Compra”
2.Preencher Coluna F “Custo Compra”
Pedido de Compra 
1. Preencher “Pedido de Compra”
 1.1. Para cada linha, calcular 
quantidade.
 1.2. Percorrer as linhas 
preenchendo para cada linha a 
quantidade. 
Function Repoe(Lin As Integer)As Integer
   Dim emEstoque As Integer
   Dim estoqueMin As Integer
   Dim faltando As Integer
   emEstoque = Cells(Lin, COLUNA_ES)
   estoqueMin = Cells(Lin, COLUNA_MIN)
   faltando = 0 
   If emEstoque < estoqueMin Then
      faltando = estoqueMin ­ emEstoque
   End If
   Repoe = faltando
End Function
Pedido de Compra 
1. Preencher “Pedido de Compra”
 1.1. Para cada linha, calcular 
quantidade.
 1.2. Percorrer as linhas 
preenchendo para cada linha a 
quantidade. 
Sub PedidoCompra()
   Dim compra As Integer
   Dim lin As Integer
   lin = 2
   While Not IsEmpty(Cells(lin, COL_PROD))
      compra = Repoe(lin)
      If compra > 0 Then
         Cells(lin, COL_PED) = compra
      End If
      lin = lin + 1
   Wend
End Sub
Calcular Custos
2. Preencher “Custo Compra”
 2.1. Para cada linha, calcular o 
custo de compra do produto.
 2.2. Preencher o custo de cada 
linha e o custo total do pedido.
 
Function CustoCompra(Lin As Integer) 
                              As Double
  
   Dim quant As Integer
   Dim precoUnit As Double
   
   quant = Cells(Lin, COL_PED)
   precoUnit = Cells(Lin, COL_UNIT)
   
   CustoCompra = quant * precoUnit
End Function
Calcular Custos
2. Preencher “Custo Compra”
 2.1. Para cada linha, calcular o 
custo de compra do produto.
 2.2. Preencher o custo de cada 
linha e o custo total do pedido.
 
Sub CustoPedido()
   Dim custolin As Double
   Dim lin As Integer
   Dim total As Double 
   lin = 2
   total = 0
   While Not IsEmpty(Cells(lin, COL_PROD))
      custolin = CustoCompra(lin)
      Cells(lin, COL_CUSTO) = custolin
      total = total + custolin
      lin = lin + 1
   Wend
   Cells(lin, COL_CUSTO) = "Custo total:  " & total
End Sub
Programa completo
1.Preencher Coluna D “Pedido de 
Compra”
2.Preencher Coluna F “Custo Compra”
Programa completo
Sub MontaPedido()
     PedidoCompra
     CustoPedido
End Sub
Usando Múltiplas Planilhas 
 
Cells(<lin> , <col>)
Worksheets(“<planilha>").Cells(<lin>,<col>)
Usando Múltiplas Planilhas 
 
Cells(<lin> , <col>)
Worksheets(“<planilha>").Cells(<lin>,<col>)
Exemplo 
Podemos refazer o exemplo mantendo a 
planilha de preços unitários dos produtos 
separada.
	Slide 1
	Slide 2
	Slide 3
	Slide 4
	Slide 5
	Slide 6
	Slide 7
	Slide 8
	Slide 9
	Slide 10
	Slide 11
	Slide 12
	Slide 13
	Slide 14
	Slide 15
	Slide 16
	Slide 17