day & night

Помогите настроить макрос, Помогите настроить макрос в Excel
Дата обновления: , перейти к новому сообщению
#1
GenOM



Бывалый
*

Группа: Пользователи
Сообщений: 42
Регистрация: 19.11.2007
Пользователь №: 611.457


Респектов: 1
-----X----


Предупреждений: 1


Доброго времени всем.
Народ, может мне кто поможет.
Есть макрос

Code

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+я
'
   Columns("A:A").Select
   Selection.AutoFilter
   ActiveSheet.Range("$A$1:$A$146507").AutoFilter Field:=1, Criteria1:= _
       "=*goingod*", Operator:=xlAnd
   Selection.Copy
   Sheets("Лист2").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.AutoFilter
   ActiveSheet.Range("$A$1:$A$902844").AutoFilter Field:=1, Criteria1:="=*mp*" _
       , Operator:=xlAnd
End Sub

Что он делает? Из лога (игровой сервер) извлекает строки с именем игрока, в данном случае "goingod". Все эти строки в котором упоминается игрок с ником "goingod" далее сохраняет результат в отдельную книгу и извлекает строки в которых он (игрок) использует оружие "=*mp*"
Вопрос: как сделать так чтобы имя игрока можно было менять из лога имен игроков. Либо как нибудь автоматизировать данный процесс? Либо, как вариант, применять для фильтра несколько (десятков) имен игроков.
Заранее спасибо за ответы
User is offline
Go topGo end
 

Ответов(1 - 1)
14.12.2010 - 14:43
#2
stepanyk



Грамотный
***

Группа: Пользователи
Сообщений: 232
Регистрация: 5.10.2006
Пользователь №: 241.996


Респектов: 55
-----X----


Предупреждений: 0


Ну самое простое в дописывании - можно в качестве критерия использовать ячейку вместо строки, например
=Лист1!$A$1
или
=СЦЕПИТЬ("*";Лист1!$A$1;"*")

Про VBA для начала можно глянуть тут:
User is offline
Go topGo end

Topic Options
Сейчас: 17.05.2024 - 10:01
Мобильная версия | Lite версия