Long For i = 1 To colls.Count Debug.Print colls(1) Next コレクョンに対して、インデックス指定してアクセスすると、後ろの要素に行くにしたがってとても遅くなります。 コレクョン対して全件処理する場合は、次回説明するFor Eachを使って以下のように処理してください。 Dim v ...
・コレクションの要素数 ・Collectionオブジェクト 第59回.コレクション処理(For Each) ・For Each の構文 ・Exit For ・For Each の使用例 ・RangeオブジェクトのFor Each ・For Each サイト内の参考ページ 同じテーマ「マクロVBA再入門」の記事 第17回.セルにブック・シートを...
Sub ApplyColor() Const Limit As Integer = 25 For Each c In Range(MyRange) If c.Value Limit Then c.Interior.ColorIndex = 27 End If Next cEnd Sub相对于其他单元格来引用单元格处理相对于另一个单元格的某一单元格的常用方法是使用 Offset 属性。下例中,将位于活动工作表上活动单元格下一行和右边...