Rangeメソッドの失敗「Globalオブジェクト」

Question

Rangeメソッドの失敗「Globalオブジェクト」

Anonymous

初めまして

高橋と申します。

ネットで調べても中々解決しないのでこちらにて質問させて頂きます。

ExcelのVBAマクロで以下の部分にてエラー（図参照）が表示されます。

Range周りをどうすれば解決できるのか分かりません。解決方のご教授お願い致します。

=============該当箇所（不要な部分は省略してます）===============

With Worksheets(Array_Sheet(j))

      count1 = .Cells.FormatConditions.Count 

      ReDim adr(count1) 

      For Iteration = 1 To count1 

             adr(iteraton) = .Cells.FormatConditions(Iteration).AppliesTo.Address 

      Next Iteration 

      Sheets(Array\_Sheet(j)).Range(Result\_Del\_number).EntireRow.Delete 

     For Iteration = 1 To count1 

            .Cells.FormatConditions(Iteration).ModifyAppliesToRange (Range(adr(Iteration)))       &lt;-ここでエラーになります。 

     Next Iteration

End With

=========================================================

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

質問作成者が受け入れた回答

Anonymous

VBA専用のフォーラムがございますため、下記へご投稿してみてください。

https://social.msdn.microsoft.com/Forums/ja-JP/...

どうぞ宜しくお願い致します。

0 件のコメント

2 件の追加の回答

Answer 1

> For Iteration = 1 To count1 > adr(iteraton) = .Cells.FormatConditions(Iteration).AppliesTo.Address > Next Iteration

・上記箇所の変数名が誤っている。

For Iteration = 1 To count1
adr(Iteration) = .Cells.FormatConditions(Iteration).AppliesTo.Address
Next Iteration

> .Cells.FormatConditions(Iteration).ModifyAppliesToRange (Range(adr(Iteration)))

・上記箇所に余計な括弧がある。

.Cells.FormatConditions(Iteration).ModifyAppliesToRange Range(adr(Iteration))

Answer 2

Anonymous

途中の行削除が意味不明なこともあって、何をしたいのかがよくわかりませんが、ひとまず "(Range(adr(Iteration)))" の外側の ( ) を外してみたらどうでしょ？

0 件のコメント