Проверьте выбор в Excel VBA
Эта программа в Excel VBA использует свойство Count, IsNumeric функция, функция IsEmpty и метод Intersect, чтобы проверить выбор.
Ситуация:
Поместите командную кнопку на листе и добавьте строки следующего кода:
-
Во-первых, мы объявляем два объекта Range. Мы называем объекты Диапазон ГСЧ и клетки.
Dim rng As Range, cell As Range
-
Мы инициализируем объект ГСЧ Range с Range ( «C4: D10») и объектный диапазон ячеек с выбранным диапазоном.
Set rng = Range("C4:D10") Set cell = Selection
-
Добавьте следующие строки кода:
If cell.Count = 1 And IsNumeric(cell) And Not IsEmpty(cell) And Not Intersect(rng, cell) Is Nothing Then MsgBox "You win" Else MsgBox "You lose" End If
Объяснение: Intersect (RNG, клетка) возвращает объект Range, который представляет ссылку: / VBA-примеры-союз-пересекается [пересечения]
из двух диапазонов. Если этот объект диапазона не ничего, единственное число (первые три условия) находится в диапазоне окаймленного.
-
Проверьте программу.
Только тогда, когда вы выбираете один номер в окаймленной диапазоне результат будет:
Во всех остальных случаях результат будет: