Trabalho De Programação Em Micro Informatica Sobre Macros

Questionário 02

Data: 31/08/13

Exercício 1

a. Construa uma macro Fonte que altera a fonte usada na tabela para Tahoma, 11. Os títulos devem ficar em negrito e as células que contém os valores devem ficar no formato moeda.

Criação da Macro

Código VBA

Sub Fonte()

'

' Fonte Macro

' Exercício 1 A Construa uma macro Fonte que altera a fonte usada na tabela para Tahoma, 11. Os títulos devem ficar em negrito e as células que contém os valores devem ficar no formato moeda.

'

' Atalho do teclado: Ctrl+f

'

ActiveCell.Offset(-1, 0).Range("A1:C2,D2,C3,C4,C5,C6,C7,C8,A8,A9:B9,A3").Select

ActiveCell.Offset(1, 0).Range("A1").Activate

With Selection.Font

.Name = "Tahoma"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With

Selection.Font.Bold = True

ActiveCell.Offset(0, 1).Range("A1:A6,C1,C2,C3,C5,C4,C6,B7").Select

ActiveCell.Offset(6, 2).Range("A1").Activate

Selection.Style = "Currency"

End Sub

Resultado

b. Construa uma macro Cor que pinte o cabeçalho de azul e seu conteúdo de branco.

Criação da Macro

Código VBA

Sub Cor()

'

' Cor Macro

' b. Construa uma macro Cor que pinte o cabeçalho de azul e seu conteúdo de branco.

'

' Atalho do teclado: Ctrl+c

'

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 12611584

.TintAndShade = 0

.PatternTintAndShade = 0

End With

With Selection.Font

.ThemeColor = xlThemeColorDark1

.TintAndShade = 0

End With

End Sub

Resultado

2. Construa uma macro chamada Link que crie um link entre a célula F1 da planilha e o site da Fatec.

Criação da Macro

Código VBA

Sub Link()

'

' Link Macro

' 2. Construa uma macro chamada Link que crie um link entre a célula F1 da planilha e o site da Fatec.

'

' Atalho do teclado: Ctrl+l

'

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

"http://www.fatecmogidascruzes.com.br", TextToDisplay:= _

"http://www.fatecmogidascruzes.com.br"

End Sub

Resultado

03. Crie um projeto no VBA que possua uma subrotina que faça a formatação da primeira célula da planilha 1 com a fonte Verdana, tamanho 20, cor verde, negrito e itálico

Sub Exercicio3()

'

' Exercicio 3

'03. Crie um projeto no VBA que possua uma subrotina que faça a formatação da 'primeira célula da planilha 1 com a fonte Verdana,

'tamanho 20, cor verde, negrito e itálico

Range("A1").Select

With Selection.Font

.Name = "VERDANA"

.Size = 20

.Color =