07/06/15 16:26:32
Excel2007です。
>>151
サンクスです。
でじつは、Rangeオブジェクトを for で回そうと、
Dim StartCell As Range, LastCell As Range
Set StartCell = ActiveSheet.Range("テーブル[列]").Offset(0, 0)
Set LastCell = ActiveSheet.Range("テーブル[列]").End(xlDown)
' 資産に関連するもの更新
For i = StartCell.Row To LastCell.Row
CalculateTable (ActiveSheet.Cells(i, 4))
Next i
としていたのですが、もっと簡単な書き方はないでしょうか？
Dim Cell As Range
For Each Cell In ActiveSheet.Range("テーブル[列]")
CalculateTable (Cell)
Next
とすると、 CalculateTable (Cell) で、オブジェクトが必要です、と怒られてしまいます。 orz