Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "программно выделить ячейку под выделенным сектором" / 5 сообщений из 5, страница 1 из 1
28.08.2007, 16:28:38
    #34758806
Suleyman
Suleyman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"программно выделить ячейку под выделенным сектором"
"Подскажите как программно выделить ячейку которая находится под выделенным
сектором ячеек с отступом в лево на 5 столбцов.
пример: выделен сектор ячеек "F1:F5" а надо выделить ячейку A6.
соотв-но выделенные сектора могут быть разные.
заранее благодарен!"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2007, 16:32:07
    #34758828
Rampage
Rampage
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"программно выделить ячейку под выделенным сектором"
Suleyman"Подскажите как программно выделить ячейку которая находится под выделенным
сектором ячеек с отступом в лево на 5 столбцов.
пример: выделен сектор ячеек "F1:F5" а надо выделить ячейку A6.
соотв-но выделенные сектора могут быть разные.
заранее благодарен!"

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

Код: plaintext
ActiveCell.Offset( 0 , - 5 ).Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2007, 16:36:33
    #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:45
    #34758856
Rampage
Rampage
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"программно выделить ячейку под выделенным сектором"
тоесть
Код: plaintext
1.
ActiveCell.Offset(- 1 , - 5 ).Select

работает , если только выделение начинается с крайней левой нижней ячейки... что само по себе не удобно .. потому мой вариант фиховый, но мож если без вариантов то можна использовать)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2007, 16:40:47
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "программно выделить ячейку под выделенным сектором" / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 382ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182388]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 281ms
total:  382ms
x
x
Закрыть


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