選択範囲を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

コメント

このブログの人気の投稿

投稿時間:2021-06-17 22:08:45 RSSフィード2021-06-17 22:00 分まとめ(2089件)

投稿時間:2021-06-20 02:06:12 RSSフィード2021-06-20 02:00 分まとめ(3871件)

投稿時間:2021-06-17 05:05:34 RSSフィード2021-06-17 05:00 分まとめ(1274件)