ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / форма перехода на нужную строку
25 сообщений из 37, страница 1 из 2
  1  все
форма перехода на нужную строку
    #36844567
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
В ячейке А1 нужна постоянно активная форма (окошко ввода) чтобы при вводе данных автоматически перемещаться на нужную строку.
...
Рейтинг: 0 / 0
14.09.2010, 02:23
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36845121
DV68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DV68
Гость
king_k,

Можно через гиперссылку:
...
Рейтинг: 0 / 0
14.09.2010, 11:51
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36845252
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
king_k,

Когда-то собирался сделать себе нечто подобное с поиском. Немного недоделал, форма иногда пропадает.
Вот ваш пример:
...
Рейтинг: 0 / 0
14.09.2010, 12:45
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36845748
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Немножко не то. Я тут более подробно привел пример каким поиском я сейчас пользуюсь.
Жму кнопку ПОИСК , открывается макрос, ввожу например 0200 жму ентер и оно автоматически переходит на нужною строку.
Я хочу все то же, но чтобы вместо кнопки ПОИСК было окошко в которое можна сразу вводить данные для поиска.
...
Рейтинг: 0 / 0
14.09.2010, 15:32
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846428
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
king_k,

Ну почему же не то? Там всё есть, просто в модуле формы frmSearch закомментируйте AddValue и
раскомментируйте Search. Я расчитывал, что вы разберётесь сами.
...
Рейтинг: 0 / 0
14.09.2010, 19:59
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846446
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
...
Рейтинг: 0 / 0
14.09.2010, 20:16
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846517
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Уже то, раньше было не то) Раньше не переходило на нужную строку а добавляло внизу новые данные.
...
Рейтинг: 0 / 0
14.09.2010, 21:34
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846526
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Спасибо большущее! Теперь будет намного удобней работать. Это для поиска по коду товара ассортимент больше 2-х тысяч.
А возможно к этому окошку прикрепить например 4-х значное число чтобы при вводе первой цыфры кода скажем "2" автоматически осуществлялся переход на позиции которые начинаются с 2-ки?
...
Рейтинг: 0 / 0
14.09.2010, 21:49
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846560
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
king_kРаньше не переходило на нужную строку а добавляло внизу новые данные.
Это был бонус, может когда-нибудь пригодится. И это ещё не всё: если вы проявите любопытство, то можете найти в обоих примерах процедуру,
которая создаёт пользовательскую панель инструментов для поиска. Если будет нужно - раскомментируйте её вызов. Тогда, правда, придётся сместить расположение формы по оси Y.
...
Рейтинг: 0 / 0
14.09.2010, 22:35
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846599
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
king_kСпасибо большущее! Теперь будет намного удобней работать. Это для поиска по коду товара ассортимент больше 2-х тысяч.
А возможно к этому окошку прикрепить например 4-х значное число чтобы при вводе первой цыфры кода скажем "2" автоматически осуществлялся переход на позиции которые начинаются с 2-ки?
Можно попробовать. Если что-то надо подправить, то доделаем завтра. Вот посмотрите:
...
Рейтинг: 0 / 0
14.09.2010, 23:23
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36846730
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Спасибо еще раз! Все прекрасно работает, очень удобно работать именно с последним вариантом.
Много плюсов,например при выделении оно выделяет всю строку и если в документе много столбиков без проблем можно найти нужное значение. При удалении данных в окошке в обратном порядке возвращает вверх списка. Именно то что я хотел. Експортировал форму с макросами в робочий документ, подправил чуток, перенес вверх в удобное место и пожалуй все. Ну разве что кнопку с макросом которая будет очищать и активировать окошко для следующего ввода.
...
Рейтинг: 0 / 0
15.09.2010, 03:19
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36847774
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Нашел проблемку, после замены значения на листе 2 пропадает форма. Работает только с лист 1.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "ТОВАР" Then
FormShow
Else
Unload frmSearch
End If
End Sub

изменил на

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "ТОВАР" Then
FormShow
Else
Unload frmSearch
End If
If ActiveSheet.Name = "ТОВАР 2" Then
FormShow
Else
Unload frmSearch
End If
End Sub

после чего начал работать лист 2 и перестал работать лист 1:)

Что делать?
...
Рейтинг: 0 / 0
15.09.2010, 14:09
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36847869
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
king_k
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveSheet.Name = "ТОВАР" Then
        FormShow
    Else
        Unload frmSearch
    End If
    If ActiveSheet.Name = "ТОВАР 2" Then
        FormShow
    Else
        Unload frmSearch
    End If
End Sub

после чего начал работать лист 2 и перестал работать лист 1:)

Что делать?Данный код можно было бы и написать покороче, проблемы вашу наверно не решит, но более наглядно. На всякий случай ещё применил Ucase:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If UCASE(ActiveSheet.Name) = "ТОВАР" Or UCASE(ActiveSheet.Name) = "ТОВАР 2" Then
        FormShow
    Else
        Unload frmSearch
    End If
End Sub
...
Рейтинг: 0 / 0
15.09.2010, 14:37
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36847888
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Хотя наверно правильнее так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 On Error Resume Next
 
 If UCase(ActiveSheet.Name) = "ТОВАР" Or UCase(ActiveSheet.Name) = "ТОВАР 2" Then
     Unload frmSearch
     FormShow
  Else
     Unload frmSearch
 End If

End Sub
...
Рейтинг: 0 / 0
15.09.2010, 14:41
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848070
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Все работает уже, подошло, спасибо)
...
Рейтинг: 0 / 0
15.09.2010, 15:22
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848094
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Мне If ActiveSheet.Name = "ТОВАР" Or ActiveSheet.Name = "ТОВАР 2" Then надо было написать, спасибо еще раз.
...
Рейтинг: 0 / 0
15.09.2010, 15:27
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848164
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Djon PlayerХотя наверно правильнее так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 On Error Resume Next
 
 If UCase(ActiveSheet.Name) = "ТОВАР" Or UCase(ActiveSheet.Name) = "ТОВАР 2" Then
     Unload frmSearch
     FormShow
  Else
     Unload frmSearch
 End If

End Sub


решило проблему, очищает форму как я хотел но не активирует ее. То есть при вводе нового кода все равно придется щелкать форму чтобы появился курсор.
...
Рейтинг: 0 / 0
15.09.2010, 15:42
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848426
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
king_k[quot Djon Player]решило проблему, очищает форму как я хотел но не активирует ее. То есть при вводе нового кода все равно придется щелкать форму чтобы появился курсор.Чуть чуть поподробнее,не совсем понял, что имеется ввиду.
...
Рейтинг: 0 / 0
15.09.2010, 16:40
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848504
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Djon Playerking_k[quot Djon Player]решило проблему, очищает форму как я хотел но не активирует ее. То есть при вводе нового кода все равно придется щелкать форму чтобы появился курсор.Чуть чуть поподробнее,не совсем понял, что имеется ввиду.

Например я изменил данные в любой ячейке нажал "ентер". Чтобы после нажатия "ентер" актвировалась форма, мигал курсор.
...
Рейтинг: 0 / 0
15.09.2010, 16:58
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848525
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
king_kНапример я изменил данные в любой ячейке нажал "ентер". Чтобы после нажатия "ентер" актвировалась форма, мигал курсор.Т.е. имеется ввиду, что нужно, чтобы при любом изменении значений в какой-либо ячейке Excel, сразу после нажатия кнопки Enter, чтобы курсор переходил в форму поиcка?
При этом надо, чтобы ещё и поле в форме поиска очищалось?
...
Рейтинг: 0 / 0
15.09.2010, 17:03
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848565
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Djon Playerking_kНапример я изменил данные в любой ячейке нажал "ентер". Чтобы после нажатия "ентер" актвировалась форма, мигал курсор.Т.е. имеется ввиду, что нужно, чтобы при любом изменении значений в какой-либо ячейке Excel, сразу после нажатия кнопки Enter, чтобы курсор переходил в форму поиcка?
При этом надо, чтобы ещё и поле в форме поиска очищалось?

Да, оно уже очищается но не активируется.
...
Рейтинг: 0 / 0
15.09.2010, 17:11
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848570
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Поидее надо в объекты Товар и Товар 2 поместить процедуры вида
Код: plaintext
1.
2.
Private Sub Worksheet_Change(ByVal Target As Range)
 FormShow
End Sub

А в самой процедуре FormShow сделать так, чтобы TextBox1 стал активным.
Давно формами не занимался, поэтому забыл уже некоторые вещи, поэтому говорю приблизительно.
...
Рейтинг: 0 / 0
15.09.2010, 17:13
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36848965
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
textBox1.Focus()
показывает курсор но у меня не получается
...
Рейтинг: 0 / 0
15.09.2010, 19:59
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36849103
king_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
king_k
Гость
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

не хочет работать(
...
Рейтинг: 0 / 0
15.09.2010, 22:13
| Ответить | Цитировать | Написать  
форма перехода на нужную строку
    #36849422
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Для начала вопрос к гуру VB-VBA

Есть к примеру событие TextBox_Change

Можно ли сделать так, чтобы выполнить команду присвоения, к примеру TextBox.Value=1, но чтобы при этом событие TextBox_Change не выполнялось.
Т.е. что то наподобие Application.EnableEvents = False для событий в Excel.
Без этой фишки на ум лишь приходит использование переменных и в зависимости от них обрабатывать событие, либо нет. А надо, чтобы событие в принципе не запускалось, пока это не потребуется.
...
Рейтинг: 0 / 0
16.09.2010, 10:05
| Ответить | Цитировать | Написать  
25 сообщений из 37, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / форма перехода на нужную строку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36848525&tid=2177657]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 189ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 239ms
total:  498ms
созд. / загр.: 498ms
x
x
Закрыть


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