Имена столбцов в цвете прописываются в другую ячейку

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Имена столбцов в цвете прописываются в другую ячейку - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Имена столбцов в цвете прописываются в другую ячейку (Макросы/Sub)

Имена столбцов в цвете прописываются в другую ячейку

benza89

Дата: Понедельник, 02.01.2017, 11:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Привет, подскажите, пожалуйста. Нужно, чтобы имена столбцов, которые окрашены синим цветом прописывались в одну ячейку.

К сообщению приложен файл: primer.xls (26.5 Kb)

Ответить

Wasilich

Дата: Понедельник, 02.01.2017, 12:09 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

И Вас с Новым Годом!
[vba]

Код

Sub сдача()
  Dim i&, j&
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    For j = 3 To Cells(1, Columns.Count).End(xlToLeft).Column
      If Cells(i, j).Interior.ColorIndex = 37 Then
         Cells(i, 2) = Cells(i, 2) & Cells(1, j) & "  "
      End If
    Next j
  Next i
End Sub

[/vba]

Ответить

benza89

Дата: Понедельник, 02.01.2017, 12:25 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Wasilich, спасибо огромное!

Ответить

Имена столбцов в цвете прописываются в другую ячейку (Макросы/Sub)

Страница 1 из 1
1