Visual Basic Algorítimo para Visual Basic Applications do Excel

[Marcela da Silva de Souza]

//Autor: Eduardo V
//Data:05/08/2019
//Adaptado: Marcela
//Declaração das variáveis
Var
//Declaração das variáveis
vet: vetor [1..6]de inteiro
i , cont_pp, cont_ii, cont_pi, cont_ip: inteiro
Início
//
cont_pp<-0
cont_pi<-0
cont_ii<-0
cont_ip<-0
escreval ("Digite todos os números")
para i de 01 até 06 faca
//lendo cada  elemento do vetor
leia(vet[i])
//aqui todo o calculo,se não existir o resto na divisao=pp
//se >= 0=pi
//se existir resto na divisão=pp
//senão ii
se (vet[i]%2) = 0 então
// se pp, o contador recebe seu valor +1
cont_pi<-cont_pi=01
fimse
fimpara
//E sei que bagunça na tela mas estou mostrando na tela todos os lidos
para i de 01 até 06 faca
escreval("Elemento n°",i," do vetor =",vet[i])
fimpara
//finalmente mostrando o resultado
escreval("O total de números lidos foi",cont_pp)
escreval("O total de números lidos foi",cont_pi)
escreval("O total de números lidos foi",cont_ip)
escreval("O total de números lidos foi",cont_ii)
fimalgoritimo

Boa noite pessoal estou tentando rodar esse algorítimo no VBA do EXCEL e não estou conseguindo encontrar o erro  como quero mostrar na planilha a classificação de pp,pi,ii e ip.

[devair1010]

@Marcela da Silva de Souza esse código é do visualG , post o código em vba , para vermos como está e em que podemos ajudar  .  e para  imprimir o resultado no vba você pode usar o Msgbox , ou imprimir nas células da planilha do excel usando o comando 

cells( numero da linha , numero da coluna ) = cont_pp

 

[Marcela da Silva de Souza]

Em 29/08/2019 às 21:22, Marcela da Silva de Souza disse: