ماکرو نویسی

[f_ash]

111

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

با سلام
من می خواستم برای چند صفحه آرایه بنویسم به اینصورت که کلی داده تو صفحات مختلف اکسل دارم می خوام تو صفحات سرچ کنه و داده مد نظر منو پیدا کنه با هم جمع بزنه
اگه لطفی کنید بگید چطوری برای n صفحه آرایه تعرف کنم
خیلی ممنون می شم

سلام
شما ماكرو ميخواين يا فرمول؟ يا اصلا فرقي نداره براتون؟
شما يك نمونه هم بذارين خيلي بهتره يا لااقل بگين از چه فرمولي و به چه صورتي استفاده كردين

[f_ash]

شما

[Amir Ghasemiyan]

سلام
من ماکرو نویسی برای n صفحه می خوام که ماکرویی که می نویسم این صفحات را بشناسه و بره توش برگرده و اطلاعات مد نظرمو پیدا کنه
الان اون قسمت جستجو تو دیتاها را می دونم با دستور ifبنویسم فقط مشکلم شناسایی صفحاته برای ماکرو
نمی دونم تونستم مطلبو انتقال بدم یا نه؟
ممنونم از شما

سلام دوست عزيز
براي رفتن به شيت هاي مختلف از اين كد استفاده كنيد

For i = 1 To ActiveWorkbook.Sheets.Count
        ActiveSheet.Next.Select
    Next i

[Javid Mokhtari]

sheets(i) 

[f_ash]

بازم ارور می ده از ActiveSheet.Next.Select

[Javid Mokhtari]

بازم ارور می ده از ActiveSheet.Next.Select

دوست عزیز کدها باید در اولین شیت قرار بگیره در غیراینصورت مشکل ساز خواهد بود

For i = 1 To ActiveWorkbook.Sheets.Count - 1 

[f_ash]

ببخشید بازم جواب نداد
مگه از طریق ارایه نباید حلش کرد؟

[Amir Ghasemiyan]

ببخشید بازم جواب نداد
مگه از طریق ارایه نباید حلش کرد؟

اين كدي كه بنده خدمتتون دادم فقط براي رفتن به شيت هاست. ربطي به حل مسئله شما نداره
بعضي وقتا نيازي به آرايه اي بودن نداره. شما ميتونين يك متغير تعريف كنيد. بعد هر داده اي كه پيدا ميكنه با اون متغير جمع كنيد. چون شما جمع نهايي رو لازم دارين نه تك تك داده ها رو
حالا شما كدي كه نوشتين رو بذارين ببينم چكار ميكنه و مشكلش چيه

[Javid Mokhtari]

ببخشید بازم جواب نداد
مگه از طریق ارایه نباید حلش کرد؟

طبق اون کدی که گذاشتین تست کردم درست عمل کرد.حالا شما کد رو کجا استفاده می کنید نمی دونیم.همون طور که دوستمون آقا امیر گفتن ، لطفا فایلتون یا کدتون رو قرار بدین...