Замена значений при цветовом условии

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена значений при цветовом условии (Макросы/Sub)

TimosMN15

Дата: Воскресенье, 17.05.2015, 22:56 | Сообщение № 1

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

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

Сообщений: 37

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

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

Excel 2010

Доброго времени суток.

В файле есть столбец "А" с Часами, и столбец "С" с сменами. Задача состоит в том, чтобы в столбце "А" ячейки принимали значения столбца "С" только в том случае, если они одинакового цвета. Например,
ячейка, содержащая значение "4", должна быть заменена на значение 7:00 - 11:00, т.к. у этих ячеек одинаковый цвет. Надеюсь понятно изложил.

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

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

Ответить

ShAM

Дата: Понедельник, 18.05.2015, 04:23 | Сообщение № 2

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

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

Сообщений: 1347

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

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

Excel 2010

Прямо в лоб.
[vba]

Код

Sub clr()
lr1 = Cells(Rows.Count, 1).End(xlUp).Row
lr2 = Cells(Rows.Count, 3).End(xlUp).Row
     For i = 2 To lr1
     For j = 2 To lr2
         If Cells(i, 1).Interior.Color = Cells(j, 3).Interior.Color Then Cells(i, 1).Value = Cells(j, 3).Value
     Next j, i
End Sub

[/vba]

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

Ответить

TimosMN15

Дата: Понедельник, 18.05.2015, 09:18 | Сообщение № 3

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

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

Сообщений: 37

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

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

Excel 2010

ShAM, здравствуйте.

А если у меня смены находятся, например, в диапазоне с А2:AE40, а не в одном столбце, то как тогда?

Ответить

ShAM

Дата: Понедельник, 18.05.2015, 21:28 | Сообщение № 4

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

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

Сообщений: 1347

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

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

Excel 2010

Цитата TimosMN15, 18.05.2015 в 09:18, в сообщении № 3

ShAM, здравствуйте.

TimosMN15, и Вам не хворать

Цитата TimosMN15, 18.05.2015 в 09:18, в сообщении № 3

А если у меня смены находятся, например, в диапазоне с А2:AE40

И что должно получиться, значение какого столбца должно попасть в А? Почему бы сразу не сказать о нескольких столбцах и в файле не показать это?

Ответить

TimosMN15

Дата: Вторник, 19.05.2015, 10:20 | Сообщение № 5

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

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

Сообщений: 37

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

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

Excel 2010

ShAM, Здравствуйте.

Прошу прощения, что сразу не указал корректно данные. Вложил файл с данными. В диапазон A1:L34 должно попасть значение столбца AN.

Спасибо.

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

Ответить

ShAM

Дата: Среда, 20.05.2015, 08:11 | Сообщение № 6

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

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

Сообщений: 1347

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

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

Excel 2010

Здравствуйте, TimosMN15

Цитата ShAM, 18.05.2015 в 04:23, в сообщении № 2

Прямо в лоб.

Опять туда же.
[vba]

Код

Sub clr()
Dim lr&, i&, rng As Range
lr = Cells(Rows.Count, "AN").End(xlUp).Row
     For Each rng In Range("A1").CurrentRegion
     For i = 2 To lr
         If rng.Interior.Color = Cells(i, "AN").Interior.Color Then rng.Value = Cells(i, "AN").Value
     Next i, rng
End Sub

[/vba]

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

Ответить

TimosMN15

Дата: Среда, 20.05.2015, 10:40 | Сообщение № 7

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

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

Сообщений: 37

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

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

Excel 2010

ShAM, большое спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена значений при цветовом условии (Макросы/Sub)

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