автоматизированный поиск - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

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

rvisk

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

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

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

Сообщений: 26

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

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

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

Ответить

Jhonson

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

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

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

Сообщений: 514

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

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

Надо было сразу сказать:
модуль листа:
[vba]

Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
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
Range("c:c").Find(What:=fin, LookAt:=xlWhole).Select
Exit Sub
Errors1: MsgBox ("Не найдено!")
End Sub

[/vba]

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

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

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

Ответить

rvisk

Дата: Среда, 14.03.2012, 12:24 | Сообщение № 23

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

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

Сообщений: 26

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

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

ну, тормознул))), спасибо еще раз

Ответить

rvisk

Дата: Четверг, 15.03.2012, 07:11 | Сообщение № 24

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

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

Сообщений: 26

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

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

возможно ли двойное действие при вызове из ячейки

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

Ответить

rvisk

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

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

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

Сообщений: 26

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

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

модуль c листа1 ищет в листе2, аналогичный поиск с листа3 в листе4, при установке этого модуля не происходит

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

Ответить

RAN

Дата: Вторник, 20.03.2012, 17:56 | Сообщение № 26

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Quote (rvisk)

аналогичный поиск с листа3 в листе4, при установке этого модуля не происходит

И правильно. В модуле русским языком написано - "Лист2"
Для любого листа (ищет на следующем)
[vba]

Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim Rng As Range
     If Target.Column = 2 And Target.Value <> "" Then
         Set Rng = Sheets(ActiveSheet.Index + 1).Range("c:c").Find(What:=Target.Value, LookAt:=xlWhole)
         If Not Rng Is Nothing Then
             Sheets(ActiveSheet.Index + 1).Activate
             Rng.Select
         Else
             MsgBox ("Не найдено!")
             Cancel = True
         End If
     End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

rvisk

Дата: Вторник, 20.03.2012, 18:10 | Сообщение № 27

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

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

Сообщений: 26

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

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

вопрос в том, чтобы еще был поиск из листа3 на листе4, лист2 и лист3 работают, ставлю модуль в лист3 аналогичный лусту1, исправляю его, выдает ошибку

Ответить

rvisk

Дата: Вторник, 20.03.2012, 18:30 | Сообщение № 28

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

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

Сообщений: 26

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

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

спасибо, разобрался, заработало

Ответить

Артём

Дата: Четверг, 22.03.2012, 01:44 | Сообщение № 29

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

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

Сообщений: 32

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

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

Доброго всем!
Вопрос чуток не в тему, но он возник в контексте данной тематики. Вернее 2 вопроса: 1.Макрос Jhonsona (сообщ.№16) мне очень понравилось и облегчило жизнь. Спасибо ему еще раз! Решив иметь это оружие всегда под рукой, записал его как надстройку. В списке надстроеек он есть, но не работает. Почему? Или может данный макрос не подходит как надстройка? 2.Никак так и внятно не понял как создать свой Personal.xls, т.е. свою книгу макросов и где ее сохранить. Excel-2010. Заранее благодарен.

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