|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.07.2005, 21:33:25
|
|||
|---|---|---|---|
|
|||
Макрос Ecxel |
|||
|
#18+
Есть ли у кого-то макрос поиска и сравнения в таблице на повторение данных ? Пришлите пожалуйста. Огромное спасибо!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.07.2005, 07:04:19
|
|||
|---|---|---|---|
Макрос Ecxel |
|||
|
#18+
Я так понимаю, самый простой макрос тут - это автофильтр Если он не пожходит, тогда полное описание задачи в студию ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.07.2005, 12:28:23
|
|||
|---|---|---|---|
Макрос Ecxel |
|||
|
#18+
Если поиск на повторение в столбце B от B5 до B1000 (например) Private Sub CommandButton1_Click() stroka=B5 Dim r As Range, g As Range prodolzenie: Set r = ActiveSheet.Range(stroka & ":B1000") Set g = r.Find(What:="искомое значение или предложение") stroka=g.row ActiveSheet.Range("B" & g.Row).Activate yesno=MsgBox( " Ищем дальше ?", 1) If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend goto prodolzenie mend: End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.07.2005, 12:30:38
|
|||
|---|---|---|---|
Макрос Ecxel |
|||
|
#18+
talgatЕсли поиск на повторение в столбце B от B5 до B1000 (например) Private Sub CommandButton1_Click() stroka=B5 Dim r As Range, g As Range prodolzenie: Set r = ActiveSheet.Range(stroka & ":B1000") Set g = r.Find(What:="искомое значение или предложение") stroka=g.row ActiveSheet.Range("B" & g.Row).Activate yesno=MsgBox( " Ищем дальше ?", 1) If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend goto prodolzenie mend: End Sub Опечатка stroka="5" Что то подобное у меня в одной проге работает ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.07.2005, 12:39:43
|
|||
|---|---|---|---|
Макрос Ecxel |
|||
|
#18+
olga2005Есть ли у кого-то макрос поиска и сравнения в таблице на повторение данных ? Пришлите пожалуйста. Огромное спасибо!!! Private Sub CommandButton1_Click() stroka = "B5" Dim r As Range, g As Range prodolzenie: Set r = ActiveSheet.Range(stroka & ":B1000") Set g = r.Find(What:="65") stroka = "B" & g.Row ActiveSheet.Range("B" & g.Row).Activate yesno = MsgBox(" Ищем дальше ?", 1) If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend GoTo prodolzenie mend: End Sub Это уже проверенная версия. Работает. А что искать (искомое) наверное надо брать с текущей строки. poisk=range("B" & activecell.row) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.07.2005, 12:50:48
|
|||
|---|---|---|---|
Макрос Ecxel |
|||
|
#18+
А тут искомое значение на повторение берется с текущей строки столбца В Private Sub CommandButton1_Click() stroka = "B5" poisk = ActiveSheet.Range("B" & ActiveCell.Row) Dim r As Range, g As Range prodolzenie: Set r = ActiveSheet.Range(stroka & ":B1000") Set g = r.Find(What:=poisk) stroka = "B" & g.Row ActiveSheet.Range("B" & g.Row).Activate yesno = MsgBox(" Ищем дальше ?", 1) If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend GoTo prodolzenie mend: End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&tablet=1&tid=2185902]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
43ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
54ms |
get tp. blocked users: |
2ms |
| others: | 201ms |
| total: | 340ms |
| 0 / 0 |
