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

الشهابي

الخبراء
  • Posts

    1,160
  • تاريخ الانضمام

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

  • Days Won

    1

كل منشورات العضو الشهابي

  1. السلام عليكم ورحمة الله وبركاته الحمد لله على السلامة الأخ العزيز الأستاذ محمود الشريف أسأل الله لك الصحة والعافية أنت وجميع الأخوة أعضاء هذا المنتدى
  2. أخي العزيز / محمد لؤي السلام عليكم ورحمة الله وبركاته جرب المرفق هل هذا مطلوبك أم لا تحياتي تعديل على ملف كشف بارقام سيارات مطلوبة.rar
  3. أخي العزيز / طائع فضلا مزيدا من التوضيح ولو تعطي مثالا للبيانات المطلوبة يدويا حتى يتم فهم المطلوب بشكل أفضل بصراحة لم استطع فهم المطلوب العفو
  4. أخي العزيز / أبو حمادة جرب التعديل التالي : Private Sub CommandButton1_Click() Dim Lr As Integer, ws As Worksheet, answer As Integer Set ws = Worksheets("ورقة1") Lr = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row For Each cl In Range("b5:b" & Lr) If Me.TextBox1.Text = cl.Text Then answer = MsgBox("هذا الاسم موجود مسبقا هل تريد الإضافة أو أضغط لا وقم باختيار اسم آخر ", vbYesNo + vbQuestion, "Empty Sheet") If answer = vbYes Then ws.Cells(Lr, 2).Value = Me.TextBox1.Text '"الاسم"' ws.Cells(Lr, 3).Value = Me.TextBox2.Text '"الوظيفه"' ws.Cells(Lr, 4).Value = Me.TextBox3.Text '"رقم الموبيل"' Else End If End If Next cl End Sub
  5. أخي العزيز / سيد تيجر أتمنى أن يلبي هذا طلبك تم توزيع المتوسط حسب الشروط المطلوبة بالكود إذا في أي خطأ أو نقص نرجو منكم التنبيه تحياتي كشف التقويم.rar
  6. أخي العزيز / أبو حمادة ضع هذا الكود في حدث الفورم Private Sub TextBox1_Change() Set ws = Worksheets("ورقة1") Lr = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row For Each cl In Range("b5:b" & Lr) If Me.TextBox1.Text = cl.Text Then MsgBox ("هذا الاسم موجود مسبقا قم باختياراسم آخر") End If Next cl End Sub
  7. أخي العزيز / الدول وبعد أذن أستاذنا القدير زيزو العجوز حفظه الله أولا تسميات الصفو ف تختلف عنها في الورقة ( Data ) ففي هذه الحالة لا يمكن أن تعطيك نتيحة فقمت بتوحيد التسمية لتكون متطابقة ومن ثم استعملت الدالة (SUMPRODUCT) فأجدها أفضل من الدالة ( COUNTIFS ) هذه هي المعادلة =SUMPRODUCT(--(Data!$B$3:$B$488=$B13)*(Data!$D$3:$D$488>=50)) تحليل نتائج الفصل الاول 2017.rar
  8. أخي العزيز / سيد تيجر هل يلزم في توزيع المتوسط على خانات درجات الأشهر أن يكون العدد صحيحا أو لا يضر وجودكسر مثلا ( 7.5) وإذا كان لا يضر الكسر هل يلزم الإختلاف في توزيع الدرجات في الثلاثة الأشهر مثلا لو كان المتوسط ( 38 ) هل يكون المجموع في كل الأشهر (38 ) أو أنه يختلف بحيث يكون مثلا الشهر الأول ( 37 ) والثاني ( 38 ) والثالث ( 39 ) والعفو
  9. أخي العزيز / الصقر الحر السلام عليكم ضع هذه المعادلة في الخلية ( N5) ثم قم بنسخها ولصقها في بقية الخلايا =SUMPRODUCT(--($C$2:$C$25=$M5);(INDIRECT(ADDRESS(2;MATCH(N$4;$A$1:$H$1;0);2;1)&":"&ADDRESS(25;MATCH(N$4;$A$1:$H$1;0);2;1)))) exm1.rar
  10. أخي العزيز / سيد تيجر جزاك الله خير على كلمات الطيبة وأخلاقك العالية ووفقك الله دائماً في خدمة إخوانك إذا كان هناك فضل فهو لهذا الصرح الكبير الذي أفضاله علينا وكم احتجنا إلى مساعدة فيه ووجدنا الكثير من خبراء وأعضاء هذا المنتدى لا يتأخرون أبداً ونحن لعلنا نرد ولو القليل من أفضال هذا المنتدى علينا أرفع ما تشاء و أسأل عما تشاء لا بد أن تجد من يلبي هذا ما تعودناه هنا ونحن كلنا تلاميذ في هذا المنتدى ولا زلنا نتعلم والكل يفيد ويستفيد تقبل تحياتي وتقديري لك ولجميع الأعضاء
  11. أخي العزيز / أبو حمادة سبب الخطأ أنك استخدمت دالة ( ) وهي تعتمد في البحث بالرقم جرب استبدال الكود السابق بهذا الكود إن شاء الله يكون مطلوبك Private Sub ComboBox1_Change() Dim LR As Long Set ws = ThisWorkbook.Sheets("ورقة1") LR = ws.Cells(Cells.Rows.Count, "B").End(xlUp).Row For Each CL In ws.Range("b5:b" & LR) If ComboBox1 = CL.Text Then Me.TextBox1 = CL.Offset(0, 1).Value Me.TextBox2 = CL.Offset(0, 2).Value Me.TextBox3 = CL.Offset(0, 3).Value Me.TextBox4 = CL.Offset(0, 4).Value End If Next CL End Sub ولا بد أن أيضا من تغير مدى النطاق المسمى ( بيانات ) ليأخذ بياناته من العمود (B) ولو كان مدى دناميكي أفضل بهذا الشكل =OFFSET(ورقة1!$B$5;;;COUNTA(ورقة1!$B$5:$B$1000)) تقبل تحياتي
  12. أخي العزيز / سيد تيجر أولا : الحمد لله الذي وفقك للوصول للمطلوب ثانيا: هذا حل بالطريقة التي ذكرتها في المشاركة السابقة انظر إليها فقد عملتها فقلت أرفقها للفائدة إن شاء الله تقبل تحياتي مخزن2_2.rar
  13. أخي العزيز / oozzoo لو أرفقت ملف سوف يكون أفضل ولكن هذا حل بالتنسيق الشرطي فإذا تجاوز العمر في التواريخ العمر المحدد في الخلية (B2) يتم تضليل الخلية باللون الأحمر ربما يسهل لك الأمر و يمكن عمل ذلك أيضا من خلال كود برمجي تحديد العمر.rar
  14. أخي العزيز / سيد تيجر لماذا لا تضيف الأعمدة المطلوب إجمالي لها ضمن أعمدة البيانات في ورقة العميل والأصناف والتاريخ والفترة حتى يسهل إيجاد الأجماليات المطلوبة ويمكن وضعها في نهاية الجدول كصف للإجمالي أم أنك تريد الجدول على هذا الشكل وفي هذه الحالة يمكن أن تكون في أعمدة مخفية مجرد مقترح
  15. أخي العزيز / moh2211 هذا قديو يشرح كيفية استبدال الفاصلات الموجودة بين الأرقام شرح استبدال الفاصلات.rar
  16. أخي العزيز / سيد تيجر السلام عليكم ورحمة الله وبركاته إليك هذا الحل لعله يفي بالغرض إن شاء الله بس قمت بتعديل بسيط في ورقة المخزن بحيث قمت بتكرار التاريخ لليوم في الخانات الفارغة التي أسفل منه تقبل تحياتي وتقديري مخزن.rar
  17. أخي العزيز / moh2211 السلام عليكم ورحمة الله وبركاته أهلا وسهلا بك في هذا المنتدى نتمنى لك طيب الإقامة فيه إن شاء الله أولا : إذا كانت الفاصلة هي من تنسيق الخلية رقم وفيها مؤشر عللا استخدام فاصل الآلآف ( ، ) هذا يعتبر شيء طبيعي ولن يؤثر على العمليات الرياضية ويمكن التخلص منها بإزالة المؤشر من أمام استخدام فاصل الآلآف ( ، ) اذهب إلى تنسيق الخلايا لتتأكد من ذلك أما إذا كان تم إدخالها على شكل نص يمكن إزالتها من خلال بحث واستبدال وقم باستبدال الفاصلة بفراغ
  18. 3454 salim.rarأخي العزيز / أبو حمادة وبعد أذنأستاذنا الكبير سليم حاصبيا حفظه الله وبارك الله فيه هذا حل عن طريقة التصفية المتقدمة إن شاء الله يفي بالغرض والعفو 3454.rar
  19. الأستاذ القدير / سليم حاصبيا السلام عليكم ورحمة الله وبركاته أتقدم إليكم بالتهنئة بهذه الترقية المستحقة فهو قرار سليم للأخ سليم وإن كانت متأخرة فأعتذر لذلك وأتمنى لك الترقي والتقدم في كافة مجالات الحياة حفظك الله تحياتي وتقدير لكم ولجميع الإداريين والمشرفين والأعضاء
  20. الأستاذ القدير / عمر الحسيني جزاكم الله خير على هذه الأعمال أعمالكم ورددوكم هي بمثابة دروس نتعلم منها بارك الله فيكم وفي علمكم وزاد كم الله علما ورفعة تقبل تحياتي وتقديري
  21. أخي العزيز / بوب 2016 السبب لتغير تسمية الأوراق في الملف حيث تغيرت الورقة باسم (توزيع الشفوي ) إلى ورقة 1 بدلا من ورقة 19 في الملف ( تمهيد ) المهم تم نقل كود الأستاذ القدير زيزو جزاه الله خير و العفو تجربة1.rar
  22. أخي العزيز / بوب 2016 أرجع إلى حل الأستاذ القدير / زيزو العجوز حفظه الله فهو أفضل فهو لم يغير شيء في الملف
  23. أخي العزيز / بوب 2016 وبعد أذن أستاذنا الكبير وأستاذ الكل / ياسر خليل حفظه الله هذا حل عن طريق كود مسجل للتصفية المتقدمة ولكن قبل تطبيق الكود قمت بالتعديل في عنواين الأعمدة ( رقم الجلوس ) و ( اسم الطالب ) من أجل أن تكون التسمية نفسها في ورقة المصدر وإلا لن تعمل التصفية كما تم إلغاء دمج صفوف عناوين الأعمدة لتكون في صف واحد فقط لأنه مع الدمج لن يعمل الكود إن شاء الله يلبي هذا طلبك تقبل تحياتي تمهيد.zip
  24. أخي العزيز / حسين 22 بصراحة لم أدرك سبب الخطأ لعدة أسباب أولا : لست أنا صاحب هذا العمل وإنما قمت بنقله وتطبيقه على ملفك ثانيا : خبرتي في الأكواد ضعيفة لا أستطيع أدراك الخطأ الذي أردته وبالنسبة للأوفيس أنا استعمل 2016 وشغال معي كويس يمكن تجاوز المشكلة من خلال إدخال التاريخ يدوي والعفو تقبل تحياتي
  25. أخي العزيز / تحيا مصر السلام عليكم ورحمة الله وبركاته بالنسبة لطلبك الأو ل هناك خلل في الرابط الذي أرفقته وبالنسبة لطلبك الثاني ( شيت نتيجة الدين ) تم حل الفراغات بواسطة عمودين مساعدين واحد لمادة الإسلامية والآخر للمسيحة إن شاء الله يلبي هذا طلبك شيت نتيجة الدين.rar
×
×
  • اضف...

Important Information