Excel'de hücredeki yalnızca ilk satırı veya ilk kelimeyi nasıl kalınlaştırabilirim?

Bir Excel çalışma sayfasında, Alt + Enter tuşlarıyla paragraflara ayrılmış birden çok satır içeren çok sayıda hücre olabilir. Bazı durumlarda, bu hücrelerdeki yalnızca ilk satırı kalınlaştırmanız gerekebilir. Veya hücrelerde olağanüstü kılmak için sadece ilk kelimeyi kalın. Bu makale, bunu ayrıntılarıyla elde etmeniz için iki yöntemi göstermektedir.

VBA kodu ile hücredeki yalnızca ilk satırı kalın VBA kodu ile hücredeki yalnızca ilk kelimeyi kalın

VBA kodu ile hücredeki yalnızca ilk satırı kalın

Aşağıdaki VBA kodu, seçili hücrelerdeki yalnızca ilk satırı hızlı bir şekilde kalınlaştırmanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Hücrelerdeki yalnızca ilk satırı kalın

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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Sonra bir Kutools for Excel iletişim kutusu açılır, lütfen kalın yapmanız gereken ilk satırı içeren aralığı seçin ve ardından OK düğmesine basın.

Ardından, seçilen hücrelerin ilk satırlarının aşağıda gösterilen ekran görüntüsü gibi hemen kalın olduğunu görebilirsiniz.

VBA kodu ile hücredeki yalnızca ilk kelimeyi kalın

Aşağıda gösterilen ekran görüntüsü gibi, bazen ilk kelimeyi yalnızca Excel'de A2: A4 aralığında kalınlaştırmanız gerekir. Bunu adım adım aşağıdaki şekilde gerçekleştirebilirsiniz.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Yalnızca hücrelerdeki ilk kelimeyi kalın

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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusunda, ilk kelimeyi kalın yapmak istediğiniz aralığı seçin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, seçilen hücrelerin ilk kelimelerinin aşağıda gösterilen ekran görüntüsü gibi hemen kalın olduğunu görebilirsiniz.

İlgili makale:

• Excel'deki tüm boş satırları veya yalnızca hücredeki ilk satırı nasıl silebilirim?