ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Люди, как на vba в экселе сделать следующее:
10 сообщений из 10, страница 1 из 1
Люди, как на vba в экселе сделать следующее:
    #32643436
mi9ck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mi9ck
Гость
Люди, как на vba в экселе сделать следующее:
Из первой ячейки взять данные, найти строку, где в какой-либо колонке есть совпадение, и скопировать данные из всей строки на новый лист, затем повторить, пока не закончатся совпадения?
А зачем все это нужно:
етсь таблица, в ней 1 ячейка - имя, 2 - фамилия, 3...9 - данные
нужно сделать поиск по имени, который будет автоматом вставлять остальные данные.

Пиплы, помогите, я уже чердаком тронулся по Гуглю лазить чтоб хоть что-то похожее найти... с процедурой поиска разобрался, а дальше туго. И начальство на голове сидит... :(
...
Рейтинг: 0 / 0
10.08.2004, 19:57
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32643778
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
raur
Участник
не совсем понятно...
что конкретно не получается? скопировать данные? добавить лист? ЧТО?
...
Рейтинг: 0 / 0
11.08.2004, 09:17
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32643894
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
1. А фильтром пользоваться не проше?
2. А сводные таблицы не пробовал? Кажется в них реализовано то, о чём ты говориш.
3. В цикле перечисляешь все строки на своём листе, сравниваешь содержимое ячеек и при необходимости копируй. Не знаеш как сделать? Запиши макрос с копированием одной строки. Добавь цикл и сравнение.
...
Рейтинг: 0 / 0
11.08.2004, 10:20
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32646283
mi9ck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mi9ck
Гость
спасибо а ответ, но на фильтры забил, пытаюсь учить ВБА.

если никого сильно не затуднит, не могли бы мне уважаемые гуру подкинуть кусок кода с пояснениями, который будет выделять строку (а лучше все строки) в которых в какой-либо ячейке присутствует искомое значение.
...
Рейтинг: 0 / 0
12.08.2004, 12:16
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32646403
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
выделять строку (а лучше все строки)
как выделять? цветом, шрифтом, активировать как при клике мышкой?
...
Рейтинг: 0 / 0
12.08.2004, 12:49
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32646524
mi9ck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mi9ck
Гость
активиовать, и скопиовать содержимое..
и еще по ходу вопрос:
Worksheets(sSheetName).???
^^^^^^^ как задать считывание данных из активной ячейки и пеисвоить их переменной?

ЗЫ: не пинайте больно, пока в Вижуал Васике - чайник...
...
Рейтинг: 0 / 0
12.08.2004, 13:14
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32646947
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Код: plaintext
1.
Sub FindStr()    Dim mStr As String \'искомая строка    Dim mRowNum As Long \'номер сторки    Dim mRowCnt As Long \'число строк    Dim mCopNum As Long \'номер копии        mCopNum = 0    With ActiveWorkbook.Sheets("Лист1")    mStr = .Cells(1, 1).Value    mRowCnt = ActiveCell.SpecialCells(xlLastCell).Row    For mRowNum = 2 To mRowCnt        If .Cells(mRowNum, 1).Value = mStr Then            mCopNum = mCopNum + 1            Range(Cells(mRowNum, 1).Address & ":" & Cells(mRowNum, 2).Address).Copy            Worksheets("Лист2").Range(Cells(mCopNum, 1).Address).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _            :=False, Transpose:=False        End If    Next    End WithEnd Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
12.08.2004, 15:15
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32647472
mi9ck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mi9ck
Гость
"Спасибо, блин, большое" (с) Масяня.

и как сделать, чтоб макрос ломился не на "Лист2", а обраывал открытый (активный) лист?

ЗЫ: что посоветуешь почитать по этим фукциям?
...
Рейтинг: 0 / 0
12.08.2004, 17:46
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32647565
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
и как сделать, чтоб макрос ломился не на "Лист2", а обраывал открытый (активный) лист?
ты наверное не понял: данные копируются с листа1 на лист2, так что чтобы обрабатывался активный лист надо указать вместо Sheets("Лист1") --> ActiveSheet
что посоветуешь почитать по этим фукциям?
в справке Excel есть раздел Microsoft Excell Visyal Basic Reference
повторяю последний раз. Если не знаешь как что либо запрограмировать в excel --> Меню: Сервис/Марос/Начать запись
После чего открыть полученный макрос и если встретил непонятное слово --> справка Excel
...
Рейтинг: 0 / 0
12.08.2004, 18:29
| Ответить | Цитировать | Написать  
Люди, как на vba в экселе сделать следующее:
    #32649126
dimitriy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimitriy
Гость
mi9ck"Спасибо, блин, большое" (с) Масяня.

и как сделать, чтоб макрос ломился не на "Лист2", а обраывал открытый (активный) лист?

ЗЫ: что посоветуешь почитать по этим фукциям?

http://www.fido.nnov.ru/win/Excel/FAQ.html
...
Рейтинг: 0 / 0
13.08.2004, 16:17
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Люди, как на vba в экселе сделать следующее:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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