Друзья!
Простенький вопросик от новичка в Excel-евских макросах.
Допустим, в переменную типа Range вводится выделенный пользователем диапазон ячеек с одним столбцом (например B5:B25 ). Далее мне надо получить отдельно адрес первой и последней ячейки этого диапазона (т.е. "B5" и "B25" соответственно).
Заранее благодарен!

Код

Dim RR As Range     Dim FirstCell As Range     Dim LastCell As Range          Set RR = Application.Selection          Set FirstCell = Cells(RR.Row, RR.Column)     Set LastCell = Cells(RR.Row + RR.Rows.Count - 1, RR.Column + RR.Columns.Column - 1)

Добавлено @ 11:23

The following example displays four different representations of the same cell address on Sheet1. The comments in the example are the addresses that will be displayed in the message boxes.

Код

MsgBox FirstCell .Address()                             ' $B$5 MsgBox FirstCell .Address(RowAbsolute:=False)           ' $B5 MsgBox FirstCell .Address(ReferenceStyle:=xlR1C1)       ' R5C2 MsgBox FirstCell .Address(ReferenceStyle:=xlR1C1, _     RowAbsolute:=False,     _     ColumnAbsolute:=False,  _     RelativeTo:=Worksheets(1).Cells(3, 3))              ' R[2]C[-1]

Это сообщение отредактировал(а) Naghual - 18.11.2005, 11:26

Спасибо!
Я не указывал "Set"
Хочется спросить, почему в случае
Set FirstCell = Cells(RR.Row, RR.Column)
"Set" необходимо, а команда
FirstCellAddr = FirstCell.Address
выполняется без "Set" , ведь в обоих случаях идет присваивание переменной определенного типа значений соответствующего типа, или не совсем так?

И еще маленький вопросик:

весь мир пишет типа
Dim RR As Range
Dim FirstCell As Range
Dim LastCell As Range,

а я пишу для краткости:
Dim RR, FirstCell, LastCell As Range

Может я делаю ошибку, или это плохой стиль напасания кода на VBA?

Dim RR, FirstCell, LastCell As Range

на сколько я знаю VB при таком порядке написания, тип Range присваивает только последней переменной, а остальные -тип Variant.
Правильно будет:
Dim RR As Range, FirstCell As Range, LastCell As Range

Set используется при операциях присваивания Объектов. Не строк, не цисел, а именно Объектов.
А Address возвращает текст. ;)

Ну а про написание Dim тебе bankuss уже ответил.

Спасибо!
Если межно, еще один вопрос:

Мой макрос обрабатывает объемные таблицы и может работать до часа. Хотелось бы иметь информацию о ходе выполнения, т.е. сколько выполнено, а сколько осталось. Создал форму с надписью в процентах, да вот беда, при выполнении программы форма отображается лишь на мгновение, а потом исчезает под окнами самих книг, да и сами окна книг выглядят так, как будто комп завис. Посоветуйте, пожалуйста, что-нибудь!

1. Сделать книги невидимымы.
2. Перенести код самого макроса в тело Формы. Макрос запускается формой.
3. Показывать форму модально.

Цитата

Хотелось бы иметь информацию о ходе выполнения

еще вариант - выводи инфу в statusbar или в caption приложения

Нужна информация по работе с диапазонами.
Читаю книгу  “VBA 2003 Самоучитель”, Кузьменко В.Г., 2004г., стр.395. Автор в листинге, приведенном на данной странице использует свойста Row и Rows.Count у объекта типа Range, перед этим на предыдущих страницах не объяснив их суть, что они хранят. Дайте pls ссылку где в инете есть подробное описание рэйнджевских свойств/методов.

F1+F2: вот тебе и ссылки (+ MDSN в помощь)
  
Объёмные таблицы это сколько?
100 записей;1000 или 10 000 - отлаженный макрос переваривает ну точно не за час ! (конечно зависит от к-ва столбцов и "экзотичности" необходимых действий)
Здаётся мне - код не оптимизирован, а ход выполнения макроса действительно удобнее всего кинуть в status bar, да и таймер работы туда же

Это сообщение отредактировал(а) FINANSIST - 28.12.2008, 18:55

Некрофил malor поднял мертвую тему и, к тому-же, нарушил правила форума.
Модеры - закройте пожалуйста.

Какой пункт Правил форума?

Пункты 10 и 12.

malor,   

Модератор: Пожалуйста, один топик - один вопрос.

ЗЫ.
  
Что-то я на праздниках задержался...
Пора и в Инет выходить...