автоматизированный поиск

Дата: Вторник, 13.03.2012, 15:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

возможно ли сделать так, чтобы при нажатии на ячейку с числом на первом листе , автоматически находилось это число во втором листе?

Дата: Вторник, 13.03.2012, 15:31 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Что значит "нажатие" и в каком виде должен быть результат поиска?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 13.03.2012, 16:04 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

в ячейку вводится число допустим 2012 (код продажи), потом при нажатии(или выделении) на эту ячейку с числом 2012, это число находилось во втором листе(база) в определенной графе

Дата: Вторник, 13.03.2012, 16:11 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Serge_007)

в каком виде должен быть результат поиска?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 13.03.2012, 16:30 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

как при использовании функции НАЙТИ, только обойти ручной ввод

К сообщению приложен файл: kkkk.xlsx (8.1 Kb)

Дата: Вторник, 13.03.2012, 16:31 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

Quote (rvisk)

в каком виде должен быть результат поиска?

должен открываться второй лист с выделением этого числа

Дата: Вторник, 13.03.2012, 16:35 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (rvisk)

должен открываться второй лист с выделением этого числа

Это только макросом

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 13.03.2012, 16:40 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

это сложно? где можно прочитать как это делается?

Дата: Вторник, 13.03.2012, 17:07 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (rvisk)

это сложно?

Ну, совсем простенький макрос вообще можно записать макрорекордером...
Во вложении файл. На листе Код в А1 вводите число и жмёте кнопку.

К сообщению приложен файл: rvisk.xls (35.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 13.03.2012, 17:24 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

спасибо,это макрос для одной ячейки, а как сделать для ячеек во всей графе?

К сообщению приложен файл: rvisk-2-.xls (35.0 Kb)

Дата: Вторник, 13.03.2012, 17:33 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (rvisk)

как сделать для ячеек во всей графе?

Это уже не ко мне, я в программировании не разбираюсь.
Пишу же:

Quote (Serge_007)

совсем простенький макрос вообще можно записать макрорекордером

Что я и сделал smile

ЗЫ Ждите макрописателей

ЮMoney:41001419691823 | WMR:126292472390

Дата: Вторник, 13.03.2012, 17:38 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 0% ±

спасибо, буду искать макрописателей

Дата: Вторник, 13.03.2012, 17:48 | Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (rvisk)

буду искать макрописателей

Чего их искать?!
Они здесь. Надо только подождать пока они зайдут в Вашу тему и ответят

ЮMoney:41001419691823 | WMR:126292472390

Jhonson

Дата: Вторник, 13.03.2012, 21:17 | Сообщение № 14

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

В модуль листа:
[vba]

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
poisk (Target.Value)
End If
End Sub

[/vba]
В Module1:
[vba]

Code

Sub poisk(fin As String)
On Error GoTo Errors1
Sheets("Лист2").Select
Cells.Find(What:=fin, LookAt:=xlWhole).Select
Exit Sub
Errors1: MsgBox ("Не найдено!")
End Sub

[/vba]

К сообщению приложен файл: find1.xlsm (13.2 Kb)

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 14.03.2012, 09:02

Артём

Дата: Вторник, 13.03.2012, 23:10 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Надеюсь автор темы и модераторы позволят чуток изменить формулировку. У меня тоже типичная задача, но в пределах одного листа. Имеем таблицу с кучей наименований, часто повторяющиеся. как сделать так, чтобы напр.когда курсор находится в ячейке "фанера" при нажатии определенной комбинации клавиш (напр.Alt F) курсор автоматически переместился бы др.ячейку с этим же именем в данном листе.

Все будет хорошо!

Jhonson

Дата: Среда, 14.03.2012, 08:41 | Сообщение № 16

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Ну это совсем просто:
[vba]

Code

Sub perem()
Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookAt:=xlWhole).Activate
End Sub

[/vba]

Комбинация клавиш - ctrl+f (в английской раскладке!)

К сообщению приложен файл: 3945628.xlsm (12.4 Kb)

"Ничто не приносит людям столько неприятностей, как разум."

Артём

Дата: Среда, 14.03.2012, 10:11 | Сообщение № 17

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Спасибо! Просто класс!

Quote (Jhonson)

Комбинация клавиш - ctrl+f (в английской раскладке!)

Извините за упрямство, а можно через Alt+F?

Все будет хорошо!

Дата: Среда, 14.03.2012, 10:16 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Артём)

можно через Alt+F?

Насколько я знаю - нет

ЮMoney:41001419691823 | WMR:126292472390

Артём

Дата: Среда, 14.03.2012, 10:48 | Сообщение № 19

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

почему? с чем это связано? версие Excel? у меня 2010

Все будет хорошо!

Дата: Среда, 14.03.2012, 11:01 | Сообщение № 20

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Артём)

с чем это связано?

Думаю что с вот этим:

В принципе, сочетание клавиш Alt+... в Excel 2007/2010 назначить можно, но вот как назначить именно Alt+F?..
Не уверен что это возможно.
Вот Alt+ОК или Alt+ОЖ - пожалуйста.
См. на скрине:

Alt+ОЖ - транспонирует матрицы, а Alt+ОК отображает скрытые листы...

ЮMoney:41001419691823 | WMR:126292472390