Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VB для Excel, Сам незнаю как сделать 
:(
    Опции темы
iNot
Дата 30.9.2003, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.9.2003

Репутация: нет
Всего: нет
Цитата(Alles @ 30.9.2003, 05:47)
smile.gif) Ну и апять касяк ... smile.gif)) ну я думаю ты все понял и так smile.gif) Парюсь я в этих тегах..... будь они неладны .. smile.gif))

Я попробую, я просто InStr первый раз вижу... Хедпу там почитаю, сеня вечером буду думать....
PM MAIL   Вверх
Alles
Дата 5.10.2003, 05:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2
Как ты там ? есть результаты ?? или опять не работает ?
PM MAIL ICQ   Вверх
iNot
Дата 5.10.2003, 08:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.9.2003

Репутация: нет
Всего: нет
Цитата(Alles @ 5.10.2003, 05:17)
Как ты там ? есть результаты ?? или опять не работает ?

оооо все работает. Я немнго его усовершенствовал, а то правда долго искалось(цисла в одной колонке были, я просто for 1 убрал ). Форму сделал.. Сейчас я просто пол недели не работаю, поэтому воросов пока нет....
PM MAIL   Вверх
Alles
Дата 5.10.2003, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2
Тебе сам код понятен? Может объяснить поэтапно ?
Для динамики поиска в начало цикла :
For number = 1 To Sheets.Count вместо 1 лучше воткнуть значения поля. Поставь на форму дополнительное поле (TextBox) и сливай в цикл номер листа с которого нужно начинать поиск, получится:
For number = TextBox4.Text To Sheets.Count

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

Код

Private Sub UserForm_Activate() ' Заполнение списка именами листов
For n = 1 To Sheets.Count
Sheets(n).Select
ListBox1.AddItem Sheets(n).Name
Next
Sheets(1).Select
End Sub

Private Sub ListBox1_Click()
Dim fff  As String
'Sheets(ListBox1.ListIndex + 1).Select ' 'Установка стартового листа по идексу
fff = ListBox1
Sheets(fff).Select 'Установка стартового листа по имени
End Sub

Private Sub CommandButton1_Click()
Dim number As Integer, rrr   As Integer
Dim ss As String, sa As String
ss = TextBox1    'InputBox(sa)
rrr = ActiveSheet.Index
'Application.ScreenUpdating = False
For number = rrr To Sheets.Count
Sheets(number).Select
 For columpsearsh = 1 To Sheets(number).Cells.SpecialCells(xlLastCell).Column
      For rowsearsh = 1 To Sheets(number).Cells.SpecialCells(xlLastCell).Row
            Cells(rowsearsh, columpsearsh).Select
If ActiveCell = ss Then MsgBox "good": Cells(rowsearsh, columpsearsh + 1) = TextBox2.Text _
: Cells(rowsearsh, columpsearsh + 2) = TextBox3.Text _
: Cells(rowsearsh, columpsearsh + 1).Select _
: If CheckBox1.Value = True Then Exit For Else Exit Sub ' если CheckBox1 активный тогда
' ищем все записи иначе выход на первой удачной        
      Next
 If ActiveCell = ss Then Exit For

Next
If ActiveCell = ss Then Exit For

Next
'Application.ScreenUpdating = True
End Sub
PM MAIL ICQ   Вверх
iNot
Дата 8.10.2003, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.9.2003

Репутация: нет
Всего: нет
Цитата(Alles @ 5.10.2003, 21:07)
Тебе сам код понятен? Может объяснить поэтапно ?
Для динамики поиска в начало цикла :
For number = 1 To Sheets.Count вместо 1 лучше воткнуть значения поля. Поставь на форму дополнительное поле (TextBox) и сливай в цикл номер листа с которого нужно начинать поиск, получится:
For number = TextBox4.Text To Sheets.Count


Мне в общем все понятно. Я там немного переделал, форму сделал, и поиск зъузил, а то долго искалось.
Все отлично сейчас. Есть еще пара идей... Может мы в Асю передем, или в мыло? =))
PM MAIL   Вверх
Alles
Дата 8.10.2003, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2
Нет проблем !!! стучи в Асю 45033230
PM MAIL ICQ   Вверх
cardinal
Дата 8.10.2003, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Alles, ты довольно полезные вещи пишешь на мой взгляд, но чтобы их для других поместить в FAQ я должен как-то назвать тему. Ты мне мыль, пожалуйста, если написал что-то стоящее и заголовок какой нибудь напиши типа:
"Как ... ?", ну вообщем как в FAQ`e, а я засуну это в FAQ.
Цитата
Может мы в Асю передем, или в мыло? =))

Лучше начните новую тему под каким нибудь названием того, что вы в данный момент обсуждаете ("Как подвесить компер при помощи Excel?" smile.gif например), тогда и другие смогут помозговать над вашими проблемами.


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Alles
Дата 9.10.2003, 01:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2
cardinal
smile.gif) .......... Ок
PM MAIL ICQ   Вверх
iNot
Дата 9.10.2003, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.9.2003

Репутация: нет
Всего: нет
Цитата(cardinal @ 8.10.2003, 22:38)
Alles, ты довольно полезные вещи пишешь на мой взгляд, но чтобы их для других поместить в FAQ я должен как-то назвать тему. Ты мне мыль, пожалуйста, если написал что-то стоящее и заголовок какой нибудь напиши типа:
"Как ... ?", ну вообщем как в FAQ`e, а я засуну это в FAQ.
Лучше начните новую тему под каким нибудь названием того, что вы в данный момент обсуждаете ("Как подвесить компер при помощи Excel?" smile.gif например), тогда и другие смогут помозговать над вашими проблемами.

Фишка не в том , что мне жалко, что кто-то это еще увидит, а в том, что так прсто быстрее... =)
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0805 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.