gifts2017

Конвертор цветов Палитра > Для Экселя

Опубликовал Александр Цегельников (markers) в раздел Программирование - Работа с интерфейсом

К комментарию №27 в программе: http://infostart.ru/public/58191/

Текст комментария:

Это делаем в начале работы с экселем

Цвета = Excel.ActiveWorkbook.Colors.Выгрузить(); // Получим все индексы цвета экселя 
Цвета[51] = "14725528"; // Переопределим 51-й индекс цвета своим 
МассивДляExcel = Новый COMSafeArray(Цвета,"VT_I4"); // Конвертируем в массив используемый в COM, в ковычках указан тип значений 
Excel.ActiveWorkbook.Colors = МассивДляExcel; // Скормим экселю его же масив с переопределёнными элементами 


А когда нам надо использовать переопределённый нами выше индекс, пишем:

АктивнаяКнига.Cells(10, 5).Interior.Color = Цвета[51]; // Красим



А терь ответ на возможный вопрос "А почему не переопределённый индекс присваиваешь, а цвет?" Отвечаю, опытным путём установлено, что если ты переопределяешь индекс и с таким цветом другой индекс уже есть, он не переопределяется... а когда мы задаём ячейкам именно цвет, а не индекс, он сам автоматически находит и подставляет нужный индекс.
А теперь, как получить цифру цвета "14725528" ? Я не нашёл как сконвертировать из 1С в эксель цвет, поэтому пришлось написать прожку: http://infostart.ru/public/58687/

Скачать файлы

Наименование Файл Версия Размер
Конвертор 33
.exe 155,00Kb
14.10.09
33
.exe 155,00Kb Бесплатно
Исходник 6
.zip 1,88Kb
14.10.09
6
.zip 1,88Kb Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Алексей Плутенко (Noy) 14.10.09 13:12
Магическое число "14725528" это цвет из RGB в десятичном виде...


Функция RGB(R,G,B) Экспорт
Возврат(B*65536+G*256+R);
КонецФункции

А вот за инфу о подмене палитры в Экесель - плюс!
prodines; Alf06; markers; +3 Ответить 1
2. Альтаир (Altair777) 14.10.09 17:46
(1) Прочел этот коммент и вспомнил переписку с одним лично мной очень уважаемым человеком ;) Хотя... наверняка, не только я его уважаю... :D
думаю просто хотел показать палитру Екселя
делал отчет с выводом в Эксель, задолбался цвета подбирать и сваял такую обработку.
Человек просто не знает, что цвет можно указывать в RGB...
3. Александр Цегельников (markers) 19.10.09 06:09
Знаю что можно цвет задавать в RGB, но не нашёл как сконвертить... За что товарищю (Noy) огромное спасибо!
4. Леонид (minele) 22.10.09 08:52
Цвета конечно хорошо - это плюс. Но когда же кто-то решится создать универсальную загрузку данных для справочников и документов из экселя для бухии 7.7. Пока имеющиеся работают неоднозначно.
5. Леонид (minele) 22.10.09 08:56
Кстати если обратил кто-то внимание с ОпенОфисом 1с бухия 7.7.работает лучше, т.к. уровень екселя в них примерно одинаков.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа