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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помощь в написании макроса, поиск и отбор нужных ячеек 
:(
    Опции темы
Guest
Дата 14.11.2004, 15:51 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
На этом форуме мне тоже коды писали , потом ты кому нибудь напишешь.Вот это будет самое большое спасибо smile .
  Вверх
Staruha
Дата 14.11.2004, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Этоя была я.Забываю проверить регистрацию


--------------------
Возмездие настигнет
PM MAIL   Вверх
Staruha
Дата 14.11.2004, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Ты писал что у тебя несколько видов Валюты. Этот код найдет любую ,которую ты введешь в ячейку I1.
Код

Private Sub CommandButton1_Click()
Dim a As Integer
a = Len(Range("I1").Value)
Dim c As Integer
Dim d As Integer

Лист2.Columns("A:B").ClearContents 'очищаем Лист 2
d = Лист1.UsedRange.Rows.Count

For rwIndex = 1 To d
c = Len(Range("A" & rwIndex).Text) - a 'кол.символов без валюты

Range("B" & rwIndex).Value = Left((Range("A" & rwIndex).Text), c)
Range("C" & rwIndex).Value = Mid((Range("A" & rwIndex).Text), (Len(Range("A" & rwIndex).Text) - a + 1), a)
'отсекаем денюшку
If Range("C" & rwIndex).Value = Range("I1").Value Then
'если ячейка в C равна значению в ячейке I1
Лист2.Range("A2", "B2").Value = Range("A" & rwIndex, "B" & rwIndex).Value
Лист2.Rows("2").Insert Shift:=xlDown
'Лист2.Columns("B").Hidden = True 'Потом скроешь столбец

End If
Next
End Sub

Можно еще фильтровать список на месте.Смотри в FAQе для VB скрытие строк.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Cashey
Дата 16.11.2004, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
Перенесено из MS Office, по просьбе cardinal


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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