thrasher |
Дата: Понедельник, 05.08.2013, 12:10 |
Сообщение № 1 |
|
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
Всем доброго времени суток. Возник вопрос как упростить данный кусок кода
ActiveSheet.Range("$A$3:$E$60000").AutoFilter Field:=3, Criteria1:=Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30")Operator:=xlFilterValues
чтобы получилось что то типа
ActiveSheet.Range("$A$3:$E$60000").AutoFilter Field:=3, Criteria1:=Array(1:1000)Operator:=xlFilterValues
Заранее спасибо.
Всем доброго времени суток. Возник вопрос как упростить данный кусок кода
ActiveSheet.Range("$A$3:$E$60000").AutoFilter Field:=3, Criteria1:=Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30")Operator:=xlFilterValues
чтобы получилось что то типа
ActiveSheet.Range("$A$3:$E$60000").AutoFilter Field:=3, Criteria1:=Array(1:1000)Operator:=xlFilterValues
Заранее спасибо.thrasher
|
|
| Ответить
|
_Boroda_ |
Дата: Понедельник, 05.08.2013, 12:14 |
Сообщение № 2 |
|
Группа: Админы
Ранг: Местный житель
Сообщений: 16736
Репутация:
6534
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS | |
[vba]Код ActiveSheet.Range("$A$1:$A$60000").AutoFilter Field:=3, Criteria1:=">=1", _ Operator:=xlAnd, Criteria2:="<=1000" [/vba]
[vba]Код ActiveSheet.Range("$A$1:$A$60000").AutoFilter Field:=3, Criteria1:=">=1", _ Operator:=xlAnd, Criteria2:="<=1000" [/vba]_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
|
|
| Ответить
|
thrasher |
Дата: Понедельник, 05.08.2013, 12:19 |
Сообщение № 3 |
|
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
Большое спасибо
|
|
| Ответить
|