|
こんにちは。かみちゃん です。
>たとえば
>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
|
|