Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20094 / 76732 ←次へ | 前へ→

【62061】Re:セルの選択範囲の取得
お礼  亜矢  - 09/6/19(金) 6:29 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>たとえば
>>B3:B8 と B20:B35のセルを選択した場合は
>>行Noとしては3と8 次ぎに20と35を取得したい
>
>どのように出力したいのかよくわかりませんが、以下のような感じのことがしたい
>のでしょうか?
>
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean)
> Dim myrng As Range
> Dim a As Range
> Dim i As Long
> 
> If TypeName(Selection) = "Range" Then
>  Set myrng = Selection
>  ReDim v(1 To myrng.Areas.Count * 2)
>  For i = 1 To myrng.Areas.Count
>   With myrng.Areas(i)
>    v(i * 2 - 1) = .Rows(1).Row
>    v(i * 2) = .Rows(.Rows.Count).Row
>   End With
>  Next
>  MsgBox myrng.Address & vbCrLf & Join(v, ",")
> End If
>End Sub
ありがとうございました。解決しました。
今後もよろしくお願いします。
73 hits

【62057】セルの選択範囲の取得 亜矢 09/6/19(金) 5:21 質問
【62058】Re:セルの選択範囲の取得 かみちゃん 09/6/19(金) 5:32 発言
【62059】Re:セルの選択範囲の取得 亜矢 09/6/19(金) 5:51 質問
【62060】Re:セルの選択範囲の取得 かみちゃん 09/6/19(金) 6:10 発言
【62061】Re:セルの選択範囲の取得 亜矢 09/6/19(金) 6:29 お礼

20094 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free