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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как организовать воиск в Ёкселе через VBA с формир 
:(
    Опции темы
Zmitter
  Дата 28.7.2003, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Сабж... списка.
Только искать надо в содержимом ячеек (вводить в поле поиска не полностью, а часть слова), с последующим копированием на другой лист всей строки с этой ячейкой.
В принципе, все сделано, кроме операции копирования всей строки с необходимой ячейкой на другой лист, тк ВБА не хочет возвращать адрес ячейки для копирования строки.
Пользуюсь этим:
Цитата

With Sheets("Лист1").Range("a1:ba5000")
    Set c = .Find(s, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
              Selection.Address = firstAddress
            Set c = .FindNext©
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Может у кого есть идеи, как в ду-луп вставить копирование строки на другой лист. Пробовал activecell.row, он какую-то бороду возвращает.
PM MAIL   Вверх
Zmitter
Дата 29.7.2003, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Я так понимаю, что программистов здесь нет?
PM MAIL   Вверх
Wowa
Дата 29.7.2003, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290
Цитата
Я так понимаю, что программистов здесь нет?

По Visual Basic - не так много.
PM WWW   Вверх
hobotyara
Дата 15.8.2003, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Попробуй

ActiveCell.EntireRow.Copy
PM MAIL   Вверх
~FoX~
Дата 16.10.2003, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 10
Всего: 68
Private Sub CommandButton1_Click()
Dim x As Integer

Worksheets(1).Select
ActiveCell.EntireRow.Copy
x = ActiveCell.Row

Worksheets(2).Select
Cells(x, 1).Select
ActiveCell.EntireRow.PasteSpecial Operation:=xlPasteSpecialOperationNone

End Sub

На........и к стати я на ВБ мало пишу ))))


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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