Excel VBA 質問スレ Part14
■ このスレッドは過去ログ倉庫に格納されています
0207デフォルトの名無しさん
2010/02/07(日) 08:07:23配列とかはおいといて、単純に範囲をループする場合の実行時バインドと事前バインドの一例
もっとも不細工(cells(i,1)の形が実行時バインド)
dim i as long
For i = 1 To cells(rows.count,1).end(xlup).row
If cells(i,1).value="foo" then
cells(i,2).hogehoge
end if
Next i
まだまだ不細工(Itemプロパティが実行時バインド)
dim r as range
dim i as long
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for i=1 to r.count
If r.item(i,1).value="foo" then
r.item(i,2).hogehoge
end if
next i
上の二つよりまとも(cは事前バインド)
dim r as range
dim c as range
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for each c in r
if c.value="foo" then
c.offset(,1).hogehoge
end if
next c
■ このスレッドは過去ログ倉庫に格納されています