Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с выделением диапозонов в Excel / 5 сообщений из 5, страница 1 из 1
15.11.2009, 19:17
    #36311442
Smokie
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с выделением диапозонов в Excel
Друзья мои, очень прошу помочь с решением такой проблемы, с котрой мне посчастливилось столкнуться. Описанная проблема - один из необходимых шагов макроса, который автоматизирует процесс обработки данных. Итак:
У меня есть набор данных в Excel. В одном из столбцов я нахожу нужную мне ячейку(по значению), после чего мне необходимо скопировать диапозон данных от этой ячейки до ячейки B2.
У этой ячейки положение меняется в каждом цикле, поэтому ее нельзя задать, как, например, J123, а только как ActiveCell.
Заранее большое спасибо!
...
Рейтинг: 0 / 0
15.11.2009, 21:52
    #36311504
Smokie
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с выделением диапозонов в Excel
Smokie,

По большому счету проблему решил следующим образом:
Dim a As String
Dim v As String
Dim ran As Range
a = ActiveCell.Address
v = "B2"
Set ran = Range(v + ":" + a)
ran.Select

Вот дальше возник вопрос: как организовать поиск в VBA таким образом, чтобы поиск был только в выделенном столбце?
...
Рейтинг: 0 / 0
15.11.2009, 21:54
    #36311505
Smokie
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с выделением диапозонов в Excel
Smokie,

ThisWorkbook.Sheets(1).Columns(6).Find(....)
...
Рейтинг: 0 / 0
15.11.2009, 23:34
    #36311548
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с выделением диапозонов в Excel
Можно и короче выделить:
Код: plaintext
1.
2.
3.
Sub tt()
Range("B2:" & ActiveCell.Address).Select
End Sub
...
Рейтинг: 0 / 0
16.11.2009, 10:45
    #36311895
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с выделением диапозонов в Excel
> Автор: Hugo121
> Можно и короче выделить:

Можно и так выделять:
Код: plaintext
1.
2.
3.
4.
Sub kn()
Dim r As Range
Set r = ActiveCell
Range(Range("B2"), r).Select
End Sub


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с выделением диапозонов в Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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