Формирование содержания массива с листа

@OLEGOFF · Регистрация: 27.02.2013

Студворк — интернет-сервис помощи студентам

Добрый день .
На листе1 имеется таблица цветов(469 цветов).В коде программы используется массив со значениями кодов всех цветов.Однако каждый раз мне необходим массив не всех цветов,а только тех,которые определяются в таблице2.Подскажите пожалуйста быстрый способ формирования данных из ячеек листа (столбец L) в тело массива в VBA.
Сейчас я копирую массив из VBA и вставляю на лист,где произвожу ввод нужных кодов вручную.Затем все это копирую обратно в код.Можно-ли это как-то автоматизировать.
Файл прилагаю.

@OLEGOFF · 01.04.2016, 10:15 **[ТС]**

Код нужен для 2007.Просто на работе 2003 стоит,поэтому и пример в нем.
Пробовал копировать из ячеек в блокнот.Но там появляются лишние пробелы табуляции.А при разложении строки по столбцам исчезают запятые.

Shersh · 01.04.2016, 10:57

Сообщение от OLEGOFF

быстрый способ формирования данных из ячеек листа (столбец L) в тело массива в VBA

чем не устраивает это -

Visual Basic
1
RGBConstantColorRaduga = Range([L2], [L2].End(xlDown)).Value

?

@OLEGOFF · 01.04.2016, 11:14 **[ТС]**

Shersh, мне нужен именно массив,т.к. он затем используется в дальнейших расчетах в виде функции.И завязан с другими функциями. Я в VBA не силен,но попробую.Просто при постоянном обращении к Range замедляется работа.
Подробности применнения находятся в теме
Задать имя цвета из библиотеки цветов
Просто при обращении ко всему массиву цвета мне не хватает памяти для обработки более 250х120 ячеек.

Добавлено через 6 минут
Может я немного не так описал задачу?
Необходимо по столбцу L составить текст (массив) хоть в блокноте,хоть на листе который я мог бы просто скопировать в код .

Shersh · 01.04.2016, 11:38

OLEGOFF, сдается мне, что вы решаете задачу ~~через одно место~~ не с того конца...

Visual Basic
1
2
3
4
5
6
a = Range([L2], [L2].End(xlDown)).Value
ReDim b(LBound(a, 1) To UBound(a, 1))
For i = LBound(a, 1) To UBound(a, 1)
  b(i) = a(i, 1)
Next
Debug.Print Join(b, ",")

и копируйте куда хотите

@OLEGOFF · 01.04.2016, 11:46 **[ТС]**

Shersh,

Сообщение от Shersh

через одно место

это может быть,буду разбираться.
Спасибо за советы

toiai · 01.04.2016, 11:47

Можно код и короче:

Visual Basic
1
2
    a = Application.Transpose(Range([L2], [L2].End(xlDown)).Value)
    Debug.Print Join(a, ",")

@Hugo121 · 01.04.2016, 11:58

Да обычно на практике и двумерный массив ничуть не хуже, незачем транспозу мучить... Чуть дальнейший код скорректировать и всё.
Тем более что в старых версиях эта транспоза глючила на больших объёмах (начиная уже с 2000 элементов)

@OLEGOFF · 01.04.2016, 12:04 **[ТС]**

Извините ребята,не нашел откуда копировать?

Shersh · 01.04.2016, 12:15

Сообщение от OLEGOFF

не нашел откуда копировать?

CTRL+G

@OLEGOFF · 01.04.2016, 12:19 **[ТС]**

Спасибо всем.Разобрался.
Просто этот массив применяется параллельно еще в двух программах.Поэтому и надо было через бубен сделать.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	01.04.2016, 10:15 [ТС]
	Код нужен для 2007.Просто на работе 2003 стоит,поэтому и пример в нем. Пробовал копировать из ячеек в блокнот.Но там появляются лишние пробелы табуляции.А при разложении строки по столбцам исчезают запятые. 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	01.04.2016, 11:14 [ТС]
	Shersh, мне нужен именно массив,т.к. он затем используется в дальнейших расчетах в виде функции.И завязан с другими функциями. Я в VBA не силен,но попробую.Просто при постоянном обращении к Range замедляется работа. Подробности применнения находятся в теме Задать имя цвета из библиотеки цветов Просто при обращении ко всему массиву цвета мне не хватает памяти для обработки более 250х120 ячеек. Добавлено через 6 минут Может я немного не так описал задачу? Необходимо по столбцу L составить текст (массив) хоть в блокноте,хоть на листе который я мог бы просто скопировать в код . 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	01.04.2016, 11:58
	Да обычно на практике и двумерный массив ничуть не хуже, незачем транспозу мучить... Чуть дальнейший код скорректировать и всё. Тем более что в старых версиях эта транспоза глючила на больших объёмах (начиная уже с 2000 элементов) 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	01.04.2016, 12:04 [ТС]
	Извините ребята,не нашел откуда копировать? 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	01.04.2016, 12:19 [ТС]
	Спасибо всем.Разобрался. Просто этот массив применяется параллельно еще в двух программах.Поэтому и надо было через бубен сделать. 0