اذهب الي المحتوي
أوفيسنا

بن علية حاجي

الخبراء
  • Posts

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

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

  • Days Won

    46

كل منشورات العضو بن علية حاجي

  1. السلام عليكم ورحمة الله أخي الكريم، كنت أفضل لو أنك وضعت نموذجا للشهادة المطلوبة ونحاول تطبيق المطلوب عليها... المهم تم وضع نموذج (اجتهادي) لتقريب الفكرة، تم إضافة صف (رقم 3) في شيت البيانات يتم فيه تحديد المواد المعنية للطالب من الخلية A3 المرتبطة بالخلية B3 من شيت الشهادة (القائمة المنسدلة للأسماء List)... وبالمعادلات في شيت الشهادة تم جلب البيانات المطلوبة لكل طالب مع تنسيق شرطي لبيانات المواد (إطار وتعبئة)... أرجو أن تروقك هذه الفكرة.... بالنسبة للتقدير يمكنك وضع نموذج مع معادلات حسب علامة الدرجة النهائية... أخوك بن علية الملف المرفق : نتيجة.rar
  2. السلام عليكم ورحمة الله أخي الكريم، كان من المفروض أن اقوم بعملية بحث في المنتدى قبل طرح السرال لأنه قد تم تناول هذه المسألة سابقا وليس ببعيد تجد في الصفحة الأولى (موضوع جديد) بعنوان "التحايل على الدالة VLOOKUP" وهذا رابطه http://www.officena.net/ib/index.php?s=955d3897fa010a9e8ee75f5acb359b44&showtopic=55458 يتناول هذه المسألة بالذات... على العموم تم التعديل على ملفك (تنسيق الشيت بتبديل اتجاه الشيت إلى اليمين و تغيير الدالة vlookup بالدالة index) وتجد ذلك في الملف المرفق... أخوك بن علية المرفق : تمرين.rar
  3. السلام عليكم ورحمة الله يمكن استعمال دوال أخرى للبحث غير الدالة VLOOKUP مثل INDEX أو غيرها، وهذا اقتراح آخر مع الدالة VLOOKUP على ملفك بنسخ في عمود إضافي (مساعد) لعمود "اسم الطالب" في الجدول نفسه (ويمكن أيضا إخفاؤه) بدلا من نسخ الجدول كله في شيت آخر... الملف المرفق : اسم الطالب.rar
  4. السلام عليكم ورحمة الله أخي الكريم سليم، والله إبداع فوق العادة، جميل جدا جدا... بارك الله فيك وفي علمك... أخوك بن علية
  5. السلام عليكم ورحمة الله أخي الكريم، تمت بعض التعديلات على المعادلات والأكواد والتسميات حسب الملفات الجديدة، بالنسبة للملفات فقد تم حفظها بامتدادات أوفيس 2007 وأعلى لتوحيد التنسيقات (لأن ملف الاستمارة كان من امتداد xls لأوفيس 2003 وجعلته من امتداد xlsb)... أرجو أن تكون هذه التعديلات موافقة لما تصبو إليه... أخوك بن علية الملف المرفق : الإجازات.zip
  6. السلام عليكم ورحمة الله أخي الكريم إذا لم تتمكن من رفع ملفك على المنتدى يمكنك استعمال مواقع أخرى لرفع الملفات مثل موقع http://www.gulfup.com/ ثم نسخ اختصار رابط الملف المرفوع وإدراجه في المنتدى باستعمال زر "رابط" أسفل إطار "الحجم" (مثلما فعلت بالنسبة لرابط موقع تحميل الملفات في هذا الرد).... أرجو أني قدمت ما يفيدك لرفع الملفات على المنتدى... أخوك بن علية
  7. السلام عليكم ورحمة الله أخي الكريم، تم التعديل على المعادلات المضافة حسب المطلوب الجديد مع إضافة أعمدة (عمودين) مساعدة في شيت "شيكات مرتدة" يمكن إخفاؤها... أرجو أني وُفقت في تقريب الحل... أخوك بن علية المرفق : شيكات مرتدة.rar
  8. السلام عليكم ورحمة الله أخي الكريم، لم أفهم عليك المطلوب جيدا، ما قام به أخي الكريم جمال يفي بالغرض... تم تصحيح المعادلات في الملف المرفق... أخوك بن علية المرفق: فصل أرقام بطريقة خاصة.rar
  9. السلام عليكم ورحمة الله السلام عليكم اخي خبير الاكسل اريد منك تعديل الملف الذي نزلت ( الرقم القومي ) سارفق صورة تبين ماريد التعديل علية وهل هو كود او معادلة اريد تعديل الخانات كما هو موضح في الصور مثل 84 اريد ان يعرض من اليمين الى اليسار بحيث يعرض في الخلية الاول من اليمين الى اليسار الاحاد 4 العشرات 8 وهكذا أخي الكريم، هذا حل لمطلوبك بالمعادلات، أرجو أن يفي بالغرض... أخوك بن علية المرفق : فصل أرقام بطريقة خاصة.rar
  10. أخي العزيز، تم عمل كود يقوم بترحيل ما في النموذج من ورقة "الرئيسي" إلى ورقة "الكل" ثم إلى الورقة المحددة بالخلية F2 (مرسل إلى) وبعد عملية الترحيل يقوم الكود بتفريغ كل البيانات في النموذج... تم حفظ الملف بصيغة xlsb بدلا من صيغة xlsm... أرجو أن يعجبك الملف وكل هذه الإضافات.... المرفق: قائمة الشحن.rar
  11. تم التعديل مرة أخرى على الكود، أرجو أن يفي هذا بالمطلوب... الملف المرفق : new.rar
  12. السلام عليكم ورحمة الله أخي الكريم، تم التعديل على الكود بما هو مطلوب... أرجو أن يستوفي التعديل كل المطلوب.... أخوك بن علية المرفق : تعديل علي كود توزيع الكتب.rar
  13. الأخ الكريم، ألا تكفي ذلك كلمة "فقط" في بداية نتيجة تحويل العدد إلى كتابة؟؟؟ المهم تم إضافة كلمة "لا غير" في كود الدالة المستحدثة... أرجو أن يروقك الحل... بن علية المرفق : new.rar
  14. السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق أرجو أن يكون المطلوب... أخوك بن علية المرفق : Classeur1.rar
  15. السلام عليكم ورحمة الله أخي الكريم صلاح الصغير، هذا حل آخر مع حلول إخوتي الكرام جازاهم الله خيرا... أخوك بن علية المرفق : Copy of شيكات مرتدة من 24_06_2012.rar
  16. السلام عليكم ورحمة الله أخي الكريم علي المصري، هناك خطأ في معادلة العلاقة بين القياس الدائري والقياس الستيني ولتصحيح الخطأ إما نستبدل 360 بـ 180 أو نستبدل العدد PI بـ 2PI مع ملاحظة أن العدد PI لا يساوي نسبة 22 على 7 (بل يقاربها) لأن العدد PI ليس "ناطقا" أخوك بن علية
  17. السلام عليكم ورحمة الله أخي الكريم، بعض التعديلات على معادلات الأخت الفاضلة أم عبد الله.... فطول القوس هو جداء (ضرب) قيس الزاوية التي تحصر هذه القوس (مقدر بالراديان) مضروب في طول نصف قطر الدائرة (وليس طول القوس هو الزاوية المركزية كما جاء في الملف).... والتصحيحات والإضافات لوّنتها بالأحمر... أرجو أني وفقت في تقريب الحل.... أخوكم بن علية الملف المرفق : طول القوس2.rar
  18. السلام عليكم ورحمة الله أخي الكريم، انظر للملف لعل فيه المطلوب... أخوك بن علية المرفق : ساعات.rar
  19. السلام عليكم ورحمة الله أخي الحبيب أبو حنين، هذا حلي مع اعتبار التاريخ (من .... إلى .....) وعمل مخطط للنتائج... أخوك بن علية المرفق : TIST.zip
  20. السلام عليكم ورحمة الله أخي الكريم، ألق نظرة على الملف المرفق لعل فيه الحل... أخوك بن علية المرفق : Program.rar
  21. السلام عليكم ورحمة الله أخي الكريم جرب المرفق التالي لعل فيه الحل... أخوك بن علية المرفق : Test.rar
  22. السلام عليكم ورحمة الله أخي الكريم انظر إلى المرفق لعل فيه المطلوب... أخوك بن علية المرفق : s.rar
  23. السلام عليكم ورحمة الله أخي الكريم، أرسل لك الملف مرة أخرى على أمل أن يفتح معك دون مشاكل... وأرسل لك الكود الذي عدلته : Sub فحص() With Sheets("رئيسي") .Range("J1:J10000").ClearContents On Error Resume Next Set ww = Application.WorksheetFunction LastRow = .Cells(Rows.Count, "G").End(xlUp).Row Application.ScreenUpdating = False .Range(.Cells(1,10), .Cells(1000, 10)).ClearContents For R = 2 To LastRow If ww.CountIf(.Range("G1:G"& R), .Cells(R, 7).Value) > 1 Then .Cells(10,10).End(xlUp).Offset(1, 0) = .Cells(R,7) End If Next .Range("G1:O1000").Sort .[b5], xlAscending For N = 2 To LastRow If .Cells(N, 2) <> "" Then .Cells(N, 1) = .Cells(N, 2).Row - 5 End If Next Application.ScreenUpdating = True .Cells(2, 10).Select On Error GoTo 0 .Range("J1:J3000").Sort Key1:=.Range("J1:J3000"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End Sub أخوك بن علية الملف المرفق : مفتاح جلب المكرر.rar
  24. السلام عليكم ورحمة الله أخي الكريم، ما نوع المشكلة في الملف؟ والملف أرسلته كما هو، يعمل على نسخة إكسيل 2003 لست أدري ماذا حصل معك... قبل فتحه بالبرنامج يُرجى مراقبة آمان الماكرو لديك (اجعله منخفضا)... أخوك بن علية
  25. السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد حلا لمسألة أن تكون فترة التأخرات الشهرية معطاة بالدقائق (بمعادلة صفيف طويلة بعض الشيء ولم أجد بدّا لذلك)... أرجو أن يفي الملف الغرض المطلوب... أخوك بن علية المرفق : Copy of جدول متابعة الموظفين 2014 م الجديد b f.rar
×
×
  • اضف...

Important Information