ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по Excel
16 сообщений из 16, страница 1 из 1
Вопрос по Excel
    #34169580
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Есть три вопроса -

1.Как определить количество строк в таблице на листе неактивной книги?
2.Как найти последнее значение (т.е. организовать поиск с конца таблицы) в этой таблице?
3.Как установить ячейку текущей в этой таблице если книга неактивна?

Задача в том что хочу вводить в ячейку данные (номер ремонта) и макрос ищет соответствующие данные в другой книге, анализирует и сообщает о результате. Если меня что-то заинтерисовало, хочу перейти в эту другую книгу и посмотреть, что макрос там отыскал.

Спабо.
...
Рейтинг: 0 / 0
01.12.2006, 11:03:25
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34169773
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
можно отталкиваться от
Код: plaintext
Workbooks("book3").Worksheets( 1 ).Cells.SpecialCells(xlCellTypeLastCell).Address
...
Рейтинг: 0 / 0
01.12.2006, 11:49:45
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34169883
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Спасибо VBAPRO!
Работает!
Осталось два вопроса. Что можно придумать?

Set FC = .Range("B3:B1000").Find(RVal.Value, LookIn:=xlValues) - Как можно заставить искать с конца диапазона?
...
Рейтинг: 0 / 0
01.12.2006, 12:12:27
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170049
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
с конца - нет, можно поменять SearchOrder: xlByRows или xlByColumns. Или раздить на поддиапазоны и искать в каждом, а диапазоны проходить в обратном порядке.
Но на 1000 ячеек смысла нет, в них FIND и так быстро сработает.
...
Рейтинг: 0 / 0
01.12.2006, 12:41:16
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170055
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
С направлением поиска разобрался сам.
SearchDirection:=xlPrevious - начинает поиск с конца
SearchDirection:=xlNext - начинает поиск с начала.

Осталось найти способ както выделить найденную ячейку. Может кто подскажет какую нибудь идею?
...
Рейтинг: 0 / 0
01.12.2006, 12:41:55
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170077
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
2 вопрос:
Код: plaintext
SearchDirection:=xlPrevious
в параметрых поиска
3 вопрос: а зачем?

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
01.12.2006, 12:45:57
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170176
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Gelo_RС направлением поиска разобрался сам.
SearchDirection:=xlPrevious - начинает поиск с конца
SearchDirection:=xlNext - начинает поиск с начала.

точно!
Gelo_R
Осталось найти способ както выделить найденную ячейку. Может кто подскажет какую нибудь идею?
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim TheCell As Range
    Set TheCell = Workbooks("book3").Worksheets( 1 ).Cells.SpecialCells(xlCellTypeLastCell)
    If Not TheCell Is Nothing Then
        TheCell.Worksheet.Activate
        TheCell.Activate
    End If
    Set TheCell = Nothing
...
Рейтинг: 0 / 0
01.12.2006, 13:02:52
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170288
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Так то оно так. Только ж будет лист, где я данные ввожу, фокус терять..., все мигать будет...
...
Рейтинг: 0 / 0
01.12.2006, 13:26:28
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170318
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Мне нужно для того, чтоб если данные покажутся мне "подозрительными", я перехожу на другой лист и вижу всю картину по найденным данным. Иначе нужно будет искать эту строку повторно в ручном режиме. А так выбираеш другую книгу - и результат перед носом.
...
Рейтинг: 0 / 0
01.12.2006, 13:32:00
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170328
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
используй переменную Static для хранения адреса и обработчик события активации листа, чтоб активировать ячейку по этому адресу
...
Рейтинг: 0 / 0
01.12.2006, 13:34:19
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170332
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
а вы запомните координаты ячейки в переменных
и повесте на событие Worksheet_Activate() нужного листа установку нужной ячейки

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
01.12.2006, 13:34:31
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170426
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Я уже про это думал. Только как это делать если у меня 10-ки этих файлов... Небуду же во все один и тотже модкль вставлять...
...
Рейтинг: 0 / 0
01.12.2006, 13:52:05
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170480
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
сделай массив и форму для выбора книги или листа которые нужно посмотеть
...
Рейтинг: 0 / 0
01.12.2006, 14:02:39
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34170966
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
попробуйте

Код: plaintext
Application.Goto Reference:=Worksheets("Sheet1").Range("A154"), scroll:=True

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
01.12.2006, 15:39:23
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34171471
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Эта команда активизирует соответствующее окно. Это не то, что мне нужно.
Вопрос решил созданием информационной формы с необходимой кнопкой для перехода на нужное место в на нужном листе. (типа мсжбох только со своими кноками). Тоже несовсем то, но другое в голову не лезет.

Все спасибо.
...
Рейтинг: 0 / 0
01.12.2006, 17:59:41
| Ответить | Цитировать | Написать  
Вопрос по Excel
    #34171527
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Если макрос находит на некативном листе несколько "подозрительных" строк или ячеек, я бы этим строкам/ячейкам во время работы макроса поменял фон на красный или рамку вокруг них нарисовать.
А потом юзеру будет легко визуально найти красные строчки. Юзер разобрался с этими строками и снова запускает макрос поиска. Тот сначала снимает красный фон со всех ячеек UsedRange, потом снова занимается поиском "подозрительных" ячеек.
...
Рейтинг: 0 / 0
01.12.2006, 18:23:19
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34170055&tid=2183831]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 8ms
get forum data:
 1ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 210ms
total:  303ms
созд. / загр.: 303ms
x
x
Закрыть


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