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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать частью кода текст из ячейки? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать частью кода текст из ячейки? (Макросы/Sub)
Как сделать частью кода текст из ячейки?
MAK93 Дата: Вторник, 30.05.2017, 15:03 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

2016
Добрый день, дорогие форумчане!
Подскажите пожалуйста, как можно вставить в код[vba]
Код
"Fill.ForeColor.RGB = RGB(190, 190, 190)
[/vba]" значение RGB из одной ячейки?
[vba]
Код
Fill.ForeColor.RGB = RGB(Cells(1,1),Cells(1,2),Cells(1,3))
[/vba] - работает корректно
[vba]
Код
Fill.ForeColor.RGB = RGB(Cells(1,1))
[/vba]- не работает(


Сообщение отредактировал MAK93 - Вторник, 30.05.2017, 15:26
 
Ответить
СообщениеДобрый день, дорогие форумчане!
Подскажите пожалуйста, как можно вставить в код[vba]
Код
"Fill.ForeColor.RGB = RGB(190, 190, 190)
[/vba]" значение RGB из одной ячейки?
[vba]
Код
Fill.ForeColor.RGB = RGB(Cells(1,1),Cells(1,2),Cells(1,3))
[/vba] - работает корректно
[vba]
Код
Fill.ForeColor.RGB = RGB(Cells(1,1))
[/vba]- не работает(
Автор - MAK93
Дата добавления - 30.05.2017 в 15:03
sboy Дата: Вторник, 30.05.2017, 15:12 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
MAK93, Добрый день.
а в ячейке как это значение введено? три числа через запятую?
и поправьте код (нужно оформить в теги)

Яндекс: 410016850021169

Сообщение отредактировал sboy - Вторник, 30.05.2017, 15:16
 
Ответить
СообщениеMAK93, Добрый день.
а в ячейке как это значение введено? три числа через запятую?
и поправьте код (нужно оформить в теги)
Автор - sboy
Дата добавления - 30.05.2017 в 15:12
MAK93 Дата: Вторник, 30.05.2017, 15:28 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

2016
sboy, Спасибо, поправил.
Да, 190,190,190 там написано
 
Ответить
Сообщениеsboy, Спасибо, поправил.
Да, 190,190,190 там написано
Автор - MAK93
Дата добавления - 30.05.2017 в 15:28
sboy Дата: Вторник, 30.05.2017, 15:32 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Тогда вот так попробуйте
[vba]
Код
cvet = Split(Cells(1, 1), ",")
Fill.ForeColor.RGB = RGB(cvet(0), cvet(1), cvet(2))
[/vba]

Яндекс: 410016850021169
 
Ответить
СообщениеТогда вот так попробуйте
[vba]
Код
cvet = Split(Cells(1, 1), ",")
Fill.ForeColor.RGB = RGB(cvet(0), cvet(1), cvet(2))
[/vba]
Автор - sboy
Дата добавления - 30.05.2017 в 15:32
MAK93 Дата: Вторник, 30.05.2017, 15:44 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

2016
sboy, Спасибо большое, работает!!!
 
Ответить
Сообщениеsboy, Спасибо большое, работает!!!
Автор - MAK93
Дата добавления - 30.05.2017 в 15:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать частью кода текст из ячейки? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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