Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Копирование цвета ячейки по значению - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование цвета ячейки по значению (Макросы/Sub)
Копирование цвета ячейки по значению
Georgiy Дата: Суббота, 29.03.2014, 23:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Друзья,помогите решить задачу.

Создать макрос, который будет закрашивать ячейки столбца C в соответствии с цветом ячеек столбца A,где значение ячейки столбца С равно номеру строки ячейки столбца A.
К сообщению приложен файл: 9587261.xlsx (10.3 Kb)


Сообщение отредактировал Georgiy - Суббота, 29.03.2014, 23:02
 
Ответить
СообщениеДрузья,помогите решить задачу.

Создать макрос, который будет закрашивать ячейки столбца C в соответствии с цветом ячеек столбца A,где значение ячейки столбца С равно номеру строки ячейки столбца A.
Автор - Georgiy
Дата добавления - 29.03.2014 в 23:01
Georgiy Дата: Воскресенье, 30.03.2014, 03:02 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
[vba]
Код
Sub макрос1()

Dim i As Long
For i = 1 To 20 Step 1
On Error Resume Next
Range("C" & i).Activate
Range("A" & ActiveCell.Value).Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Next
End Sub
[/vba]


Сообщение отредактировал Serge_007 - Воскресенье, 30.03.2014, 07:31
 
Ответить
Сообщение[vba]
Код
Sub макрос1()

Dim i As Long
For i = 1 To 20 Step 1
On Error Resume Next
Range("C" & i).Activate
Range("A" & ActiveCell.Value).Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Next
End Sub
[/vba]
Автор - Georgiy
Дата добавления - 30.03.2014 в 03:02
KuklP Дата: Воскресенье, 30.03.2014, 08:45 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Sub www()
     Dim i As Long
     For i = 1 To [c65536].End(xlUp).Row
         Cells(i, 3).Interior.ColorIndex = Cells(Cells(i, 3).Value, 1).Interior.ColorIndex
     Next
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Воскресенье, 30.03.2014, 08:47
 
Ответить
Сообщение[vba]
Код
Sub www()
     Dim i As Long
     For i = 1 To [c65536].End(xlUp).Row
         Cells(i, 3).Interior.ColorIndex = Cells(Cells(i, 3).Value, 1).Interior.ColorIndex
     Next
End Sub
[/vba]
Автор - KuklP
Дата добавления - 30.03.2014 в 08:45
saladin191 Дата: Воскресенье, 30.03.2014, 08:51 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010
Еще один вариант. Чуть более замороченный.
К сообщению приложен файл: 5067924.xlsm (22.7 Kb)
 
Ответить
СообщениеЕще один вариант. Чуть более замороченный.
Автор - saladin191
Дата добавления - 30.03.2014 в 08:51
ShAM Дата: Воскресенье, 30.03.2014, 23:33 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Сергей, я тоже такой вариант хотел предложить.
Но, визуально сравнивая ячейки A5 и C5, вижу, что цвета там разные.
В столбцах E и F вижу, что индексы у них одинаковые.
Жму кнопку "Цвет заливки" и вижу, что у ячейки A5 - RGB(49,134,155), а у ячейки С5 - RGB(51,153,102).
Может, у меня в компе какой-то глюк?
К сообщению приложен файл: Georgiy.xlsm (18.9 Kb)
 
Ответить
СообщениеСергей, я тоже такой вариант хотел предложить.
Но, визуально сравнивая ячейки A5 и C5, вижу, что цвета там разные.
В столбцах E и F вижу, что индексы у них одинаковые.
Жму кнопку "Цвет заливки" и вижу, что у ячейки A5 - RGB(49,134,155), а у ячейки С5 - RGB(51,153,102).
Может, у меня в компе какой-то глюк?
Автор - ShAM
Дата добавления - 30.03.2014 в 23:33
KuklP Дата: Воскресенье, 30.03.2014, 23:47 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Привет, Алишер. Я особенно не вглядывался, просто хотел показать принцип без копипаста. Если там используется не ColorIndex, то можно сменить ColorIndex на Color :)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПривет, Алишер. Я особенно не вглядывался, просто хотел показать принцип без копипаста. Если там используется не ColorIndex, то можно сменить ColorIndex на Color :)
Автор - KuklP
Дата добавления - 30.03.2014 в 23:47
ShAM Дата: Воскресенье, 30.03.2014, 23:50 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Сергей, привет. Можешь показать, как с Color. Я крутил-крутил, так ничего не добился. :(
 
Ответить
СообщениеСергей, привет. Можешь показать, как с Color. Я крутил-крутил, так ничего не добился. :(
Автор - ShAM
Дата добавления - 30.03.2014 в 23:50
KuklP Дата: Воскресенье, 30.03.2014, 23:51 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Sub www()
     Dim j As Long
         For j = 1 To Cells(Rows.Count, 3).End(xlUp).Row
             Cells(j, 3).Interior.Color = Cells(Cells(j, 3).Value, 1).Interior.Color
         Next j
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Sub www()
     Dim j As Long
         For j = 1 To Cells(Rows.Count, 3).End(xlUp).Row
             Cells(j, 3).Interior.Color = Cells(Cells(j, 3).Value, 1).Interior.Color
         Next j
End Sub
[/vba]
Автор - KuklP
Дата добавления - 30.03.2014 в 23:51
ShAM Дата: Воскресенье, 30.03.2014, 23:53 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Хм, так просто... %)
Спасибо.:)
 
Ответить
СообщениеХм, так просто... %)
Спасибо.:)
Автор - ShAM
Дата добавления - 30.03.2014 в 23:53
KuklP Дата: Воскресенье, 30.03.2014, 23:53 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
:) Не люблю усложнять.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение:) Не люблю усложнять.
Автор - KuklP
Дата добавления - 30.03.2014 в 23:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование цвета ячейки по значению (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!