طارق محمود

السلام عليكم ارفق مثال ياأخي

إن أردت ان أعملها سريعا بلاشرح ولكني أفضل ان تنتظر حتي يكون عندي وقت ، أشرحها لك او تدرسها كما أخبرتك وتعملها بنفسك

السلام عليكم عذرا اخي أيمن ليس عندي وقت (1) أرجو ان تدرس كيفية تسمية النطاقات Range name بالبحث هنا بالمنتدي ستجد الكثير عن الموضوع (2) أدرس أيضا الدالة Vlookup (3) ثم إفتح الملف السابق KITCHEN ITEMS2.xls سامحني أخي لكن لاوقت لدي

السلام عليكم باستخدام دالة sumif تفضل المرفق الجمع بتاريخ.rar

السلام عليكم حسب ما أعلم أنه لايمكن ذلك للغة العربية لكن عموما النطق عن طريق التالي لو إكسل 2003 1- ظلل الخلايا المطلوب نطقها 2- من قائمة Tools 3- Speech 4- Show text to speech toolbar 5- إضغط علي اول ايكونة عالشمال لو إكسل 2007 فلاأعلمها

السلام عليكم مرحبا بك أخي الكريم بين إخوانك الأحسن كنت ترسل نموذج من عملك لكن هدية تعارف عملت لك نموذج ، لتراجعه وترسل ملاحظاتك أو ترسل نموذج من عملك لتسهيل عمل من يريد المساعدة تفضل المرفق تعبئة الآلية للخلايا.rar

السلام عليكم أخي جمال حاول ترسل نسخة من الملف طبعا بعد ضغطه ببرنامج Winzip أو Winrar

المرفق به ماسبق يحتوي علي 3 شيتات بكل شييت بالخلية B2 المعادلة السابقة لكتابة اسم الشيت وبه كود يجعل فتحه دائما علي الشيت3 try.rar

السلام عليكم مرحبا بك أخي الكريم بين إخوانك أولا لتجعل الاكسل يفتح على شيت معين عند بدأ التشغيل ، مثلا الشيت الثالث 3 ضع الكود التالي في حدث الملف Workbook Private Sub Workbook_Open() Sheets(3).Select End Sub ثانيا لتجعل خلية معينة= اسم الشيت أكتب بها هذه المعادلة =RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

السلام عليكم أخي العزيز بالأكواد كونت لك دالتين خاصتين بهذه الحالة فقط (أي لابد أن تكون الأسماء في العمود الأول والتاريخ في العمود الرابع وهكذا الدالة الأولي لحساب عدد أيام الأجازات =vact(إسم,نوع الأجازة) وهذا كودها Function vact(nam, typ As String) As Variant last_row = [a1000].End(xlUp).Row vact = 0 For i = 2 To last_row If Cells(i, 1).Value = nam Then If Cells(i, 5).Value = typ Then vact = vact + Cells(i, 6).Value End If End If Next i End Function الدالة الثانية لحساب آخر تاريخ أجازة =last_v(إسم) وهذا كودها Function last_v(nam As String) As Date last_row = [a1000].End(xlUp).Row last_v = 0 For i = 2 To last_row nm2 = Cells(i, 1).Value dt = Cells(i, 4).Value If nm2 = nam And dt > last_v Then last_v = dt Next i End Function تفضل المرفق vacation3.rar

تم الرد في الموضوع الآخر

السلام عليكم اخي العزيز أيمن المشكلة كانت أن الملف الأول يحتوي علي مساحات مسماة مسبقا مثل Base ، Base3 ، Items وعند النقل لم تسمي له الأسماء من جديد فأصبح يرجع للملف الأول! علي كل حال تم الإصلاح وتفضل المرفق KITCHEN ITEMS2.rar

السلام عليكم مرحبا بك أخي بين أخوانك المعادلات المطلوبة هي: =SUMPRODUCT(($A$2:$A$8=B17)*($E$2:$E$8=E17)*($F$2:$F$8)) و = SUMPRODUCT(($A$2:$A$8=B17)*($E$2:$E$8=E18)*($F$2:$F$8)) و = LOOKUP(2,1/(A2:A8=B17),D2:D8) أنظر المرفق vacation2.rar

السلام عليكم أخي العزيز أيمن تفضل المطلوبين وإحذف انت ماتراه لازما Master Recipe2.rar

السلام عليكم اخي ايمن بالنسبة للطلب الأول بعض الأصناف متكرر مثل Butter Block Belgium Cheese KiRi1*8 psc hany el bawady فماذا تريد إن إختلف الـItem Unit فيها مثلا

السلام عليكم بعد إذنك أخي يحي الأخ نوفل تفضل الفيديو المرفق text2column.rar

السلام عليكم تفضل المرفق وبه شرح المعادلة leasing3.rar

اخي الحبيب زياد البقاء لله وحده اللهم أسكنه فسيح جناتك وأجعل قبره روضة من رياض الجنة اللهم زد في حسناته وتجاوز عن سيئاته إن لله و إنا إليه راجعون أعظم الله أجرك ولا حول ولا قوة إلا بالله

السلام عليكم الحمد لله الفكرة ، كما أوضحت سابقا مكونة من جزئين الجزء الأول ربط بيانات من النت بالإكسل وهذا الذي في الورقة Date الخلية الأولي الجزء الثاني هو الماكرو الذاتي التشغيل بمجرد فتح الملف ،في الورقة الأولي الذي يذهب للورقة Date ويحدث بيانات النت ثم يخفي الورقة وممكن نقله من الورقة الأولي عن طريق محرر الفيجوال بيزيك (Alt-F11) إلي أي ورقة في ملف آخر ويمكن الإستغناء عنه وعمل ذلك يدوي إلا إذا لم يكن هناك ثقة في المستخدمين

السلام عليكم بعد إذن اخونا بن علية ، جزاه الله خيرا إستبدل المعادلة التي وضعها أستاذنا بن علية في الخليةC25 بالتالية =COUNTIF(C7:C24,">0") ثم إنسخها للخلايا المجاورة

السلام عليكم ضع المعادلة التالية في الخلية I3 =LOOKUP(2,1/(cash!$F$3:$F$2000=G3),cash!$D$3:$D$2000) ثم إنسخها لباقي العمود I والحل مقتبس من أخونا يحي حسين ، جزاه الله خيرا في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=31927&st=0&p=162928&hl="%ED%C7%E3%C7%20%DD%ED%20%C7%E1%CC%D1%C7%C8"&fromsearch=1&#entry162928

السلام عليكم لم افهم جيدا ولكن تفضل المرفق جائز يكون هو ماتطلب leasing2.rar

السلام عليكم مرحبا بك أخي بين إخوانك لم أستطع تحميل الملف يعطيني خطأ The file link that you requested is not valid. Please contact link publisher or try to make a search إضغطه ببرنامج Winzip أو Winrar وجرب رفعه علي المندي

السلام عليكم خطوة بخطوة (1) إظهر الورقة Date وإعمل Refresh يدوي لبيانات النت عن طريق كليك يمين الماوس وأنت علي الخلية A1 ثم أخبرني النتيجة

السلام عليكم أعد الخطوات بمشاركتي السابقة لكن إختر أول خيار في Security Setting for Data Connections وهو Enable all Data Connections (Not Recommended) وإن شاء الله يمشي الحال