Ця програма в Excel VBA використовує властивість Count, функцію IsNumeric, функцію IsEmpty та метод Intersect для перевірити вибір.
Ситуація:
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. Спочатку ми оголошуємо два об’єкти Range. Ми називаємо об'єкти діапазону rng і клітиною.
Dim rng As Range, клітинка As Range
2. Ми ініціалізуємо об'єкт Range rng за допомогою Range ("C4: D10") і клітинку об'єкта Range з вибраним діапазоном.
Встановити rng = Діапазон ("C4: D10")
Встановити клітинку = Виділення
3. Додайте такі рядки коду:
Якщо cell.Count = 1 і IsNumeric (клітинка), а не IsEmpty (клітинка) і не перетинається (rng, комірка), то нічого
Повідомлення "Ви виграли"
Інакше
Повідомлення "Ви програли"
Закінчити Якщо
Пояснення: Перетин (rng, комірка) повертає об'єкт Range, що представляє перетин двох діапазонів. Якщо цей об’єкт діапазону не є Нічим, єдине число (перші три умови) знаходиться в межевому діапазоні.
4. Перевірте програму.
Лише коли ви виберете одне число в межевому діапазоні, результат буде таким:
У всіх інших випадках результат буде таким: