Страницы: 1
RSS
Как выделить жирным текст часть ячейки
 
Уважаемые Форумчане, подскажите пожалуйста,
Необходимо выделить жирными именно только первую ячейку при присоединении, а именно Cells(i, 1) в строке после "="
Код
Cells(i, 1) = Cells(i, 1) + vbNewLine + a + vbNewLine + b + " руб."
Просто если изначально первую строку делать жирный, то при слиянии он весь текст желает жирным, а мне нужно только изначальную первую ячейку

Весь код прилагаю.
Код
For i = 1 To 1315
Dim a As String
Dim b As String
a = Cells(i, 2)
b = Cells(i, 3)
Cells(i, 1) = Cells(i, 1) + vbNewLine + a + vbNewLine + b + " руб."
Cells(i, 1).Select
 With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
 End With
Next


Заранее спасибо.
 
Попробуйте так

Код
Sub qq()
Dim i As Long
For i = 1 To 1315
Dim a As String
Dim b As String
Dim c As String
a = Cells(i, 2)
b = Cells(i, 3)
c = Cells(i, 1)
Cells(i, 1) = Cells(i, 1) & vbCrLf & a & vbCrLf & b & " руб."
Cells(i, 1).Select
 With Selection
    .Characters(1, Len(c)).Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
 End With
Next
End Sub

 
 
Kuzmich,большое спасибо. Все работает, Вы очень помогли.
Страницы: 1
Наверх