Excel'de iki sütunu birleştirirken parça metni nasıl kalınlaştırılır?
Excel çalışma sayfasında, iki hücre değerini formüllerle birleştirdikten sonra, birleştirilmiş formül hücresindeki metnin bir kısmını kalınlaştırmayacağını görebilirsiniz. Bu bazen can sıkıcı olabilir, Excel'de iki sütunu birleştirirken bölüm metnini nasıl kalın yapabilirsiniz?
VBA kodu ile iki sütunu birleştirirken kalın parça metni
VBA kodu ile iki sütunu birleştirirken kalın parça metni
Örneğin, iki sütun verim var, şimdi, bu iki sütunu bir sütunda birleştirmek ve aşağıda gösterilen ekran görüntüsü gibi ilk değeri kalın olarak biçimlendirmek istiyorum:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: İki sütunu birleştirirken kalın kısım metni:
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve birleştirmek ve kalın yapmak istediğiniz veri aralığını seçmenizi hatırlatan bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi ve satırlardaki tüm iki kelime veri aralığının yanındaki hücrelerde birleştirildi ve ilk kelime de kalın, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
