https://wiki.harlamenkov.ru/index.php?action=history&feed=atom&title=RU%2Fkb%2F00000675 RU/kb/00000675 - Revision history 2026-11-11T19:28:13Z Revision history for this page on the wiki MediaWiki 1.33.0 https://wiki.harlamenkov.ru/index.php?title=RU/kb/00000675&diff=19187&oldid=prev Sancho at 12:07, 11 January 2012 2012-01-11T12:07:32Z <p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="en"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">Revision as of 12:07, 11 January 2012</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l11" >Line 11:</td> <td colspan="2" class="diff-lineno">Line 11:</td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Sub SimpleSheetFilter()</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Sub SimpleSheetFilter()</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Dim oSheet ' Лист, на котором применен фильтр.</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Dim oSheet ' Лист, на котором применен фильтр.</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> Dim oRange ' диапазон, который будет отфильтрован.</del></div></td><td colspan="2"> </td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Dim oFilterDesc ' Критерии фильтра.</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Dim oFilterDesc ' Критерии фильтра.</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Dim oFields(0) As New com.sun.star.sheet.TableFilterField</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Dim oFields(0) As New com.sun.star.sheet.TableFilterField</div></td></tr> </table> Sancho https://wiki.harlamenkov.ru/index.php?title=RU/kb/00000675&diff=19186&oldid=prev Sancho: Основной текст 2012-01-11T10:46:18Z <p>Основной текст</p> <p><b>New page</b></p><div>&lt;section begin=title /&gt;&lt;noinclude&gt;{{DISPLAYTITLE:База Знаний: Программирование. StarBASIC. &lt;/noinclude&gt;{{IopC|1}}. Фильтрация столбца&lt;noinclude&gt;}}&lt;/noinclude&gt;&lt;section end=title /&gt;<br /> {{BreadCrumbL10n|RU/kb/common/programming/macros}}<br /> __NOTOC__<br /> <br /> {{RUfromforum|21697}}<br /> &lt;section begin=toc /&gt;<br /> Фильтрацию столбца таблицы можно выполнить с помощью следующего макроса:<br /> <br /> <br /> &lt;source lang=&quot;oobas&quot;&gt;<br /> Sub SimpleSheetFilter()<br /> Dim oSheet ' Лист, на котором применен фильтр.<br /> Dim oRange ' диапазон, который будет отфильтрован.<br /> Dim oFilterDesc ' Критерии фильтра.<br /> Dim oFields(0) As New com.sun.star.sheet.TableFilterField<br /> <br /> oSheet = ThisComponent.getSheets().getByIndex(0)<br /> <br /> oFilterDesc = oSheet.createFilterDescriptor(True)<br /> <br /> With oFields(0)<br /> .Field = 5 ' Filter column F.<br /> .IsNumeric = True ' Используется числовое значение<br /> .Operator = com.sun.star.sheet.FilterOperator.GREATER<br /> .NumericValue = 4 ' Значения больше 4<br /> End With<br /> oFilterDesc.setFilterFields(oFields())<br /> oSheet.filter(oFilterDesc)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> Загрузить файл с примером: [[File:Filtr macro ru.ods]].<br /> &lt;section end=toc /&gt;<br /> <br /> &lt;section begin=signature/&gt;<br /> {{SignYear|Sancho||2011}}<br /> &lt;section end=signature/&gt;<br /> <br /> {{RUkbMacrosBottom}}</div> Sancho