|
▼りん さん:
こんばんは、久しぶりですねえ!!
>あまのじゃく さん、こんばんわ。
>
>>実は、訳あってForEachの実行順序を逆にしたいと
>>考えています。
>
>>A20,A19,...A1の順番にする方法はないのでしょうか。
>
>Sub test()
> Dim II%, NN%
> With Range("A1:B20")
> For II% = .Count To 1 Step -1
> NN% = NN% + 1 '検証用カウンタ
> Set cc = .Cells(II%)
> cc.Value = NN%
> Next
> End With
> Set cc = Nothing
>End Sub
>
>Rangeの場合は、Range(範囲).Cells(インデックス値)
>Worksheetの場合は、Worksheets(インデックス値)
>Workbookの場合は、Workbooks(インデックス値)
>
>のように、大概のオブジェクトはオブジェクトコレクションからインデックスで取得できます。
別に意見はなかったんですが、
今度は削除できないように・・・、
ははっ、失礼しました。
|
|