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

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

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

Добрый день .
На листе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

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 **[ТС]**

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

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

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

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,501
	01.04.2016, 11:46 [ТС]	6
	Shersh, Сообщение от Shersh через одно место это может быть,буду разбираться. Спасибо за советы 0

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

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

~~Shersh~~ Заблокирован
	01.04.2016, 12:15	10
	Сообщение от OLEGOFF не нашел откуда копировать? CTRL+G 1

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