ادامه حلقه بیرونی پس از بروز ارور در حلقه درونی

[esiexcel]

سلام دوستان
فرض کنید تعداد زیادی صفحه اکسل در یک فایل اکسل موجود است و در هر صفحه نیز تعداد زیادی نمودار وجود دارد که ما تعداد آنها را نمی دانیم و می خواهیم بر روی همه این نمودارها یک کار خاص انجام دهیم. برای اینکار می توان از دو حلقه استفاده کرد که در حلقه اول صفحه مورد نظر انتخاب و فعال سازی شود و در حلقه دوم نمودارها به ترتیب انتخاب شوند.
حال برنامه را اجرا می کنیم و مثلا حلقه داخلی که مربوط به نمودارها در هر صفحه است به شمارنده 20 می رسد و نمودار 20 وجود ندارد بنابراین بر روی دستور فعال سازی این نمودار خطای runtime نمایش داده می شود. حال می خواهیم پس از بروز این خطا برنامه به صفحه بعد رفته و ادامه پیدا کند. آیا می شود این کار را انجام داد؟
من با دستورهای on error go to statement و on error resume next نتوانستم این کار را انجام دهم
ممنون
اسی

[Ali Parsaei]

شما با دستور زير وقتي يک شيت فعال مي شود مي توانيد تعداد نمودارهاي آن را بفهميد:

ActiveSheet.ChartObjects.Count 

پس اين مشکل که گفته ايد: "ما تعداد آنها را نميدانيم" حل مي شود و در نتيجه مسئله حل است.