目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
53 / 277 ←次へ　｜　前へ→
【240】個々に選択されたセルの全体範囲
Excel  Jaka  - 08/7/19(土) 16:15 -
引用なし
パスワード
   Sub 個々に選択されたセルの全体範囲()
　 Dim Rgst As String, i As Long
　 Rgst = Selection.Areas(1).Address(0, 0)
　 For i = 2 To Selection.Areas.Count
　　　 Rgst = Rgst & ":" & Selection.Areas(i).Address(0, 0)
　　　 Rgst = Range(Rgst).Address(0, 0)
　 Next
　 Range(Rgst).Select
　 MsgBox Rgst
End Sub

尚、結合セルがあると選択したセルが自動で拡張され、
表示されたセル範囲と違う場合があります。
結合セルは無しと言う事でお願いします。
1,621 hits
【78】あるセル範囲の左上のセルと右下のセルアドレスの取得 Jaka 04/10/19(火) 11:18 Excel[未読]
【198】ちょっと修正。 Jaka 07/6/25(月) 15:29 Excel[未読]
【240】個々に選択されたセルの全体範囲 Jaka 08/7/19(土) 16:15 Excel[未読]≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
53 / 277 ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free