Fundamentos de VBA Prof Kese Alberton

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Plan1
	EXERCÍCIOS DE VBA
	Exercício - Dada a coluna x, leia a coluna e calcule y =2*x e escreva na coluna y. Utilize o comando for, sabendo que a coluna contém 6 elementos.
	x	1	2	3	4	5	6
	y
	Exercício - Dada a coluna x, leia a coluna e calcule y =2*x e escreva na coluna y. Utilize o comando Do While (IsEmpty() =False)para verificar o número de elementos em x.
	x	1	2	3	4	5	6
	y
	Exercício - Dada a coluna x, e escreva os dados sem espaço. É sabido que você deve investigar até a célula H18.
	x	1	2	5	6
	x
	Exercício - Com comandos em VBA, leia os textos na célula indicadas e "some" os textos, escrevendo os resultados na célula indicada.
	Entrada 1	Entrada 2	Entrada 3	Saída
	Engenharia	é	foda!!!
	Exercício - Com comandos em VBA, leia os textos na célula indicada, "some" os textos. Com o comando Replace(arg1,arg2,arg3), troque "E" por "3" e escreva o resultado.
	Entrada 1	Entrada 2	Entrada 3	Saída
	Engenharia	é	foda!!!
	Exercício - Crie uma matriz de tamanho 3x3, cujos elementos são dados por M(i,j)=i+2*j
	M
	Exercício - Crie uma matriz de tamanho 3x3, cujos elementos fora da diagonal são dados por M(i,j)=i+2*j, e os elementos da diagonal são M(i,i) = i^2
	M
	Exercício - Dado um número entre 0 e 2π , diga a qual quadrante ele pertence
	Número	Quadrante
	2.0943951024
	Exercício - Crie uma subrotina que eleve um número ao quadrado. Em uma subrotina Principal, chame a subrotina criada para calcular o quadrado do número
	x	3
	y
	Exercício - Seja a matriz M(3x2). Crie uma subrotina que troque duas linhas informadas da matriz. Em uma subrotina principal, chame esta troca de linhas, trocando a 2° a 3° linhas
	M	10	123	M trocada
	22	221
	34	320
	Exercício - Crie uma função que receba três argumentos, x,k e n e calcule, y = k*x^n
	x	k	n	y
	1.2	3.1	2
	Exercício - Crie uma função o argumento x e calcule, y =1.5*x^2 se x<2 ou y= 2.2 se x>=2
	x	y
	2.2
	Exercício - Na geração de uma matriz 5 x5, M(i,j) = i/(j+2), feita pelo código a seguir, há uma série de erros. Debugue o código ao rodá-lo com o Excel VBA.
	Sub Principal2()
Dim i, j As Integer
Dim M(3, 3) As Double
Dim aux As Double
For i = 1 To 5
 For j = 1 To 6
 M(i,j) = i/(2-j)
 Next
End Sub
	Exercício - Com o comando Range(Cells(),Cells()), selecione o conjunto de dados a seguir. 
	x	1	2	3	4	5	6
	Exercício - Crie uma macro que copie os dados de x da primeira linha e os cole na segunda. Pare a macro e veja o código gerado.
	x	1	2	3	4	5	6
	x
	Exercício - Veja o código macro gerada no exercício anterior. Pode-se limpar o conteúdo de células com o comando Range(Cells(),Cells()).ClearContents. Limpe o conteúdo das células a seguir.
	x	1	2	3	4	5	6
	Exercício - Com uma macro, gere o gráfico entre x e y. Insira-o em uma nova planilha chamada Grafico 1. Formate-o como desejar. Veja o código gerado.
	x	1	2	3	4	5	6
	y	2	4	5	6.3	4	2
	Exercício - Imagine que se deseja apagar o Grafico 1 se houver, e gerá-lo novamente, igual ao do exercício anterior. Para tanto, o seguinte comando apaga um gráfico chamado "Grafico 1" se houver. Copie-o e o cole no ínicio do código de geração do gráfico. Gere o gráfico diversas vezes a partir de agora.
	Dim NumCharts as Integer
 
 ' Deleta gravicos
 Application.DisplayAlerts = False 'anula os avisos do excel
 NumCharts = ActiveWorkbook.Charts.Count
 For i = NumCharts To 1 Step -1
 If (Charts(i).Name = "Grafico 1") Then
 ActiveWorkbook.Charts(i).Delete
 End If
 Next
 Application.DisplayAlerts = True
	Exercício - Crie um botão de ação e vincule-o à macro que gera o gráfico.
	COPIE A MACRO DO GRÁFICO E INSIRA-A EM UM NOVO MÓDULO. VAMOS MODIFICÁ-LA.
	Exercício - Veja no código do gráfico, onde encontra-se os dados de origem, um texto do tipo "A53:G53" . O comando Str(Número) converte númer em texto. Crie um texto que contém o texto com os dados de origem. Substitua-o na macro que gera o gráfico e gere novamente o gráfico.