blackdron (Автор тем)

Отметка во 2-ой книге, если в 1-ой книге есть, VBA

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

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

08.08.2014 10:58:44

Уважаемые форумчане, помогите, пожалуйста.

У меня есть 2 файла. В первом и во втором файле находятся список товара. Мне необходимо сделать так, чтобы товар, который есть в файле 1.csv (поиск можно делать по штрихкоду - столбец 2), отмечался в файле 2.xlsx (отмечать можно так, например в 9 (пустом) столбце ставить цифру 1), поиск также можно делать по штрихкоду (столбец 6). Файлы прилагаю. Если что-то не понятно объяснил, спрашивайте.

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

Перейти

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

blackdron

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

Сообщений: 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

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

Перейти