¿Cómo poner en negrita solo la primera línea o la primera palabra en la celda en Excel?
En una hoja de cálculo de Excel, puede haber muchas celdas que contengan varias líneas que fueron paragrafiadas por las teclas Alt + Enter. En algunos casos, es posible que deba poner en negrita solo la primera línea en estas celdas. O solo en negrita la primera palabra para resaltarla en las celdas. Este artículo muestra dos métodos para lograrlo en detalle.
Negrita solo la primera línea en la celda con código VBA Negrita solo la primera palabra en la celda con código VBA
Negrita solo la primera línea en la celda con código VBA
El siguiente código VBA puede ayudarlo a poner en negrita rápidamente solo la primera línea en las celdas seleccionadas. Haz lo siguiente.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.
Código de VBA: negrita solo la primera línea en las celdas
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. presione el F5 clave para ejecutar el código. Entonces un Kutools for Excel aparece el cuadro de diálogo, seleccione el rango con la primera línea que necesita para ponerla en negrita, y luego haga clic en el OK del botón.
Luego, puede ver que todas las primeras líneas de las celdas seleccionadas están en negrita inmediatamente, como se muestra a continuación.
Negrita solo la primera palabra en la celda con código VBA
Como se muestra a continuación en la captura de pantalla, a veces, debe poner en negrita la primera palabra solo en el rango A2: A4 en Excel. Puede lograrlo de la siguiente manera paso a paso.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.
Código de VBA: negrita solo la primera palabra en las celdas
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. presione el F5 clave para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione el rango en el que desea poner la primera palabra en negrita, y luego presione el OK botón. Ver captura de pantalla:
Luego, puede ver que todas las primeras palabras de las celdas seleccionadas están en negrita inmediatamente, como se muestra a continuación.
Artículo relacionado:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!