Твой софтовый форум > Software > Софт вопросы

Помогите настроить макрос

,

Помогите настроить макрос в Excel

Дата публикации: 14.12.2010 - 14:43
GenOM
Доброго времени всем.
Народ, может мне кто поможет.
Есть макрос

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*"
Вопрос: как сделать так чтобы имя игрока можно было менять из лога имен игроков. Либо как нибудь автоматизировать данный процесс? Либо, как вариант, применять для фильтра несколько (десятков) имен игроков.
Заранее спасибо за ответы
stepanyk
Ну самое простое в дописывании - можно в качестве критерия использовать ячейку вместо строки, например
=Лист1!$A$1
или
=СЦЕПИТЬ("*";Лист1!$A$1;"*")

Про VBA для начала можно глянуть тут:


Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке: Помогите настроить макрос
SoftoRooM © 2004-2024