目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
31 / 112 ツリー ←次へ | 前へ→

【78】あるセル範囲の左上のセルと右下のセルアドレスの取得 Jaka 04/10/19(火) 11:18 Excel[未読]

【240】個々に選択されたセルの全体範囲 Jaka 08/7/19(土) 16:15 Excel[未読]

【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

尚、結合セルがあると選択したセルが自動で拡張され、
表示されたセル範囲と違う場合があります。
結合セルは無しと言う事でお願いします。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
31 / 112 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free