كيفية تغليط جزء من النص عند دمج عمودين في Excel؟

في ورقة عمل Excel، بعد دمج قيم خليتين باستخدام الصيغ، قد تجد أنه لن يتم تغليط جزء من النص في الخلية التي تحتوي على الصيغة المدمجة. قد يكون هذا مزعجًا في بعض الأحيان، فكيف يمكنك تغليط جزء من النص عند دمج عمودين في Excel؟

تغليط جزء من النص عند دمج عمودين باستخدام كود VBA

تغليط جزء من النص عند دمج عمودين باستخدام كود VBA

على سبيل المثال، لدي عمودين من البيانات، الآن أريد دمج هذين العمودين في عمود واحد وتنسيق القيمة الأولى بخط عريض كما هو موضح في لقطة الشاشة التالية:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تغليط جزء من النص عند دمج عمودين:

Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Set xRg = xRg.Resize(xRg.Rows, 3)
    On Error Resume Next
    For Each xCell In xRg.Columns(3).Cells
        xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
        xCell.Font.Bold = False
        xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
    Next
End Sub

3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وسيظهر مربع تنبيه لتذكيرك باختيار نطاق البيانات الذي تريد دمجه وتغليطه، انظر لقطة الشاشة:

4. وبعد ذلك انقر فوق زر موافق، وستتم عملية دمج الكلمتين في الصفوف معًا في الخلايا بجانب نطاق البيانات وسيتم أيضًا تغليط الكلمة الأولى، انظر لقطة الشاشة: