|
▼kanabun さん:
>▼kanabun さん:
>>▼亜矢 さん:
>>
>>> 選択が終了するとシート作ってあるコマンドボタンで色色処理を行います。
>>> 行Noは他の所でその行のデータ(15列ほど)を使用するために使います。
>>
>>>> ReDim LiN(1 To Target.Areas.Count) 'Area数
>>
>>>> For Each Gyo In Target.Areas
>>>> i = i + 1
>>>> LiN(i) = Gyo.Row
>>>> Next
>>
>>↑で、Target は選択された行。
>> 配列 LiN() のなかに、行番号が入ります。
>
>Targetという変数は ワークシートのイベント・プロシージャで自動で付けられた
>名前なので、標準モジュールで処理するときは、これを Selection に代えれば
>いいです。
>
> Dim Gyo as Range
> ReDim LNo(1 To Selection.Areas.Count) As Long
>
> For Each Gyo In Selection.Areas
> i = i + 1
> LNo(i) = Gyo.Row
> Next
>
>Lno()配列に 選択された行の行番号が入っています。
ありがとうございました。解決しました。
|
|