Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как определить координаты активной ячейки, если она находится в определенном диапазоне?, Как найти координаты выделенной ячейки
 
Помогите с макросом, который определяет координаты активной ячейки, если она находится в определенном диапазоне (в примере D7:J16)
 
Цитата
Maximum написал:
Морской бой наоборот
Ну что за название? Почитайте новое - лучше?
 
В модуль листа:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D7:J16")) Is Nothing Then
        MsgBox Target.Address(0, 0)
    End If
End Sub



 
Цитата
Юрий М написал:
Почитайте новое - лучше?
Лучше.
 
Или нужно именно время и день недели?
 
Юрий М, Нужно день недели и время
 
Код
MsgBox Cells(6, Target.Column) & Chr(10) & Cells(Target.Row, 3)


 
Юрий М,Благодарю.
То что нужно.
 
Off
Юрий М,  Все по старинке Chr :-)
Chr(10)  -  vbLf ,  ну и 13 - vbCr,   13 и 10 оба vbCrLf - Константы
Изменено: БМВ - 20 Сен 2018 07:46:50
 
Цитата
БМВ написал:
Все по старинке
Так я и сам старый )
Страницы: 1
Читают тему (гостей: 1)
Наверх