Excell Avançado
Tipos:
* Integer – sem casas decimais * Long – sem casas decimais

* Single * Double * Boolean

* String

* Arrays

* Records

Instruções: 1. IF < condição > THEN <Instrução > 2. ELSE <Instrução > 3. ENDIF 4. CASE – defino intervalos e para cada intervalo vou ter várias operações.
SELECT CASE < variável >
CASE < lista de constantes > < instrução >
….
CASE ELSE (se não encaixar em nenhum intervalo, faço CASE ELSE) < instrução >
END SELECT
InputBox – aplicação que nos permites perguntar à pessoa que está a usar um certo logaritmo
MsgBox – aparece nova janela com o resultado.
III
2 – a)
Dim area as integer area = Inputbox (“Introduza o valor da sua área”)
IF area<50 THEN Msgbox “Mercearia”
ELSE
IF area<400 THEN Msgbox “Livre Serviço”
ELSE
IF area<1000 THEN Msgbox “Super Pequeno”
ELSE
IF area<2500 THEN Msgbox “Super Grande”
ELSE
Msgbox “Hipermercado”
END IF
END IF
END IF
END IF

b)
Dim area as integer area = Inputbox (“Introduza o valor da sua área”)
SELECT CASE
CASE 0 TO 49 Msgbox “Mercearia”
CASE 50 TO 399 Msgbox “Livre Serviço”
CASE 400 TO 999 Msgbox “Super Pequeno”
CASE 1000 TO 2499 Msgbox “Super Grande”
CASE ELSE Msgbox “Hipermercado”
END SELECT

CICLOS DE REPETIÇÃO 1. FOR < variável > = < valor inicial > TO < valor final>
< intruções >
NEXT
2. DO WHILE < condição >
< instruções >
LOOP
3. DO
< instruções >
LOOP UNTIL < condição >

IV
3 – 1. Definir variáveis linha [1 a 10] 2. Ver se há repetição? Há 3. O que é pedido? Ou quantas variáveis vamos ter? int(1+100*RND)

a) Dim linha as integer
FOR linha = 1 TO 10
Cells (linha,1) = (1+100*RND)
NEXT
b) Dim linha as integer
Linha = 1
DO WHILE linha <= 10
Cells (linha,1) = int (1+100*RND)
Linha = linha + 1
LOOP
a) Dim linha as integer
Linha = 1
DO
Cells (linha,1) = int (1+100*RND)
Linha = linha + 1
LOOP UNTIL linha > 10
III
1
a) X=0
b) X=-1
c) X=1
d) Y=2
e) Y=0
4 – Dim T1 as integer, T2 as integer
Dim m1 as integer, m2 as integer, Dim m3 as integer
T1 = Inputbox (“ Nota 1º Teste”)
T2 = Inputbox (“ Nota 2º Teste”) m1 = Inputbox (“ Nota 1º mini-teste”) m2 = Inputbox (“ Nota 2º mini-teste”) m3 = Inputbox (“ Nota 3º mini-teste”)
IF m2 > m1 and m3 > m1 THEN
Msgbox 0,4*T1 + 0,4*T2 + 0,1*m2 + 0,1*m3
ELSE
IF m2 > m3 THEN
Msgbox 0,4*T1 + 0,4*T2 + 0,1*m1 + 0,1*m2
ELSE
Msgbox 0,4*T1 + 0,4*T2 + 0,1*m1 + 0,1*m3

IV
1 - Y | X | 4 | | 4 | - 1 | 4 – 2 * (-1) = 6 | - 1 | 6 | 0 | 6 – 2 * 0 = 6 | 0 | 0 | 1 | 6 – 2 *1 = 4 | 1 |

b | a | 5 | | 5 | 3 | 5 + 2 * 3 = 11 | 3 | 11 | 2 | 11 + 2 * 2 = 15 | 2 | 15 | 1 | 15 + 2 * 1 = 17 | 1 |

X | y | 0 | | 0 | 0 | 0 + 1 = 1 | 0 | 1 | 0 + 1 – 1 = 0 | 1 + 1 = 2 | 0 | 2 | 0 + 2 – 1 = 1 |

X | y | 16 | | 16 | 2 | 16 – 1 = 15 | 2 | 15 | 2 + 1 = 3 | 15 – 1 = 14 | 3 | 14 | 3 + 1 = 4 |

X | y | 24 | | 24 | 2 | 24 – 2 * 2 = 20 | 2 | 20 | 20 / ( 2 * 2 ) = 5 | 20 – 2 * 5 = 10 | 5 | 10 | 10 / ( 2 * 5 ) = 1 | 10 – 2 * 1 = 8 | 1 | 8 | 8 / ( 2 * 1 ) = 4 | 8 – 2 * 4 = 0 | 4 | 0 | 0 / ( 2 * 4 ) = 0 |

S | P | X | “ VISUAL BASIC” | | | . | 0 | | . | 1 | | . | 1 | “ V “ | . | 2 | “ V ” | . | 2 | “ I “ | . | 3 | “ I “ | . | 3 | “ S “ | . | 4 | “ S “ | . | 4 | “ U “ | . | 5 | “ U “ | . | 5 | “ A “ | . | 6 | “ A “ | . | 6 | “ L “ | . | 7 | “ L “ | . | 7 | “ “ | . | 8 | “ “ | . | 8 | “ B “ |
2 – a) x =24
Y = 2 DO WHILE x <> 0 LOOP b) DO
X = X – 1
Y = Y + 1
LOOP UNTIL X MOD Y <> 0 c) Y = 4
X = - 1
DO WHILE X <= 1
Y = y – 2 * X
X = X + 1
LOOP

6 - Dim linha as integer, coluna as integer For linha = 1 to 9 Cells (linha, coluna) = int ( 1 + 9 * RND ) NEXT NEXT V Exercício: Na coluna A nas primeiras 10 linhas por numeros ao calhas maiores que 0
1- Criar um sobprograma que copie todos os valores > 10 da coluna da A da sheet1 para a coluna A da sheet2, O programa pára quando vir a primeira célula vazia. Passos a seguir:
1- Quantas variáveis: 1 -> Linha
2- Ciclo de repetição: "O programa pára na primeira célula vazia" -> Do While (fazer enquanto…não está célula vazia) NOT ISEMPTY - Condição ISEMPTY (estar vazia)
3- Instrução: If > 10 Copiar End if 4- Programa: Sub copia10 ()
Dim linha as integer, linha 1 as integer linha = 1 linha 1=1
DO WHILE NOT ISEMPTY (cells (linha,1)) If cells(linha 1)>10 Then sheet("sheet2").cells(linha1,1)=sheets("sheet1").cells(linha,1) linha 1= linha1+1 End if linha=linha +1
Loop
End sub 1. Quantas variáveis 2. Ciclo repetição
Se sim: condição 3. Instruções
4 – 1 - Posição do espaço
2 - Não !
3 – IF posição do espaço *
ELSE
=>
END IF
“João” FUNCTION firstname (byval name as string) as string DIM p as integer P = InSTr (name, “_”) IF p > 0 THEN Firstname = left (name, p – 1) Else Firstname = name END IF
END FUNCTION
----
5 –
FUNCTION lastname (byval name as string) as string DIM p as integer P = InSTrRev (name, “_”) IF p > 0 THEN lastname = right (name, len(name) - p) Else lastname = name END IF
END FUNCTION
----

7 - | A | B | C | 1 | * | * | * | 2 | * | * | * | 3 | * | * | * |

Cells > average 1. 2 (coluna e linha da célula) + 2 (total de linhas e total de colunas) 2. FOR 3. IF cells > average
Conto = conto + 1
END IF
FUNCTION conto (byval myrange as range) as integer
DIM l as integer, c as integer
DIM l1 as integer, c1 as integer
DIM V
L1 0 myrange . rows . count
C1 = myrange . columns . count
V = myrange
Conto = 0
FOR l = 1 to l1
FOR c = 1 to c1
IF V (l,c) > application worksheetfunction . average ( V ) THEN
Conto = conto + 1
END IF
NEXT (por causa dos dois FOR)
NEXT (por causa dos dois FOR)
END FUNCTION
12 - 1 - Posição do espaço
2 – FOR dia = 1 to NumDiasMes
3 – IF t (dia) > 10 função = função + 1 END IF

d) FUNCTION TompSup10 (byval T as TptempMes) as integer
Dim dia as integer
TempSup10 = 0
FOR dia = 1 TO T.NumDiasMes
IF T.TempMedia (dia) > 10 THEN
TempSup10 = TempSup10 + 1
END IF
NEXT
END FUNCTION

17 – 1 – Nenhuma
2 – Não
3 – Não
FUNCRION verifica( byval frase as string ) as boolean
Verifica = left ( frase , 1 ) = right ( frase , 1 )
END FUNCTION

18 – SUB verificafrase ( )
Dim frase as string
Frase = Inputbox (“ Introduza uma frase “)
IF verifica (frase) THEN
Msgbox “A 1º letra é igual à última letra”
ELSE
Msgbox “ A 1º letra não é igual à última letra “
END IF
END SUB
158.162.0.15/informatica