Aula9 - 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
Strings
Sintaxe:
Dim <nome_da_variável> As String
Exemplo:
Dim  nomeCliente As String
nomeCliente = “Albert Einstein”
Função Len
Retorna o comprimento de uma string.
Sintaxe: Len(<string>)
Exemplo: Dim cont As Integer
        Dim nome As String
        nome = “Albert Einstein”
        cont = Len(nome)
Função Mid 
Retorna uma string do tamanho tam a 
partir da posição pos
 Sintaxe: Mid(<string>, pos, tam)
 Exemplo:
 fragmento = Mid(nome, 8, 3)
Exemplo 1 
Escreva uma função que recebe 
um texto e conta o número de 
vogais.
Concatenação de Strings - &
Sintaxe: <str1> &<str2>
 
 Exemplo:
Dim sobreN As String
Dim nome As String
nome = “Albert”
sobreN = “Einstein”
nome = nome & “ “ & sobreN
Exemplo 2 
Escreva uma função que recebe 
um nome completo e extrai o 
primeiro nome.
 
Function prenome(nome As String) As String
    Dim letra As String
    Dim i As Integer
    Dim resposta As String
    resposta = “”
    i=1
    letra = Mid(nome, i, 1)
    While letra <> “ “ And i < Len(nome)
      resposta = resposta & letra
      i=i+1
      letra = Mid(nome, i, 1)
    WEnd
    prenome = resposta
  End Function
 
 resposta = “”
 i=1
 letra = Mid(nome, i, 1)
 While letra<>“ “ And i<Len(nome)
   resposta = resposta & letra
   i=i+1
   letra = Mid(nome, i, 1)
 WEnd
    
 
E se só tiver um nome?
Acrescentar depois do While:
 
If letra <> " " Then:    
resposta = resposta & letra
    
 
E se só tiver um nome?
Acrescentar depois do While:
 
If letra <> " " Then:    
resposta = resposta & letra
    
Exemplo 3 
Escreva uma função que recebe 
um nome completo e extrai o 
(último) sobrenome.
Exemplo 4 
Escreva um programa lê uma lista 
de nomes na coluna A e separa o 
nome e o sobrenome.
	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