https://www.typea.info/tips_/index.php?action=history&feed=atom&title=Excel_VBA_%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB%E3%82%BF%E3%82%92%E3%82%B7%E3%83%BC%E3%83%88%E9%96%93%E3%81%A7%E5%90%8C%E6%9C%9F Excel VBA オートフィルタをシート間で同期 - 版の履歴 2026-04-23T11:11:29Z このウィキのこのページに関する変更履歴 MediaWiki 1.34.0 https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB%E3%82%BF%E3%82%92%E3%82%B7%E3%83%BC%E3%83%88%E9%96%93%E3%81%A7%E5%90%8C%E6%9C%9F&diff=5996&oldid=prev 2020年2月16日 (日) 04:25にPirotoによる 2020-02-16T04:25:14Z <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="ja"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 古い版</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2020年2月16日 (日) 04:25時点における版</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >1行目:</td> <td colspan="2" class="diff-lineno">1行目:</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>==Excel VBA オートフィルタをシート間で同期==</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>==<ins class="diffchange diffchange-inline">[[</ins>Excel VBA オートフィルタをシート間で同期<ins class="diffchange diffchange-inline">]]</ins>==</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>[[Excel]] | [[Excel VBA]] |  </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>[[Excel]] | [[Excel VBA]] |  </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>====オートフィルタの状態をシート間で同期させる====</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>====オートフィルタの状態をシート間で同期させる====</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>  Sub SyncAutoFilter()</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 SyncAutoFilter()</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>     Dim srcSht      As Excel.Worksheet  '同期元のシート</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     Dim srcSht      As <ins class="diffchange diffchange-inline">[[</ins>Excel<ins class="diffchange diffchange-inline">]]</ins>.Worksheet  '同期元のシート</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>     Dim dstSht      As Excel.Worksheet  '同期元のセル</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     Dim dstSht      As <ins class="diffchange diffchange-inline">[[</ins>Excel<ins class="diffchange diffchange-inline">]]</ins>.Worksheet  '同期元のセル</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>     Dim srcCell    As Excel.Range      '同期元のシート</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     Dim srcCell    As <ins class="diffchange diffchange-inline">[[</ins>Excel<ins class="diffchange diffchange-inline">]]</ins>.Range      '同期元のシート</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>     Dim dstCell    As Excel.Range      '同期先のセル</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     Dim dstCell    As <ins class="diffchange diffchange-inline">[[</ins>Excel<ins class="diffchange diffchange-inline">]]</ins>.Range      '同期先のセル</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>      </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>      </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>     '対象セルの位置</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>     '対象セルの位置</div></td></tr> <tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l37" >37行目:</td> <td colspan="2" class="diff-lineno">37行目:</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>          </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>          </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>         Case xlAnd, xlOr</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>         Case xlAnd, xlOr</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 class="diffchange diffchange-inline">AND、OR</del></div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>         '条件指定 <ins class="diffchange diffchange-inline">AND、O[[R]]</ins></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>             dstCell.AutoFilter Field:=fld, _</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>             dstCell.AutoFilter Field:=fld, _</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>                                   Criteria1:=srcSht.AutoFilter.Filters(idx).Criteria1, _</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>                                   Criteria1:=srcSht.AutoFilter.Filters(idx).Criteria1, _</div></td></tr> </table> Piroto https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB%E3%82%BF%E3%82%92%E3%82%B7%E3%83%BC%E3%83%88%E9%96%93%E3%81%A7%E5%90%8C%E6%9C%9F&diff=4896&oldid=prev 2020年2月15日 (土) 08:35にPirotoによる 2020-02-15T08:35:24Z <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="ja"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 古い版</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2020年2月15日 (土) 08:35時点における版</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >1行目:</td> <td colspan="2" class="diff-lineno">1行目:</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>==Excel VBA オートフィルタをシート間で同期==</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>==Excel VBA オートフィルタをシート間で同期==</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>[[Excel]][[Excel VBA]]</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[[Excel]] <ins class="diffchange diffchange-inline">| </ins>[[Excel VBA]] <ins class="diffchange diffchange-inline">| </ins></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>====オートフィルタの状態をシート間で同期させる====</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>====オートフィルタの状態をシート間で同期させる====</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>  Sub SyncAutoFilter()</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 SyncAutoFilter()</div></td></tr> </table> Piroto https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB%E3%82%BF%E3%82%92%E3%82%B7%E3%83%BC%E3%83%88%E9%96%93%E3%81%A7%E5%90%8C%E6%9C%9F&diff=4052&oldid=prev 2020年2月15日 (土) 08:19にPirotoによる 2020-02-15T08:19:30Z <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="ja"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 古い版</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2020年2月15日 (土) 08:19時点における版</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >1行目:</td> <td colspan="2" class="diff-lineno">1行目:</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>==Excel VBA オートフィルタをシート間で同期==</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>==Excel VBA オートフィルタをシート間で同期==</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>[[Excel][Excel VBA]]</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[[Excel]<ins class="diffchange diffchange-inline">][</ins>[Excel VBA]]</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>====オートフィルタの状態をシート間で同期させる====</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>====オートフィルタの状態をシート間で同期させる====</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>  Sub SyncAutoFilter()</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 SyncAutoFilter()</div></td></tr> </table> Piroto https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB%E3%82%BF%E3%82%92%E3%82%B7%E3%83%BC%E3%83%88%E9%96%93%E3%81%A7%E5%90%8C%E6%9C%9F&diff=3183&oldid=prev 2020年2月15日 (土) 08:02にPirotoによる 2020-02-15T08:02:18Z <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="ja"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 古い版</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2020年2月15日 (土) 08:02時点における版</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >1行目:</td> <td colspan="2" class="diff-lineno">1行目:</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>==Excel VBA オートフィルタをシート間で同期==</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>==Excel VBA オートフィルタをシート間で同期==</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>[Excel][Excel VBA]</div></td><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: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline">[</ins>[Excel][Excel VBA<ins class="diffchange diffchange-inline">]</ins>]</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>====オートフィルタの状態をシート間で同期させる====</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>====オートフィルタの状態をシート間で同期させる====</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>  Sub SyncAutoFilter()</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 SyncAutoFilter()</div></td></tr> </table> Piroto https://www.typea.info/tips_/index.php?title=Excel_VBA_%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB%E3%82%BF%E3%82%92%E3%82%B7%E3%83%BC%E3%83%88%E9%96%93%E3%81%A7%E5%90%8C%E6%9C%9F&diff=1899&oldid=prev Piroto: ページの作成:「==Excel VBA オートフィルタをシート間で同期== [Excel][Excel VBA] ====オートフィルタの状態をシート間で同期させる==== Sub SyncAutoFil…」 2020-02-15T07:32:01Z <p>ページの作成:「==Excel VBA オートフィルタをシート間で同期== [Excel][Excel VBA] ====オートフィルタの状態をシート間で同期させる==== Sub SyncAutoFil…」</p> <p><b>新規ページ</b></p><div>==Excel VBA オートフィルタをシート間で同期==<br /> [Excel][Excel VBA]<br /> ====オートフィルタの状態をシート間で同期させる====<br /> Sub SyncAutoFilter()<br /> Dim srcSht As Excel.Worksheet '同期元のシート<br /> Dim dstSht As Excel.Worksheet '同期元のセル<br /> Dim srcCell As Excel.Range '同期元のシート<br /> Dim dstCell As Excel.Range '同期先のセル<br /> <br /> '対象セルの位置<br /> Dim r As Integer<br /> Dim c As Integer<br /> <br /> r = 2<br /> c = 1<br /> <br /> '同期元情報を変数にセット<br /> Set srcSht = Application.Sheets(&quot;Sheet1&quot;)<br /> Set srcCell = srcSht.Cells(r, c)<br /> '同期先情報を変数にセット<br /> Set dstSht = Application.Sheets(&quot;Sheet2&quot;)<br /> Set dstCell = dstSht.Cells(r, c)<br /> <br /> '同期処理<br /> Dim idx As Integer 'AutoFilter index<br /> Dim fld As Integer 'フィルタの対象となるフィールド番号(リストの左側から数えた番号)<br /> <br /> idx = 1<br /> fld = 1<br /> <br /> If srcSht.AutoFilter.Filters(idx).On Then<br /> Select Case srcSht.AutoFilter.Filters(idx).Operator<br /> Case 0<br /> '条件指定なし<br /> dstCell.AutoFilter Field:=fld, _<br /> Criteria1:=srcSht.AutoFilter.Filters(idx).Criteria1<br /> <br /> Case xlAnd, xlOr<br /> '条件指定 AND、OR<br /> dstCell.AutoFilter Field:=fld, _<br /> Criteria1:=srcSht.AutoFilter.Filters(idx).Criteria1, _<br /> Operator:=srcSht.AutoFilter.Filters(idx).Operator, _<br /> Criteria2:=srcSht.AutoFilter.Filters(idx).Criteria2<br /> <br /> Case xlTop10Items, xlBottom10Items, xlTop10Percent, xlBottom10Percent<br /> '条件指定 上位、下位の件数、％<br /> dstCell.AutoFilter Field:=fld, _<br /> Operator:=srcSht.AutoFilter.Filters(idx).Operator<br /> Case Else<br /> 'NOP<br /> End Select<br /> Else<br /> ' フィルタの解除<br /> Call dstCell.AutoFilter(fld)<br /> End If<br /> <br /> End Sub</div> Piroto