Есть несколько чисел: 5,7,10,14,16 и т.д, Есть ли возможность записать условие IF THEN,, где значение сравнивается с данным множеством? Хотелось бы избежать повторения OR.
Добрый. Это смотря как числа стоят (в одной ячейке, в нескольких, каждое в своей). Да и числа ли это (а то вдруг, строковые значения?). Покажите в файле что есть, что нужно.
И какой результат должен быть? {5,7,10,14,16}>7 = TRUE или {5,7,10,14,16}>7 = {FALSE,FALSE,TRUE,TRUE,TRUE} или {5,7,10,14,16}>7 = 10 или {5,7,10,14,16}>7 = ???
Если номер колонки соответствует одному из чисел множества, выполняется пакет операций. Т.е. для каждого CASE прописывать один и тот же пакет не комильфо. В таблице три десятка колонок. Изменения в десятке из них вызывают пакет вычислений, изменения в остальных вызывают другие действия. Просто хотел узнать, можно ли записать что-то типа If oCell.Column = {5,7,10,14,16....} Then..... ?
Для примера вот использование Select Case, исходя из того как я понял ваш пример
Код
Sub test()
Dim i&
i = InputBox("Значение", Default:="число")
Select Case i
Case 1, 4, 6 To 9: MsgBox "Совпало"
Case Else
MsgBox "Нет данных"
End Select
End Sub