http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FAdvancedFilter
VBA/Excel/Access/Word/Excel/AdvancedFilter - История изменений
2026-04-07T06:14:31Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/AdvancedFilter&diff=1640&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/AdvancedFilter&diff=1641&oldid=prev
Admin: 1 версия
2010-05-26T12:47:39Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==AdvancedFilter Action:=xlFilterCopy==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub AllColumnsOneCustomer()<br />
Dim IRange As range<br />
Dim ORange As range<br />
Dim CRange As range<br />
Set CRange = cells(1, 1).resize(2, 1)<br />
Set ORange = cells(1, 3)<br />
Set IRange = range("A1").resize(FinalRow, 1)<br />
IRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=CRange, CopyToRange:=ORange<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Advanced Filter Demo==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub CommandButton1_Click()<br />
Dim rngData As Range<br />
Dim rngCriteria As Range<br />
Dim rngExtract As Range<br />
Set rngData = Workbooks("DataList5.xlsm").Worksheets("Sales").Range("Database")<br />
Set rngCriteria = ThisWorkbook.Worksheets("Sales").Range("Criteria")<br />
Set rngExtract = ThisWorkbook.Worksheets("Sales").Range("Extract")<br />
"Extract data with Advanced Filter<br />
rngData.AdvancedFilter Action:=xlFilterCopy, _<br />
CriteriaRange:=rngCriteria, _<br />
CopyToRange:=rngExtract, _<br />
Unique:=False<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Do the Advanced Filter==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub UniqueCustomerRedux()<br />
Range("J1").Value = Range("D1").Value<br />
Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True<br />
End Sub<br />
</source></div>
Admin