選択範囲をRangeとして取得します。 Ctrlキーを押しながら選択すると複数の選択範囲が指定可能ですが、その場合はSelectionでは全ての選択範囲が取得出来ません。 Selection.Areasを利用して全ての選択範囲を結合したRangeを取得します。 ' ' 選択範囲をRangeとして取得する。（複数選択範囲対応） ' Private Function GetSelectionRange() As Range Dim allRange As Range Dim r As Range For Each r In Selection.Areas If allRange Is Nothin…

09.05.2017 10:35
=======================================

選択範囲をRangeとして取得します。 Ctrlキーを押しながら選択すると複数の選択範囲が指定可能ですが、その場合はSelectionでは全ての選択範囲が取得出来ません。 Selection.Areasを利用して全ての選択範囲を結合したRangeを取得します。 ' ' 選択範囲をRangeとして取得する。（複数選択範囲対応） ' Private Function GetSelectionRange() As Range Dim allRange As Range Dim r As Range For Each r In Selection.Areas If allRange Is Nothin…

http://ift.tt/1abnmbU
May 09, 2017 at 05:35PM