כיצד להדגים חלק מהטקסט בעת שילוב שתי עמודות ב-Excel?

בגליון העבודה של Excel, לאחר שילוב ערכי שתי תאים באמצעות נוסחאות, ייתכן שתגלו שלא ניתן להדגים חלק מהטקסט בתא הנוסחה המשולב. זה עשוי להיות מרגיז לפעמים, אז כיצד תוכלו להדגים חלק מהטקסט בעת שילוב שתי עמודות ב-Excel?

הדגש חלק מהטקסט בעת שילוב שתי עמודות עם קוד VBA

הדגש חלק מהטקסט בעת שילוב שתי עמודות עם קוד VBA

לדוגמה, יש לי נתונים בשתי עמודות, עכשיו אני רוצה לשלב את שתי העמודות האלה לעמודה אחת ולעצב את הערך הראשון כמודגש כפי שמוצג בסcreenshot הבא:

1. החזיקו את המקשים ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. לחצו על Insert > Module, והדביקו את הקוד הבא בחלון ה-Module.

קוד 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. ואז לחצו על כפתור OK, וכל שתי המילים בשורות שולבו יחד לתוך התאים ליד טווח הנתונים והמילה הראשונה גם מודגשת, ראה צילום מסך: