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

عبدالله باقشير

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4796

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  2. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  3. عبدالله باقشير
    جزاكم الله خيرا تقبلوا تحياتي وشكري
  4. عبدالله باقشير
    السلام عليكم حسب ما فهمت من الطلب استخدم الكود التالي Sub kh_Add() Dim Lr As Long Dim i As Integer Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, "A").Value = WorksheetFunction.Max(Range("A2:A" & Lr)) + 1 For i = 0 To 4 Range("B" & Lr).Offset(i, 0).Value = Array("a", "b", "c", "d", "e")(i) Next End Sub تحياتي
  5. عبدالله باقشير
    السلام عليكم RR صف اللست بوكس الصفوف تدخل في اللست بوكس حسب نتائج البحث عبر الكود بواسطة AddItem اما row source تستخدم لادخال نطاق معين تحياتي
  6. عبدالله باقشير
    السلام عليكم بعد اذن اخي عباد حفظه الله شاهد المرفق 2003 FILTER.rar
  7. عبدالله باقشير
    السلام عليكم تعديلك صحيح على فورم UserForm2 لكن انت لا تشتغل على هذا الفورم وانما تعمل على فورم UFormChang تم استبدال الفورم الذي تم التعديل عليه البرنامج_مع_كود.rar
  8. عبدالله باقشير
    ايضا استبدل الكود UserForm_Activate في ملفي المرفق الى ملفك لان هناك سطر من الكود تم التعديل فيه وهو التالي: .List = Range(MyList).Value جرب واشعرنا بالنتيجة
  9. عبدالله باقشير
    السلام عليكم اذا كنت تريد استخدام اسم نطاق للقائمة بالنسبة لنموذج الادخال قمنا بتعديل بسيط ليتناسب مع طلبك المرفق 2003 فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar
  10. عبدالله باقشير
    السلام عليكم قد تم تنفيذ هذا الطلب من سابق المرفق 2003 ترتيب العشرة الاوائل حسب المجموع والعمر2.rar
  11. عبدالله باقشير
    السلام عليكم اعتمدنا على المعادلة في الخلية D41 في موازنة القيد تفضل المرفق 2003 اليومية العامة.rar
  12. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم و كل عام و انتم بخير استفسارك غير مفهوم تقبلوا تحياتي وشكري
  13. عبدالله باقشير
    السلام عليكم كل عام وانتم بخير تقبلوا تحياتي وشكري
  14. عبدالله باقشير
    السلام عليكم جرب هذا الكود Sub D_Shp() Dim Sn As Shape For Each Sn In ActiveSheet.Shapes If Sn.AutoShapeType = 183 Then Sn.Delete Next End Sub انا جربته على 2010 يعمل تمام
  15. عبدالله باقشير
    السلام عليكم بعد اذن اخي الحبيب ابو انصار وائراءا للموضوع شاهد المرفق 2003 اضافة خظ مائل الى ربع الدرجة.rar
  16. عبدالله باقشير
    السلام عليكم ليس لاي عمود علاقة بتسلسل البيانات في الفورم التسلسل يوخذ تلقائيا حسب موقع السجل في قاعدة البيانات اما عمود التسلسل هذا اختياري ممكن تستخدمه وممكن لا فهمت
  17. عبدالله باقشير
    الطلب غير مفهوم
  18. عبدالله باقشير
    السلام عليكم لو فرضنا ان الخلية هي B3 =LEN(TRIM(B3))-LEN(SUBSTITUTE(TRIM(B3);" ";""))+IF(LEN(TRIM(B3));1;0) تحياتي
  19. عبدالله باقشير
    جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
  20. عبدالله باقشير
    السلام عليكم جزاكم الله خيرا وبارك فيكم و كل عام و انتم بخير تقبلوا تحياتي وشكري
  21. عبدالله باقشير
    اسعدني مروركم وكلامكم الطيب جزاكم الله خيرا وبارك فيكم و كل عام و انتم بخير تقبلوا تحياتي وشكري
  22. عبدالله باقشير
    تم تحميل نموذج جديد مع البحث في جميع الاعمدة والطباعة في المشاركة 1 تقبلوا تحياتي وشكري
  23. عبدالله باقشير
    السلام عليكم اضفنا عمود للتسلسل للمساعدة في المعادلة =IF(SUBTOTAL(2;A9:A13)=COUNT(A9:A13);"";VLOOKUP(SUBTOTAL(4;A9:A13);A9:F13;5;0)) شاهد المرفق 2010 Book 111.rar
  24. عبدالله باقشير
    اسعدني مروركم وكلامكم الطيب جزاكم الله خيرا وبارك فيكم و كل عام و انتم بخير تقبلوا تحياتي وشكري
  25. عبدالله باقشير
    السلام عليكم هذه محاولة بالكود المرفق 2003 بحث في اربعة اعمدة.rar
×
×
  • اضف...

Important Information

  I accept