ماکرو نویسی

**Amir Ghasemiyan** · 2014/12/08, 15:59

نوشته اصلی توسط f_ash

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

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

**f_ash** · 2014/12/10, 12:54

شما

**Amir Ghasemiyan** · 2014/12/10, 14:28

نوشته اصلی توسط f_ash

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

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

کد:

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

**Javid Mokhtari** · 2014/12/10, 15:59

کد PHP:


sheets(i)

**f_ash** · 2014/12/10, 16:25

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

**Javid Mokhtari** · 2014/12/10, 16:33

نوشته اصلی توسط f_ash

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

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

کد PHP:


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

**f_ash** · 2014/12/14, 09:39

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

**Amir Ghasemiyan** · 2014/12/14, 11:09

نوشته اصلی توسط f_ash

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

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

**Javid Mokhtari** · 2014/12/14, 14:09

نوشته اصلی توسط f_ash

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

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

**f_ash** · 2014/12/14, 16:28

لطفا سوال منو پاسخ بدهید

**Javid Mokhtari** · 2014/12/14, 22:13

نوشته اصلی توسط f_ash

لطفا سوال منو پاسخ بدهید

کد زیر رو استفاده کنید ببینید درسته یا نه :

کد PHP:


Application.ScreenUpdating = False
Dim sm1, sm2
sm1 = 0
sm2 = 0
For i = 1 To Sheets.Count
    Sheets(i).Activate
    sm1 = WorksheetFunction.SumIf(ActiveSheet.Range("a1:a10"), 2, ActiveSheet.Range("b1:b10"))
    sm2 = sm1 + sm2
Next i
    MsgBox sm2