Este tutorial mostrará como formatar células usando VBA.
Formatando Células
Existem muitas propriedades que podem ser definidas para uma (intervalo de) células como esta:
| 1234567891011 | Sub SetCellFormat ()Com planilhas ("Folha1"). Intervalo ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Itálico".NumberFormat = "Geral".Interior.Color = RGB (128, 100, 250)Terminar comEnd Sub |
Vamos vê-los em ordem alfabética:
AddIndent
Ao definir o valor desta propriedade como True, o texto será automaticamente indentado quando o alinhamento do texto na célula for definido, horizontal ou verticalmente, para distribuição igual (consulte HorizontalAlignment e VerticalAlignment).
| 12345 | Com planilhas ("Folha1"). Intervalo ("A1").Orientação = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueTerminar com |
Fronteiras
Você pode definir o formato da borda de uma célula. Veja aqui mais informações sobre fronteiras.
Como exemplo, você pode definir uma linha tracejada vermelha ao redor da célula B2 na Planilha 1 assim:
| 1 | Planilhas ("Folha1"). Intervalo ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Fonte
Você pode ajustar o formato da fonte da célula definindo o nome da fonte, estilo, tamanho, cor, adicionando sublinhados e / ou efeitos (tachado, sub ou sobrescrito). Veja aqui mais informações sobre fontes de células.
aqui estão alguns exemplos:
| 12345 | Com intervalo ("A1: C5"). Fonte.Name = "Século".FontStyle = "Negrito".Strikethrough = TrueTerminar com |
FormulaHidden
Esta propriedade retorna ou define um valor variante que indica se a fórmula será ocultada quando a planilha for protegida. Por exemplo:
| 1 | Planilhas ("Folha1"). Intervalo ("A1: B1"). FormulaHidden = Verdadeiro |
Alinhamento horizontal
Esta propriedade de formato de célula retorna ou define um valor variante que representa o alinhamento horizontal para o objeto especificado. As constantes retornadas ou definidas podem ser: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Por exemplo:
| 1 | Planilhas ("Folha1"). Intervalo ("D3"). Alinhamento Horizontal = xlRight |
IndentLevel
Ele retorna ou define um valor inteiro entre 0 e 15 que representa o nível de recuo para a célula ou intervalo.
| 1 | Planilhas ("Folha1"). Intervalo ("A1"). IndentLevel = 7 |
Interior
Você pode definir ou obter informações retornadas sobre o interior da célula: sua cor, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, assim:
| 123 | Se não for intervalo ("A1"). Interior.ThemeColor = ThemeColorLight2 ThenIntervalo ("A1"). Interior.Pattern = xlPatternUpFim se |
Trancado
Esta propriedade retorna True se a célula ou intervalo estiver bloqueado, False se o objeto puder ser modificado quando a planilha estiver protegida ou Nulo se o intervalo especificado contiver células bloqueadas e desbloqueadas. Ele também pode ser usado para bloquear ou desbloquear células.
Este exemplo desbloqueia células A1: B2 na Planilha1 para que possam ser modificadas quando a planilha estiver protegida.
| 12 | Planilhas ("Folha1"). Intervalo ("A1: B2"). Bloqueado = FalsoPlanilhas ("Folha1"). Proteger |
MergeCells
Defina esta propriedade como True se precisar mesclar um intervalo. Seu valor torna-se True se um intervalo especificado contém células mescladas. Por exemplo, se você precisa mesclar o intervalo de C5: D7, pode usar este código:
| 1 | Planilhas ("Folha1"). Intervalo ("C5: D7"). MergeCells = Verdadeiro |
Formato numérico
Você pode definir o formato do número nas células como Geral, Número, Moeda, Contabilidade, Data, Hora, Porcentagem, Fração, Científico, Texto, Especial e Personalizado.
Aqui estão os exemplos de formatos de números científicos e percentuais:
| 12 | Intervalo ("A1"). NumberFormat = "0,00E + 00"Intervalo ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Esta propriedade retorna ou define um valor variante que representa o código de formato do objeto como uma string no idioma do usuário.
Orientação
Você pode definir (ou obter o retorno) a orientação do texto dentro da (s) célula (s) por esta propriedade. Seu valor pode ser uma destas constantes: xlDownward, xlHorizontal, xlUpward, xlVertical ou um valor inteiro de -90 a 90 graus.
| 1 | Planilhas ("Folha1"). Faixa ("A1"). Orientação = -60 |
Pai
Esta é uma propriedade somente leitura que retorna o objeto pai de um objeto especificado.
Encolher para caber
Esta propriedade retorna ou define um valor variante que indica se o texto encolhe automaticamente para caber na largura da coluna disponível.
| 1 | Planilhas ("Folha1"). Intervalo ("A1"). ShrinkToFit = Verdadeiro |
Alinhamento vertical
Esta propriedade de formato de célula retorna ou define um valor variante que representa o alinhamento vertical para o objeto especificado. As constantes retornadas ou definidas podem ser: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Por exemplo:
| 1 | Planilhas ("Folha1"). Intervalo ("A1"). VerticalAlignment = xlTop |
WrapText
Esta propriedade retorna True se o texto for quebrado em todas as células dentro do intervalo especificado, False se o texto não for quebrado em todas as células dentro do intervalo especificado, ou Nulo se o intervalo especificado contiver algumas células que quebram o texto e outras células que não.
Por exemplo, se você tiver este intervalo de células:
este código abaixo retornará Nulo na janela imediata:
| 1 | ? Worksheets ("Sheet1"). Range ("A1: B1"). WrapText |
