|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>たとえば
>>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
ありがとうございました。解決しました。
今後もよろしくお願いします。
|
|