Sub Test()
Dim r As Range
Set r = Application.Intersect(Selection, Range("A1"))
If r Is Nothing Then
MsgBox "Не выделена."
Else
MsgBox "Выделена."
End If
End Sub
XL: Как узнать, выделена ли ячейка
И, чуть не забыл...
Как определить выделен ли данный рейндж или нет?
Как выделить кучу областей с помощью select понятно.
А как для произвольной ячейки узнать выделена она сейчас или нет?
Как определить выделен ли данный рейндж или нет?
Как выделить кучу областей с помощью select понятно.
А как для произвольной ячейки узнать выделена она сейчас или нет?
Цитата: Njif
Здорово, Cutty Sark!! Спасибо, буду знать!
А про ячейки можешь что-нибудь подсказать, пожалуйста?
А про ячейки можешь что-нибудь подсказать, пожалуйста?
Конечно, могу.
Давай только по порядку и поподробнее.
Предположим, что сейчас выделен диапазон А1:С10.
А у тебя диапазон B5:E8.
Какой ответ ты хочешь получить и на какой вопрос?
Цитата: Cutty Sark
Конечно, могу.
Давай только по порядку и поподробнее.
Предположим, что сейчас выделен диапазон А1:С10.
А у тебя диапазон B5:E8.
Какой ответ ты хочешь получить и на какой вопрос?
Давай только по порядку и поподробнее.
Предположим, что сейчас выделен диапазон А1:С10.
А у тебя диапазон B5:E8.
Какой ответ ты хочешь получить и на какой вопрос?
Он хочет узнать вделена ли конкретная ячейка или нет!!
К примеру на листе с помощью Ctrl выделено несколько ячеек/несколько диапозонов..Как узнать выделена ли ячейка, к примеру, A5??
А действительно как??
Если один диапозон - через Selection, а так - не понятно!!:confused:
Цитата: koltaviy
Он хочет узнать вделена ли конкретная ячейка или нет!!
К примеру на листе с помощью Ctrl выделено несколько ячеек/несколько диапозонов..Как узнать выделена ли ячейка, к примеру, A5??
А действительно как??
Если один диапозон - через Selection, а так - не понятно!!:confused:
К примеру на листе с помощью Ctrl выделено несколько ячеек/несколько диапозонов..Как узнать выделена ли ячейка, к примеру, A5??
А действительно как??
Если один диапозон - через Selection, а так - не понятно!!:confused:
Если он имеет в виду именно это, то вот так:
Код:
Точно!!:)
Не сказал бы, что это жизненно важно;), но будем знать!!
Не сказал бы, что это жизненно важно;), но будем знать!!
Application.Intersect и Application.Union периодически пригождаются в деле.
Спасибо большое!
Теперь я почти что счастливый человек :)
Теперь я почти что счастливый человек :)