Как выделить жирным текст часть ячейки

Пользователь

Сообщений: 12 Регистрация: 15.05.2014

29.05.2014 17:35:33

Уважаемые Форумчане, подскажите пожалуйста,
Необходимо выделить жирными именно только первую ячейку при присоединении, а именно 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

Заранее спасибо.

Kuzmich

Пользователь

Сообщений: 8164 Регистрация: 21.12.2012

29.05.2014 18:20:19

Попробуйте так

Код

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

blackdron Пользователь Сообщений: 12 Регистрация: 15.05.2014	#3 29.05.2014 18:45:14 Kuzmich,большое спасибо. Все работает, Вы очень помогли.