Эта программа в Excel VBA использует свойство Count, функцию IsNumeric, функцию IsEmpty и метод Intersect для проверить выбор.
Ситуация:
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала мы объявляем два объекта Range. Мы называем объекты Range rng и cell.
Dim rng As Range, cell as Range
2. Мы инициализируем rng объекта Range значением Range ("C4: D10"), а ячейку объекта Range - выбранным диапазоном.
Установить rng = Диапазон ("C4: D10")
Установить ячейку = Выбор
3. Добавьте следующие строки кода:
Если cell.Count = 1 и IsNumeric (ячейка), а не IsEmpty (ячейка), а не пересечение (rng, ячейка), равно ничто, то
MsgBox "Вы выиграли"
Еще
MsgBox "Вы проиграли"
Конец, если
Explanation: Intersect (rng, cell) возвращает объект Range, представляющий пересечение двух диапазонов. Если этот объект диапазона не равен Nothing, единственное число (первые три условия) находится в ограниченном диапазоне.
4. Протестируйте программу.
Только когда вы выберете одно число в ограниченном диапазоне, результат будет:
Во всех остальных случаях результат будет: