VPF::запомнить значения из выделенного диапазона

alyam

Дата 13.1.2012, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 2.8.2006

Репутация: нет
Всего: нет

подскажите как запомнить значения из выделенного диапазона? не copy или paste, а просто запомнить. Для того чтобы потом обращаться к элементам этого диапазона как к переменным.

Данкинг

Дата 13.1.2012, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Ну и сохраняй в массив.

--------------------

There's nothing left but silent epitaphs.

alyam

Дата 13.1.2012, 02:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 2.8.2006

Репутация: нет
Всего: нет

а можно ли динамическому массиву присвоить значение выделенного диапазона без перебора.
типа: x()=selection.value

когда ячеек несколько то все работает ###ца, но почему-то когда выделяю одну ячейку - то выдается несоответсвие типов....

Это сообщение отредактировал(а) alyam - 13.1.2012, 02:52

FINANSIST

Дата 30.1.2012, 07:52 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23

Код


dim x(1 to 3) as integer
let x(1) = activecell.value
let x(2) = activecell.offset(1,0).value
let x(3) = activecell.offset(2,0).value

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

Дмит

Дата 30.1.2012, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 8
Всего: 9

Код


Dim x As Variant
  x=Range("A1:IV500")

FINANSIST

Дата 31.1.2012, 07:27 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23

Дмит, работоспособный код использования этого "x" можно увидеть?

--------------------

Дмит

Дата 31.1.2012, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 8
Всего: 9

Код


Dim x As Variant
    Range("A1") = "Сумма("
    Range("A2") = 12
    Range("B1") = 21
    Range("B2") = 22
    x = Range("A1:B2")
    MsgBox x(1, 1) & x(1, 2) & "+" & x(2, 1) & "+" & x(2, 2) & ")=" & _
        x(1, 2) + x(2, 1) + x(2, 2)

А в чём проблема использования Variant ? Лучше, конечно, не путать кислое с пресным, как в примере smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »