Условие для множества чисел

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

pechkin

Дата: Воскресенье, 18.01.2015, 11:28 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 332

Репутация: 49 ±

Замечаний: 0% ±

2003

Здравствуйте! Опять прошу дать ответ на, возможно, несколько странный вопрос. Есть определенное множество чисел. Как в VBA проще записать, например, такое условие не перечисляя все числа[vba]

Код

If Range("A1").Value=число из множества1 Or Range("A1").Value=число из множества2.....Or Range("A1").Value=последнее число из множества Then....

[/vba]. Вообщем когда-то в школе по математике это бы звучало что-то "Если число в ячейке принадлежит множеству то..."Спасибо!

Ответить

ikki

Дата: Воскресенье, 18.01.2015, 11:43 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

числа запихнуть в коллекцию или словарь и затем проверить наличие там.
пример для словаря
[vba]

Код

dim d as object
set d=createobject("scripting.dictionary") ' создаем словарь
d(5)=0&: d(17)=0&: d(28)=0&: d(-3)=0& ' заполняем
if d.exists([a1].value) then ' собственно проверка

[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

pechkin

Дата: Четверг, 22.01.2015, 18:35 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 332

Репутация: 49 ±

Замечаний: 0% ±

2003

Здравствуйте! В продолжение темы подскажите пожалуйста, как из подсказанного ikki (благодарность ему) словаря с числами множества вывести эти числа в нефиксированный диапазон, например E3:E[vba]

Код

dim d as object
  set d=createobject("scripting.dictionary") ' создаем словарь
  d(5)=0&: d(17)=0&: d(28)=0&: d(-3)=0& ' заполняем
  if d.exists([a1].value) then Range("E3:E")=d' Не РАБОТАЕТ???

[/vba] Спасибо!