Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como negrito apenas a primeira linha ou a primeira palavra na célula no Excel?

Em uma planilha do Excel, pode haver muitas células contendo várias linhas que foram descritas pelas teclas Alt + Enter. Em alguns casos, talvez seja necessário negar apenas a primeira linha nessas células. Ou apenas negrito a primeira palavra para torná-lo excepcional 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

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair Número da Cadeia de Texto; Extrair ou remover parte dos textos; Converta números e moedas em palavras inglesas ...
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma ...
  • Ferramentas de divisão: Dados divididos em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas ...
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Criar lista de discussão e Envie e-mails pelo valor da célula...
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

arrow blue right bubble Negrito apenas a primeira linha na célula com código VBA


O código VBA a seguir pode ajudá-lo rapidamente a negrito somente a primeira linha em células selecionadas. Faça o seguinte.

1. Pressione outro + F11 teclas 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 tornar negrito e, em seguida, clique no botão OK botão.

Então você pode ver todas as primeiras linhas das células selecionadas são negrito imediatamente conforme a imagem abaixo mostra a tela.


arrow blue right bubble Negrito apenas a primeira palavra na célula com código VBA

Como abaixo a captura de tela mostrada, às vezes, você precisa negar a primeira palavra no intervalo A2: A4 no Excel. Você pode alcançá-lo como segue, passo a passo.

1. Pressione outro + F11 teclas 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. Na aparência Kutools for Excel caixa de diálogo, selecione o intervalo que deseja criar a primeira palavra em negrito e, em seguida, pressione o botão OK botão. Ver captura de tela:

Então, você pode ver que todas as primeiras palavras das células selecionadas são negrito imediatamente, conforme mostrado abaixo na tela.


arrow blue right bubbleArtigo relacionado:


Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Excelnewbie · 2 years ago
    How about if I want the second line to be bold?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day!
      If you want to bold only the second line of the cell, please try the following VBA code:

      Sub BoldSecondLine()
      Dim xRng As Range, xCell As Range
      Dim xArr
      On Error Resume Next
      Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
      If xRng Is Nothing Then Exit Sub
      For Each xCell In xRng
      If xCell <> "" Then
      With xCell
      xArr = Split(xCell, Chr(10))
      .Characters(InStr(.Value, Chr(10)) + 1, Len(xArr(1))).Font.Bold = True
      End With
      End If
      Next
      End Sub
      • To post as a guest, your comment is unpublished.
        bc · 1 years ago
        Hi, How about if I want the first three words to be bold?
        • To post as a guest, your comment is unpublished.
          crystal · 1 years ago
          Good Day,
          Please try below VBA script.

          Sub boldtext()
          Dim xRng As Range, xCell As Range
          Dim xNum As Long, xCount As Long
          Dim I As Long, J As Long
          Dim xArr
          Dim xArrChr10
          On Error Resume Next
          Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
          If xRng Is Nothing Then Exit Sub
          For Each xCell In xRng
          xNum = 0
          xCount = 0
          xArrChr10 = Split(xCell.Value, Chr(10))
          For I = 0 To UBound(xArrChr10)
          xArr = Split(xArrChr10(I))
          For J = 0 To UBound(xArr)
          If xArr(J) <> "" Then
          xCount = xCount + 1
          If xCount > 3 Then Exit For
          End If
          xNum = xNum + Len(xArr(J)) + 1
          Next
          Next
          xCell.Characters(1, xNum).Font.Bold = True
          Next
          End Sub
          • To post as a guest, your comment is unpublished.
            jac · 1 years ago
            HI, how about if i want the first two lines to be bold?