|
▼kanabun さん:
>▼亜矢 さん:
>
>> 離れた行を何行か選択した時、その選択した行Noを
>> 取得する方法を教えて頂きたいと思います。選択行数は8行以内です
>
>「離れた行」というのは 「連続していない行」ということですか?
>
>どう使うか分からないので、とりあえず、
>行を選択して右クリックすると、 選択されている行番号を
>カンマ区切りでメッセージするプロシージャ。
>
>(シートモジュールに 書いてください)
>Private Sub Worksheet_BeforeRightClick( _
> ByVal Target As Range, Cancel As Boolean)
> Dim Gyo As Range
> Dim i As Long
> ReDim LiN(1 To Target.Areas.Count) 'Area数
>
> Cancel = True
> For Each Gyo In Target.Areas
> i = i + 1
> LiN(i) = Gyo.Row
> Next
> MsgBox Join(LiN, ",")
>End Sub
説明不足ですみません。
連続行の場合は問題なく処理できていますが、Ctrlを押しながら行を
複数離れて選択した場合の行Noを取得したいと思います。
選択が終了するとシート作ってあるコマンドボタンで色色処理を行います。
行Noは他の所でその行のデータ(15列ほど)を使用するために使います。
よろしくお願いします。
|
|