اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

احمدزمان

أوفيسنا
  • Posts

    4386
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    12

كل منشورات العضو احمدزمان

  1. السلام عليكم اخي خالد القدس شكرا جزيلا لك - وبارك الله فيك اخي ziad ali جزاك الله كل خير ولك مثل دعائك . . آمين يارب اخي احمد حافظ -4 حيث اننا نريد ان نبدأمن بداية اول صف في المدى المحدد وهو يعتبر رقم 1 وحيث اننا اخترنا رقم العمود الحالي وهو الرقم 5 - ونحن نريد الرقم 1 لذلك كان 5-4=1 آمل ان تكون وضحت الصورة
  2. السلام عليكم و رحمة الله وبركاته بعد الشكر و التقدير للأساتذة الأفاضل - ابو اسامة و طارق و محمود وكذلك الشكر للأخ / samnaj هذه فكرة اخرى للحل اتمنى ان تحوز على رضاكم 3____________________________.rar
  3. السلام عليكم شاهد الرابط التالي http://www.officena.net/ib/index.php?showt...mp;#entry123692
  4. السلام عليكم جرب المرفق ____________.rar
  5. السلام عليكم تم التنفيذ في المرفق و هو احد ابداعات الأستاذ خبور خير اضغط على زر بحث gg.rar
  6. السلام عليكم المطلوب في المرفق وهو من احد ابداعات الأستاذ خبور جزاه الله كل خير اضغط على زر بحث منقول من الأستاذ خبور
  7. السلام عليكم يتم استخدام الدالة index =INDEX(ورقة2!$D$6:$D$55;COLUMN()-4;1) بحيث يتم استخدام رقم العمود للدلالة الى رقم الصف
  8. السلام عليكم كما شرحها الأستاذ خبور ---------------------------------------- 101 ----------------------------------- AVERAGE متوسط 2 ----------------------------------------- 102 ------------------------------------- COUNT عدد 3 ---------------------------------------- 103 ------------------------------------- COUNTA عدد 4 ----------------------------------------- 104 ------------------------------------- MAX اعلى قيمة 5 ---------------------------------------- 105 ------------------------------------- MIN اصغر قيمة 6 ---------------------------------------- 106 ----------------------------------- PRODUCT 7 ----------------------------------------- 107 ------------------------------------- STDEV 8 ---------------------------------------- 108 ------------------------------------- STDEVP 9 ---------------------------------------- 109 ---------------------------------------- SUM مجموع 10 -------------------------------------- 110 ---------------------------------------- VAR 11 --------------------------------------- 111 ---------------------------------------- VARP وفي حالت ملفك sum هي الأفضل
  9. اخي و استاذي خبور جزاك الله كل خير شرح وافي و كافي جداا - بارك الله فيك اخي ابراهيم اختصارا ممكن نقول ان الفرق sumتجمع الكل حتى الصفوف المخفية و subtotal9 تجمع الصفوف الظاهرة و بدون الصفوف المخفية
  10. اخي الفاضل احمد وعليكم السلام اتذكر انني عدلت على الكود للـ Txtbox آمل التجربة
  11. و عليكم السلام ورحمة الله وبركاته جزاك الله كل خير اخي ابو خالد الله لا يحرمنا منك ومن لمساتك الحنونه ابدا تقبل خالص تحياتي و تقديري
  12. السلام عليكم من خصائص ااكمبو بوكس تختار autuwordselect شاهد المرفق ddddddd.rar
  13. السلام عليكم و رحمة الله وبركاته أرجو المعذرة ay_______________.rar شاهد المرفق آمل ان يكون هو المطلوب =================== الملف تنقصة بعض التواريخ مثل تاريخ الشراء و تاريخ التوريد للمستودع
  14. السلام عليكم و رحمة الله اخي زياد شكرا لك و الله يحفظك اخي احمد حافظ شكرا لك و حمدا لله على سلامة الوصول اخير سمير samnaj00 شكرا لك و بارك الله فيك اخي خالد القدس شكرا لك وبارك الله فيك
  15. السلام عليكم المرفق يجب ادخال نوع العملية امام كل عملية دائن او مدين __________________2.rar
  16. السلام عليكم اخي احمد حافظ حمدا لله على سلامة الوصول ازي مصر و اهل مصر ان شاء الله كويسين ومبروك ياعم الف مبروك
  17. جزاك الله كل خير اخي يحيى شرح رائع و تجارب وافية بارك الله فيك
  18. استاذي الكبير و العلامة القدير / ابو تامر اولا وحشتنا جدا جدا جدا و حمدا لله على سلامتك نورت المنتدى اليوم جزاك الله كل خير وبارك فيك
  19. السلام عليكم اخي الكريم يجب عليك عمل الجداول الثلاثة اولا على ملفات اكسل وارفاقها هنا ثم سوف نقوم بشرح خطوات الحل لك
  20. السلام عليكم تم الإنتهاء من عامودي التاريخ و البيان و باقي الأعمدة في انتظار توضيحك الأعمدة الصفراء يمكنك اخفائها مع التحية __________________2.rar
  21. اخي ايسم شكرا لك و بارك الله فيك اخي ياسر شكرا لك المفروض طلاسم الأكواد لاتخفى على اهل اللغة الإنجليزية لأنه معظم كلمات الأكواد قريبة جدا من كلمات انجليزية ولكن في الغالب بدون مسافات او تفصل بينها رموز معينة على اي حال الله يعطيك الصحة و العافية ولا تحتاج ابدا للحبة الزرقاء
  22. بعد الصلاة و السلام على سيدنا رسول الله بناء على طلب اخي سمير في الموضوع على الرابط التالي http://www.officena.net/ib/index.php?s=&am...st&p=138343 هذالكوود الموجود في الملف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then GoTo 1 Q = Target.Cells.Row WW = Sheets("DATA").Cells(5555, 2).End(xlUp).Row If Cells(Q, 2) = "" Then GoTo 1 For W = 3 To WW If Sheets("DATA").Cells(W, 2) = Cells(Q, 2) Then For E = 3 To 6 Cells(Q, E) = Sheets("DATA").Cells(W, E) Next End If Next 1 End Sub و شرحة كالتالي Private Sub Worksheet_Change(ByVal Target As Range) هذا الكود تم وضعة في الحدث التلقائي لتغيير الورقة و هو يعمل بمجرد الكتابة في خلية الورقة ثم الإنتقال منها If Target.Column <> 2 Then GoTo 1 هنا تم تحديد منطقة عمل الكود في العمود رقم 2 وهو العمود B اذا كانت الخلية الهدف ليست في العمود 2 اذهب الى 1 وتم وضع 1 في نهاية الكود Q = Target.Cells.Row تم تعيين متغير اسمة Q وهذا المتغير يأخذ رقم السطر الموجود به الخلية التي تم التحرير بها WW = Sheets("DATA").Cells(5555, 2).End(xlUp).Row تم تعيين متغير وهو يساوي قيمة آخر سطر مكتوب في الرقة DATA للعمود B وهو العمود 2 - وهنا اعطيناه الأمر الذي يتم تنفيذه يدويا كالتالي اذهب الى الورقة DATA قف على الخلية B5555 اضغط Ctrl+سهم للأعلى المكان الذي سوف يقف به المؤشر خذ رقم السطر If Cells(Q, 2) = "" Then GoTo 1 وهنا اعطيناه شرط آخر اذا كانت الخلية الهدف في العمود 2 تساوي فراغ اذهب الى واحد بمعنى اذا قمنا بمسح محتويات الخلية او لم نكتب بها لايتخذ اي اجراء For W = 3 To WW ونحد مجال الأسطر التي سوف نعمل عليها او نبحث فيها عن القيمة في ورقة DATA وهي من السطر 3 الى آخر سطر تمة الكتابة به و الذي حددنا قيمته مسبقا ب الرمز WW If Sheets("DATA").Cells(W, 2) = Cells(Q, 2) Then وهذا شرط العملية اذا كانت قيمة الخلية في العمود 2 للسطر W في ورقة DATA تساوي قيمة الخلية للسطر Q العمود 2 للورقة الحالية اذا.... For E = 3 To 6 متغير آخر حيث ان اللأعمدة في الورقتين متشابهه بعنى اننا نريد ان ننقل الموجود في العمود C من ورقة الى العمود Cفي الورقة الأخرى عملنا متغير تكرار دائري من 3 الى 6 اي سوف يعمل على الأعمدة C - D - E - F - G بمعنى انه اذا وجد الشرط الأول تطابق القيمتين للورقتين في العمو او B سوف يبدأ هذه العملية للنقل بموجب رقم السطر W Cells(Q, E) = Sheets("DATA").Cells(W, E) الخلية التي بها ارقام المتغيرا ت للسطر Q و العمود E تكتب بها قيمة الخلية في ورقة DATAللسطر W و العمود E = = = = = = = الحمد لله رب العالمين هذا موجز شرح الكود و الملف مرفق في الرابط اعلاه
  23. السلام عليكم اخي زياد الى الآن الموضوع باذن الله سهل النقطة الأخيرة كيف اعرف المبلغ الذي في العمود Amount انقلة الى العمود دائن او مدين مع التحية
×
×
  • اضف...

Important Information