نجوم المشاركات

حضرات السادة الاساتذة : السلام عليكم ارفق ملف اكسل (برنامج عهدة مخازن ) اصل البرنامج من هذا الموقع ( وشكرا لصاحب الفكرة ) قمت بالتعديل عليه بما يتوافق مع عملي بفضل ومساعدة من خبراء هذا الموقع الرائد الملف المرفق به صفحة مهمة لادخال البيانات هي صفحة ادخال الاذون وكل الصفحات مشغولة بالمعادلات مما سبب بطء رهيب في استثمار البرنامج ( ان صحت التسمية ) ارجو ان يساعدني الاساتذة / الخبراء بتحويل المعادلات في الصفحات الى اكواد حتى يصبح الملف اسرع ويمكن استثماره فكرة البرنامج عدة مستودعات لشركة واحدة يتم من خلالها تسليم عهد اثاث الى مكاتب او من كان لديه فكرة اجمل وافضل واسرع اتمنى ان لايبخل علي بها لحاجتي لهذا الامر اتمنى ان يكون المرفق يفي بشرح ما ارغب به ارجو المساعدة شكرا في كل الاحوال ياسر الحافظ برنامج عهدة مخازن.rar

السلام عليكم ورحمة الله وبركاته الأخوة الأعزاء بالملف المرفق يوجد ثلاثة مبالغ بالجنية المصرى و الدولار الأمريكى و اليورو بالأعمدة (F ، G ، H) على التوالى والعمود الرابع (J) يمثل مجموع قيم الثلاثة أعمدة ولكن بعد تحويل القيم بالدولار الأمريكى و اليورو إلى جنية مصرى وذلك وفقاً لسعر صرف العملتان مقابل الجنية المصرى وحسب تاريخ العملية علماً بأن سعر الصرف يتم تغييرة كل (3) ثلاثة أشهر. مثال توضيحى:- العملية رقم (2) بتاريخ 20/5/2013 قيمتها الإجمالية بعمود (J) هى 483656.40 جم وهو حاصل جمع وضرب القيم التالية:- 203710.79 جنية مصرى (خلية F5) بنفس القيمة 19212.42 دولار أمريكى (خلية G5) وذلك بعد ضربها فى سعر صرف الدولار الأمريكى ولكن حسب تاريخ العملية والذى هو 20/5/2013 لذا قمت بضرب القيمة فى 6.8484 (خلية D20) وذلك لأنه فى تاريخ العملية كان سعر الصرف هو الذى تم الوصول إلية فى 31/3/2013 (الناتج 131574.33 جم). 16898.59 يورو (خلية H5) وذلك بعد ضربها فى سعر صرف اليورو ولكن حسب تاريخ العملية والذى هو 20/5/2013 لذا قمت بضرب القيمة فى 8.7801 (خلية F20) وذلك لأنه فى تاريخ العملية كان سعر الصرف هو الذى تم الوصول إلية فى 31/3/2013 (الناتج 148371.31 جم). وبجمع القيم الثلاثة (203710.79 + 131574.32 + 148371.30) = 483656.40 جم والمشكلة التى تواجهنى والتى أريد حلها هى أننى قمت بتحديد سعر الصرف المناسب ولكن بطريقة يدوية وما أريده أن تكون هنالك معادلة تستطيع تحديد تاريخ العملية ومن ثم تقوم بتحديد سعر الصرف المقابل لهذا التاريخ وذلك للدولار الأمريكى واليورو. أرجو أن قد وفقت فى شرح ما أقصده. خالص شكرى وتقديرى أخوكم عيد مصطفى Determine the exchange rate corresponding to the date.rar

متغير من نوع Integer تستخدم متغيرات Integer لتخزين الأعداد الصحيحة Sub kkk() Dim x As Integer x = 200 Range("A1").Value = x End Sub متغير من نوع String وتستخدم متغيرات String لتخزين النصوص Sub kkkkk() Dim book As String book = " منتديات أوفيسنا " Range("A2").Value = book End Sub متغير من نوع Double متغير من نوع Double هو أكثر دقة من متغير من نوع Integer ، ويقوم بتخزين أرقاما بعد الفاصلة Sub kk() Dim x As Double x = 10.08 MsgBox "value is " & x End Sub مرفق ملف به التطبيقات متغيرات.rar

السلام عليكم استخدم الكود التالي Sub Macro1() Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row If LR = 1 Then Exit Sub Application.ScreenUpdating = False Range("A2:C" & LR).Copy With Sheets("ورقة8") LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Range("A" & LR).PasteSpecial xlPasteValues End With Application.CutCopyMode = False Range("A2:C43").ClearContents Application.ScreenUpdating = True End Sub تحياتي

السلام عليكم أخي العزيز بعد إذن أخي بن علية وأخي عباس حسب ما أعلم فلاينبغي أن تطول المعادلة عن 256 حرف (بما فيها =) لذلك وكما نصحك الإخوة ، إبحث دائما عن الحل الأقصر وفي هذا السياق ، إليك أيضا الحل بدالة Vlookup حساب النقاط2.rar

بسم الله الرحمن الرحيم وبه نستعين الاستاذ الفاضل // بن عليه حاجى الاستاذ الفاضل // عمرو رحيل الاستاذه الفاضله // أم عبدالله جزاكم الله تعالى خيرا بعون الله تعالى تم الحل والى حضراتكم المرفق بعد التعديل وقد تم الاستغناء عن تحديد بداية ونهاية الشهريدويا مع الاستغناء عن الخلية E2 تقبلوا وافر احترامى وتقديرى وجزاكم الله خيرا

السلام عليكم ورحمة الله أخي الكريم، والحل بالدالة SEARCH بالملف المرفق... أخوك بن علية الملف المرفق : حساب النقاط_Search.rar

السلام عليكم ورحمة الله أخي الكريم، تم المطلوب باستعمال كود لفرز الشيتات أبجديا... أخوك بن علية الملف المرفق (من نسختين) : A1.rar

السلام عليكم الأستاذ محمد صالح حفظك الله جزاك الله كل خير على ماتقدمه من علم والأستاذ عبدالله المجرب صاحب الفضل جزاك الله كل خير على هذه المشاركة القيمة والمفيده للكثير تقبلو تحياتي وشكري

هل هذا التنسيق للخلية يكفي للتنبية إنظر عزيزي إلي المرفق فرق بين تاريخيين 2.rar

ممكن المعادلة تكون كده بس التساؤل لو الشهور=6 سيتم تقريبها لأسفل أم لأعلي لوكانت لأعلي سيتم إضافة (=) بجوار (>=) حتي تضاف ألي السنة هي الأخري أما لو أضيفت للأقل ستظل المعادلة كما هي مكتوبة =IF(DATEDIF($B$2;$A$2;"ym")>6;DATEDIF($B$2;$A$2;"y")+1;DATEDIF($B$2;$A$2;"y")) فرق بين تاريخيين 2.rar

حاولت عمل شرح للنك بالصور اتقضل صور.rar

السلام عليكم و رحمة الله و بركاته الاستاذ / يوسف عطا تفضل هذا بالمرفق و أرجو من الله أن يكون هذا هو طلبك و كلمة السر هي 123 و الله المستعان و السلام عليكم و رحمة الله و بركاته Hide Column HaNcOcK.rar