ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "программно выделить ячейку под выделенным сектором"
5 сообщений из 5, страница 1 из 1
"программно выделить ячейку под выделенным сектором"
    #34758806
Suleyman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Suleyman
Гость
"Подскажите как программно выделить ячейку которая находится под выделенным
сектором ячеек с отступом в лево на 5 столбцов.
пример: выделен сектор ячеек "F1:F5" а надо выделить ячейку A6.
соотв-но выделенные сектора могут быть разные.
заранее благодарен!"
...
Рейтинг: 0 / 0
28.08.2007, 16:28:38
| Ответить | Цитировать | Написать  
"программно выделить ячейку под выделенным сектором"
    #34758828
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
Suleyman"Подскажите как программно выделить ячейку которая находится под выделенным
сектором ячеек с отступом в лево на 5 столбцов.
пример: выделен сектор ячеек "F1:F5" а надо выделить ячейку A6.
соотв-но выделенные сектора могут быть разные.
заранее благодарен!"

хммм, попробуй использовать offset , только не верен что он с ренжем пашет.

Код: plaintext
ActiveCell.Offset( 0 , - 5 ).Select
...
Рейтинг: 0 / 0
28.08.2007, 16:32:07
| Ответить | Цитировать | Написать  
"программно выделить ячейку под выделенным сектором"
    #34758853
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Test1()
    With Range("F1:F5")
        .Cells(.Rows.Count +  1 , - 4 ).Select
    End With
End Sub

Sub Test2()
    With Range("F1:F5")
        .Offset(.Rows.Count, - 5 ).Resize( 1 ,  1 ).Select
    End With
End Sub

Sub Test3()
    Range("F1:F5")( 6 , - 4 ).Select
End Sub
KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.08.2007, 16:36:33
| Ответить | Цитировать | Написать  
"программно выделить ячейку под выделенным сектором"
    #34758856
Фотография Rampage
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rampage
Участник
тоесть
Код: plaintext
1.
ActiveCell.Offset(- 1 , - 5 ).Select

работает , если только выделение начинается с крайней левой нижней ячейки... что само по себе не удобно .. потому мой вариант фиховый, но мож если без вариантов то можна использовать)
...
Рейтинг: 0 / 0
28.08.2007, 16:36:45
| Ответить | Цитировать | Написать  
"программно выделить ячейку под выделенным сектором"
    #34758875
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
KL (XL)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Test1()
    With Range("F1:F5")
        .Cells(.Rows.Count +  1 , - 4 ).Select
    End With
End Sub

Sub Test2()
    With Range("F1:F5")
        .Offset(.Rows.Count, - 5 ).Resize( 1 ,  1 ).Select
    End With
End Sub

Sub Test3()
    Range("F1:F5")( 6 , - 4 ).Select
End Sub

если надо, можно заменить Range("F1:F5") на Selection

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.08.2007, 16:40:47
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "программно выделить ячейку под выделенным сектором"
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34758828&tid=2182388]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 63ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 238ms
total:  406ms
созд. / загр.: 406ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]