選択範囲を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
=======================================
http://ift.tt/1abnmbU
May 09, 2017 at 05:35PM
=======================================
http://ift.tt/1abnmbU
May 09, 2017 at 05:35PM
コメント
コメントを投稿