Como colocar em negrito apenas a primeira linha ou a primeira palavra em uma célula no Excel?
Em uma planilha do Excel, pode haver muitas células contendo várias linhas que foram paragrafadas pelas teclas Alt + Enter. Em alguns casos, pode ser necessário colocar em negrito apenas a primeira linha dessas células. Ou apenas negrito a primeira palavra para torná-lo notável nas células. Este artigo mostra dois métodos para você conseguir isso em detalhes.
Negrito apenas a primeira linha na célula com código VBA Negrito apenas a primeira palavra na célula com código VBA
Negrito apenas a primeira linha na célula com código VBA
O código VBA a seguir pode ajudá-lo a colocar rapidamente em negrito apenas a primeira linha nas células selecionadas. Faça o seguinte.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: negrito apenas a primeira linha nas células
Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
With xCell
.Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
End With
Next
End Sub
3. aperte o F5 chave para executar o código. Então uma Kutools for Excel caixa de diálogo aparece, selecione o intervalo com a primeira linha que você precisa para torná-lo em negrito e, em seguida, clique no OK botão.
Então você pode ver que todas as primeiras linhas das células selecionadas estão em negrito imediatamente, conforme mostrado abaixo na imagem.
Negrito apenas a primeira palavra na célula com código VBA
Como mostrado na captura de tela abaixo, às vezes, você precisa colocar a primeira palavra em negrito apenas no intervalo A2: A4 no Excel. Você pode alcançá-lo da seguinte maneira, passo a passo.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: negrito apenas a primeira palavra nas células
Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
If xCell.Value <> "" Then
xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
End If
Next
End Sub
3. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, selecione o intervalo que você deseja tornar a primeira palavra em negrito e, em seguida, pressione o OK botão. Veja a imagem:
Então você pode ver que todas as primeiras palavras das células selecionadas estão em negrito imediatamente, conforme mostrado abaixo na imagem.
Artigo relacionado:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!