Выбор цвета в ячейке Excel

09.10.09

Интеграция - Загрузка и выгрузка в Excel

+19 –2
>
  • Выбор цвета
  • Вывод таблицы в Excel с форматированием ячеек
Подбор цветов для свойства ячейки Interior: ЛистЭксель.Cells(1,1).Interior.ColorIndex = НомерЦвета;

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Работа_с_Excel.ert
.ert 33,50Kb
123 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Делал тут отчет с выводом в Эксель, в интернете внятного описания цветов не нашел, поэтому сваял обработку, которая в цикле выводит цвета для ячеек. Результат на экране =)

Добавил в обработку часть функций по выводу таблицы в Excel. Описание некоторых функций на Инфостарте не нашел, поэтому выкладываю здесь. Буду рад, если инфа окажется полезной.

 

PS. Прошу данную обработку считать не как рабочее произведение, а как примерный макет того, как можно использовать часть функций работы с Excel. Если вдруг у вас нету каких-либо функций или процедур, то автора не пинайте, выложил с учетом применения c обработкой напильником.

Вступайте в нашу телеграмм-группу Инфостарт

+19 –2

См. также

1С:Фото номенклатуры 7.7 - решение для работы с фотографиями номенклатуры в 1С:7.7 (включая формат PNG)

Работа с интерфейсом Логистика, склад и ТМЦ Системный администратор Разработчик Пользователь 1С:Предприятие 7.7 1С:Торговля и склад 7.7 Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Решение для разработчика и конечного пользователя для работы с фотографиями номенклатуры: систематизация, хранение, отображение, а также выгрузка на Яндекс-Диск и FTP (кроме версии лайт). Поддерживаются графические форматы: bmp, jpg, gif, tiff, а также png - не поддерживаемый штатными средствами 1С. Выполнено без использования внешних компонент (кроме функции выгрузки на FTP). Поставляется как в виде пустой конфигурации с набором объектов и модулей для работы с фото, так и в виде обновления к 1С:Торговля и склад 7.7. Выполнено в двух версиях: "полная" и "лайт".

2541 руб.

18.10.2022    8948    4    45    

7
Загрузка банковской выписки для 1С 7.7 любой конфигурации

Банковские операции Загрузка и выгрузка в Excel Бухгалтер Пользователь 1С:Предприятие 7.7 1C77 Россия Бухгалтерский учет Платные (руб)

Решение предоставляет комплексную загрузку банковской выписки из CSV, XLS, TXT файла в 1С 7.7 любой конфигурации. Позволяет создавать документы выбранного вида, например "Строка выписки банка (приход/расход)", или многострочный табличный документ, например Выписка, для каждой операции из загружаемого файла банковской выписки. Загружает реквизиты документа, а также создаёт контрагентов и другие необходимые элементы справочников.

5999 руб.

29.07.2021    28844    23    27    

23
Поддержка выгрузки в Excel 2007 для 1С 7.7 в одну строку

Разработка внешних компонент Загрузка и выгрузка в Excel Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Внешняя компонента 1С 7.7. для сохранения таблиц в формате Excel 2007.

1 стартмани

21.03.2019    35382    88    MadDAD    347    

21
Метод загрузки данных из таблиц Excel в 1С без установки Office

Загрузка и выгрузка в Excel Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Импорт данных в 1С:Предприятие 7.7 из Excel через JET.OLEDB или ACE.OLEDB. Данный метод позволяет загружать данные из файлов на ПК, на которых не установлен MS Office.

1 стартмани

20.09.2016    33532    13    aserg    4    

15
Экспорт нескольких MXL таблиц в один XLS файл, на отдельные листы. Простой алгоритм

Загрузка и выгрузка в Excel Математика и алгоритмы Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 Бесплатно (free)

Статья посвящена распространённому вопросу - как сохранить несколько таблиц (отчетов) в формате MXL, с которым работает 1С, на отдельные листы одного Excel файла. Освещается простой алгоритм решения проблемы штатными средствами, без использования внешних модулей и библиотек (не относящихся к 1С и Excel).

23.11.2015    21501    etmarket    14    

21
Загрузка документов "Поступление", "Отгрузка", "Счет на оплату" из Excel в Бухгалтерию 7.7

Загрузка и выгрузка в Excel Оптовая торговля Печатные формы Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Бухгалтерский учет Платные (руб)

Обработка загружает из файла Excel документы "Поступление", "Отгрузка", "Счет на оплату". Возможно сохранение настройки соответствия полей. Есть демоверсия. Есть интересная функция загрузки сразу и поступления, и отгрузки (цены в отгрузке будут установлены больше на выбранный процент). Элементы номенклатуры ищутся по полям поиска и могут создаваться новые, если не найдены.

9516 руб.

02.06.2015    45408    3    5    

5
Хитрости сохранения табличного документа в Excel для дальнейшей работы с ним

Загрузка и выгрузка в Excel Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 Бесплатно (free)

Все пользователи 1С всех версий (начиная с 7-й) сталкиваются с проблемой нормальной работы с данными, сохраненными в Excel файл. Есть некоторые хитрости, которые позволяют облегчить работу с сохраненными данными из 1С в формат Excel.

16.01.2015    125913    shmellevich    41    

92
Загрузка номенклатуры в справочник и документ из файла Excel и CSV, обновление цен и реквизитов (адаптируется под разные конфигурации 1С: 7.7)

Загрузка и выгрузка в Excel Оптовая торговля Розничная торговля Ценообразование, анализ цен Бухгалтер Пользователь 1С:Предприятие 7.7 1C77 Управленческий учет Платные (руб)

Загрузка номенклатуры в справочник и документ, обновление цен, реквизитов, подчинённых справочников из файла Excel и CSV в 1С7.7. Формирует структуру групп (иерархию), создаёт полностью готовый справочник. Выгружает товары прайс-листа в документы Поступление, Реализация, Заказ, Оприходование, Отчет ККМ и другие. Автоматически адаптируется под разные конфигурации 1С7.7, в которых есть справочник номенклатуры.

2440 руб.

04.12.2014    82974    38    56    

56
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. GSoft 2345 07.10.09 11:38 Сейчас в теме
а выложить всю обработку?)
+ – Ответить
2. levran 202 07.10.09 11:39 Сейчас в теме
(2) да она там в три строчки =)
+ – Ответить
3. levran 202 07.10.09 14:59 Сейчас в теме
=) первый минус как и первый плюс всегда волнителен, хорошо бы еще узнать причину, но увы и ах.
+ – Ответить
4. Altair777 649 07.10.09 15:15 Сейчас в теме
(3) за три строчки :-)
Кстати, а почему Вы не спросили у andreyho за что он поставил плюс? ;-)
+ – Ответить
5. levran 202 07.10.09 15:25 Сейчас в теме
(4) плюсики это пазитиф, зачем спрашивать про позитиф =) а вот минусики ... насчет трех строчек, это была не похвальба, там действительно было мало кода, который я и выложил в первоначальной версии этого текста. А после уже написал комментарий про три строчки. Далее было решено выложить более полную версию обработки. поэтому и код из текста был перенес в обработку. Так что не вижу причины для минуса. Просьба (1) была выполнена. Ну хотя ладно, минус так минус. Тоже наука =)
+ – Ответить
7. Altair777 649 07.10.09 15:32 Сейчас в теме
(5) Вот-вот... Написали бы статью по работе с Excel'ем средствами 1С, я бы поставил бы БОЛЬШОЙ жирный плюс ;-)
А так.... три строчки кода в описании разве тянут на плюс? Скажите честно, положа рука на сердце. Или, лучше, на желто-красную книжечку :D
А вот на минус тянут. За захламление ресурса.

(6) Я минусовал не коммантерий, а именно обработку.
Даже не саму обработку, а ее отсутствие.
Yashazz; +1 – Ответить
8. levran 202 07.10.09 15:48 Сейчас в теме
(7) Сначала это была статья. И в ней, после комментария, я выложил код обработки по выводу цвета. Чуть позже, когда я закончил писать обработку по выводу в Ексель, кроме цвета были использованы еще другие функции ОЛЕ екселя и появилось желание поделиться найденными приемами, но мне подумалось, что выкладывать весь код обработки слишком громоздко, посему статья превратилась в обработку. Которую я и выложил. Если бы я мог удалять комментарий, я бы свой удалил, чтобы не вводить людей в заблуждение.
+ – Ответить
10. Altair777 649 07.10.09 15:53 Сейчас в теме
(8) > Сначала это была статья

:D
Под статьей я понимал именно статью, а не 5-6 фраз
+ – Ответить
6. levran 202 07.10.09 15:27 Сейчас в теме
(4) кстати логичнее было бы заминусовать комментарий, а не текст и обработку. Имхо канечно же.
+ – Ответить
9. levran 202 07.10.09 15:51 Сейчас в теме
Вообще первоначальный замысел был сохранить соответствие цветов и номеров. Для себя и других. Подобного ресурса на инфостаре я не нашел, поэтому прошу пояснить что именно Вы считаете "захламлением"?
+ – Ответить
11. Altair777 649 07.10.09 15:58 Сейчас в теме
Эх.. жалко нельзя еще один минус поставить.... ;)

57
ЛистЭксель.Cells(Сч,1).Interior.ColorIndex=Сч;
{D:\DOWNLOADS\1С\RABOTA_S_EXCEL.ERT(406)}: Microsoft Office Excel: Нельзя установить свойство ColorIndex класса Interior
+ – Ответить
12. levran 202 07.10.09 15:59 Сейчас в теме
(11) странно, если нельзя, то почему работает?
+ – Ответить
14. Altair777 649 07.10.09 16:02 Сейчас в теме
(12) Не работает :)
+ – Ответить
15. Noy 1079 07.10.09 16:15 Сейчас в теме
(14) и не будет. в палитре Екселя всего 56 цветов. об этом четко написано в справке к Екселю, даже все цвета нарисованы (в Екселе открываем Визуал - там справка - поиск "ColorIndex Property")

+ – Ответить
16. Altair777 649 07.10.09 16:18 Сейчас в теме
(15) наверно, автор об этом не знает.
В коде написано: 

Для Сч=1 По 255 Цикл
	Сообщить(сч);
	ЛистЭксель.Cells(Сч,2).Value=Сч;	
	ЛистЭксель.Cells(Сч,1).Interior.ColorIndex=Сч;
КонецЦикла;
+ – Ответить
13. Altair777 649 07.10.09 16:01 Сейчас в теме
+(11)
Прикрепленные файлы:
+ – Ответить
17. Noy 1079 07.10.09 16:20 Сейчас в теме
15+ причем у автора на скриншоте тоже всего 56 цветов, а в коде счетчик идет до 255...
+ – Ответить
18. Altair777 649 07.10.09 16:27 Сейчас в теме
(17) У меня уже была мысль, что автор - это совсем не автор ;)
+ – Ответить
19. Noy 1079 07.10.09 16:36 Сейчас в теме
(18) Ты слишком строг. Автор захотел поделиться "открытием", которое неважно оформил, за что получил от тебя минус. А ты начинаешь "наезжать"...
+ – Ответить
20. Altair777 649 07.10.09 16:44 Сейчас в теме
(19) Ладненько, больше не буду :-)
Но минус я поставил заслуженно, хоть и заблаговременно.
Интуиция...
+ – Ответить
21. levran 202 07.10.09 21:03 Сейчас в теме
хех
+ – Ответить
22. GSoft 2345 08.10.09 10:50 Сейчас в теме
Объем = глФРМ<<?>>(Товар.РеквОбъем);
{C:\TEMP\РАБОТА_С_EXCEL.ERT(336)}: Функция не обнаружена (глФРМ)
Продажи = глФРМ<<?>>(тзСводнаяТаблицаПоТовару.Продажи);
{C:\TEMP\РАБОТА_С_EXCEL.ERT(337)}: Функция не обнаружена (глФРМ)
Остаток = глФРМ<<?>>(тзСводнаяТаблицаПоТовару.Остаток);
{C:\TEMP\РАБОТА_С_EXCEL.ERT(338)}: Функция не обнаружена (глФРМ)
ОстатокВДнях = глФРМ<<?>>(тзСводнаяТаблицаПоТовару.ОстатокВДнях);
{C:\TEMP\РАБОТА_С_EXCEL.ERT(339)}: Функция не обнаружена (глФРМ)
+ – Ответить
23. Altair777 649 08.10.09 11:48 Сейчас в теме
(22) Автор, можно было бы часть функций из Глобальника в обработку добавить.
Там все равно говнокода много и так :-)
Или хотя бы указывайте, что это работает в таких-то и таких-то конфигурациях.
+ – Ответить
24. Tolpinski 71 14.10.09 07:52 Сейчас в теме
Объем = глФРМ<<?>>(Товар.РеквОбъем);
{C:\! NEW\2009-10-14\РАБОТА_С_EXCEL.ERT(336)}: Функция не обнаружена (глФРМ)

Зачем использовать глобальные функции в универсальной обработке?
+ – Ответить
25. markers 279 14.10.09 08:45 Сейчас в теме
Есть возможность переопределить любой индекс своим цветом, если интересно могу поделится
+ – Ответить
26. levran 202 14.10.09 09:57 Сейчас в теме
(25) да, интересно!
+ – Ответить
27. markers 279 14.10.09 12:23 Сейчас в теме
Это делаем в начале работы с экселем
Цвета = 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/
Noy; +1 – Ответить
28. markers 279 14.10.09 12:37 Сейчас в теме
Так же могу выложить полностью обработку свою которая не привязана к базе (заполняет тестовыми данными) где применена и раскраска и закачка картинок и автоматическое сжатие картинок путём добавление макроса, выполнение и удаление макроса (чтоб у клиентов не вопило). Если есть интерес, то скажите, выложу.
+ – Ответить
29. UrbSI 79 14.10.09 14:14 Сейчас в теме
Хех. А мне кажется, что проще в 1С-ке заполнить табличную часть отчета(документа), затем, воспользовавшись атрибутами и методами области таблицы, раскрасить ее, а потом уж через меню "файл-сохранить как" сохранить как файл в формате еxcel. И будет красочно и красиво. :D
+ – Ответить
30. markers 279 19.10.09 06:06 Сейчас в теме
(29) Несогласен! Если не смотреть на производительность то да, но вот если смотреть на неё и ещё если тебе надо сделать некоторые операции что через стандартные средства 1С никак не сделать, то очень даже лучше сразу формировать в эксель. Например у нас прайс формируется немного нестандартный (переделан стандартный), Например в нём есть поле "Код" с ведущими нулями и есть ссылка, если просто прогнать через стандартную в 1С, то у кода не будет нулей, и не будет ссылки, наш гореписатель (работал год назад) сделал так: Формировался прайс, сохранялся, открывался через ком, доделывалось нужное (ссылки, тип поля код) что не супер в плане производительности да и вообще всё было сделано очень криво, потому было решено написать формирование прайс-листа с нуля и сразу выгрузку в Excel, добавив поддержку таких фишек как добавление картинок. Конечно мне пришлось попарится и перерыть весь инет через разные поисковики, чтобы подготовить рыбу прайса которую наш 1С прогер наполнит данными. Кстати эту рыбу могу дать! Там перенос данных осуществляется через массив (а не поячеечно).
См. Приложение! В той рыбе нет привязке к ИБ, только подправьте пути.
Прикрепленные файлы:
ВыгрузкаВExcel.epf
+ – Ответить
31. levran 202 24.10.09 23:18 Сейчас в теме
markers спасибо =)
+ – Ответить
32. Gal_B 16.09.15 10:58 Сейчас в теме
Цвета, к слову сказать, не совпадают. Пришлось "методом тыка" подбирать, но это в принципе не страшно))
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация