| |
>僕の説明は足りなかったと思います。任意のデータ範囲で適用したくて、
>開始行、終了行、開始列、終了列の引数を使うには、どのように処理すれば
>いいでしょうか？
別に説明は足りていますが、↑は配列の利用とは別問題で、
データ範囲の指定はどのようにでもRangeオブジェクトで与えればいい事です。
例えば、
Dim i1&, i2&, j1&, j2&
i1 = 3: i2 = 7: j1 = 2: j2 = 4 '与える範囲データ
Set rg1 = Range(Cells(i1, j1), Cells(i2, j2))
Set rg2 = Range(Cells(i2 + 1, j1), Cells(i2 + 1, j2))
とか...
でも、このような指定はCellsの多用でいかにも初心者向けで分かりにくくありませんか？
ある程度上級者なら、B3を起点に5行・3列みたいに指定すると思います。
Dim rg As Range, rr&, cc&
Set rg = Range("b3"): rr = 5: cc = 3 '与える範囲データ
Set rg1 = rg.Resize(rr, cc)
Set rg2 = rg.Offset(rr).Resize(, cc)
|
|
sasa
- 11/5/2(月) 1:33 -
