VBA – Negrito

Você pode usar o VBA para colocar o texto em negrito nas células. Neste tutorial, você aprenderá a colocar o texto em negrito.

Texto em Negrito com o VBA

Para colocar o texto em negrito em uma célula, você deve definir a propriedade Font.Bold do objeto Font como True. O código a seguir tornará o texto da célula A1 em negrito:

Range("A1").Font.Bold = True

O resultado é:

O exemplo acima usou o objeto Range em conjunto com o objeto Font. Você também pode usar o objeto Cell em conjunto com o objeto Font para fazer referência à célula de interesse. O código a seguir tornará o texto da célula C2 em negrito:

Cells(2, 3).Font.Bold = True

Limpando o Negrito com o VBA

Você deve definir a propriedade Font.Bold do objeto Font como False para que o texto em negrito em uma célula tenha a espessura normal da fonte. O código a seguir tornará o texto em negrito na célula A1, com a espessura normal da fonte:

Range("a1").Font.Bold = False

Remover Toda a Formatação com o VBA

Você também pode remover toda a formatação de uma única célula ou células da planilha, inclusive a espessura da fonte em negrito, usando o método .ClearFormats. O código a seguir removerá toda a formatação de todas as células de uma planilha e, como resultado, o texto em negrito será alterado para a espessura de fonte normal:

Cells.Select
Selection.ClearFormats