أحمد الزيادى قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 المطلوب بعد اذنكم تحديد السعر وفقا للتاريخ ووفقا لاسم الصنف مع ثبات الاسعار القديمه على سعرها بمعنى يوم واحد فى الشهر كان السعر 5 جنيه تانى يوم اتغير بقى 10 يفضل اصناف اللى فى يوم 5 زى ماهى بس اليوم الجديد هى اللى تتغير ارجو تنفيذ الطريقه وشكر جزيلا New Microsoft Office Excel Worksheet.rar رابط هذا التعليق شارك More sharing options...
صالح أبو أحمد قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 (معدل) برجاء التوضيح أكثر على الملف وكتابة مسميات الأعمدة فيين البيانات الاساسية هى الى على اليمين والناتئج هى الى على الشمال وضح أكثر وإن شاء الله سهلة تم تعديل فبراير 9, 2017 بواسطه صالح أبو أحمد 1 رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر فبراير 9, 2017 الكاتب مشاركة قام بنشر فبراير 9, 2017 برجاء التوضيح أكثر على الملف وكتابة مسميات الأعمدة فيين البيانات الاساسية هى الى على اليمين والناتئج هى الى على الشمال وضح أكثر وإن شاء الله سهلة New Microsoft Office Excel Worksheet.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 (معدل) السلام عليكم ورحمة الله انسخ هذا الكود و الصقه فى موديول جديد و خصص له زر Sub LastPrices1() For Each cl In Range("A3:A12") x = cl.Offset(0, 1).Value y = cl.Offset(0, 2).Value If cl.Value > Range("J3").Value And x = "بيع" Then ZZ = WorksheetFunction.VLookup(y, Range("I4:K10"), 2, 0) cl.Offset(0, 4).Value = ZZ ElseIf cl.Value > Range("J3").Value And x = "شراء" Then AA = WorksheetFunction.VLookup(y, Range("I4:K10"), 3, 0) cl.Offset(0, 4).Value = AA End If Next End Sub تم تعديل فبراير 9, 2017 بواسطه زيزو العجوز رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر فبراير 10, 2017 الكاتب مشاركة قام بنشر فبراير 10, 2017 السلام عليكم ورحمة الله انسخ هذا الكود و الصقه فى موديول جديد و خصص له زر Sub LastPrices1() For Each cl In Range("A3:A12") x = cl.Offset(0, 1).Value y = cl.Offset(0, 2).Value If cl.Value > Range("J3").Value And x = "بيع" Then ZZ = WorksheetFunction.VLookup(y, Range("I4:K10"), 2, 0) cl.Offset(0, 4).Value = ZZ ElseIf cl.Value > Range("J3").Value And x = "شراء" Then AA = WorksheetFunction.VLookup(y, Range("I4:K10"), 3, 0) cl.Offset(0, 4).Value = AA End If Next End Sub مش شغال New Microsoft Office.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 10, 2017 مشاركة قام بنشر فبراير 10, 2017 السلام عليكم ورحمة الله الماكرو يعمل على التاريخ الذى يكون اكبر من او يساوالتاريخ المدرج بالخلية ("J3 ") ملحوظة هامة بعض التواريخ فى الملف السنة فيها مكتوبة 1900 اليك الملف New Microsoft Office.rar رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر فبراير 10, 2017 الكاتب مشاركة قام بنشر فبراير 10, 2017 تسلم ايدك يااستاذنا بس طلب اخير من حضرتك كنت عاوز اطبقها يوميه الاعلاف.rar رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر فبراير 13, 2017 الكاتب مشاركة قام بنشر فبراير 13, 2017 في ١٠/٢/٢٠١٧ at 17:55, أحمد الزيادى said: تسلم ايدك يااستاذنا بس طلب اخير من حضرتك كنت عاوز اطبقها يوميه الاعلاف.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.