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

عبدالله المجرب

أوفيسنا
  • Posts

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

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

  • Days Won

    47

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

  1. اخي الفاضل استخدم التنسيق الشرطي بان يجعل لون الخلية ابيض اذا كانت قيمتها صفر
  2. جرب هذا الكود بداية قم بإزالة الدمج في الورقة 2 وكذلك امسح البيانات فيها ثم فعل الكود Sub Abu_Ahmed() Set MySh = Sheets("ورقة2") For i = 1 To 30 If i = 1 Then MySh.Range("A" & MySh.[A10000].End(xlUp).Row) = [D4] MySh.Range("A" & MySh.[A10000].End(xlUp).Row & ":" & "B" & MySh.[A10000].End(xlUp).Row).Merge End If If i = (Val([E4]) + 1) Then MySh.Range("A" & MySh.[A10000].End(xlUp).Row + 3) = [D5] MySh.Range("A" & MySh.[A10000].End(xlUp).Row & ":" & "B" & MySh.[A10000].End(xlUp).Row).Merge End If If i = (Val([E4]) + Val([E5]) + 1) Then MySh.Range("A" & MySh.[A10000].End(xlUp).Row + 3) = [D6] MySh.Range("A" & MySh.[A10000].End(xlUp).Row & ":" & "B" & MySh.[A10000].End(xlUp).Row).Merge End If MySh.Range("A" & MySh.[A10000].End(xlUp).Row + 1) = Cells(i + 1, 1) Next End Sub
  3. طلبك غير مفهوم لانه حالياً بالبحث عن رقم معين تظهر بياناته
  4. هذا الموضوع مميز ويستحق التثبيت ××××××× مثبت ××××××× الإدارة
  5. السلام عليكم اخي الفاضل الكود الذي نقلته له اشتراطات وانت لم تعمل بها ومنها انه لا يوجد مربعي نص بهذين المسممين DBNew - DBOld لوضع المسار فيها ============== لنقل اي كود يجب العمل على تعديل ما يلزم ليعمل الكود
  6. السلام عليكم اعتقد في البداية يجب ان يكون هناك رابط بين هذه الجداول (على سبيل المثال جداول الضمان) ليس هناك رابط بينها وبين الاجهزة حاول تعديل جداولك بحيث تكون هناك علاقة ربط حسب الجدول == مثلاً جدول موقف الضمان وجدول ضمان قطع الغيار اظن انه يمكن دمجهما في جدول واحد يكون فية رابط برقم المنتج الذي ينطبق عليه الضمان وهكذا
  7. هل ممكن ارفاق الملف فقد تكون المشكلة في الكمبيوتر وليس في الاكسل
  8. السلام عليكم (منقول) ملف به شرح للاستاذ محمد طاهر Etqan.rar
  9. بارك الله فيك اخي محمود تم تعديل العنوان ليُفهم منه انه ليس طلب
  10. ممكن عمل التلوين بالكود ان شاء الله ضع مرفق
  11. السلام عليكم بعد فحص الملف لا يوجد كود لمنع عمل الملف اذا كان الامان مرتفع ولكنها حيل متقنه تم عملها لاخفاء الشيتات وللعلم فانه قبل الخروج من البرنامج يتم اختيار ورقة (Information) لتكون هي الورقة المفعلة ولكون تفعيل الاوراق يتم بالكود فاذا كان الامان مرتفع لن تفعل الاوراق شاهد الصورة
  12. فكرة جميلة أستاذ ابو خليل
  13. بارك الله فيك استاذ عبدالله
  14. السلام عليكم اليك هذا المرفق من عمل الاستاذة زهرة za-School-UP (1).rar
  15. هل تقصد تريده يظهر أم لا يظهر
  16. إجعل مصدر البيانات استعلام وضع في المعايير الفرز تنازلي
×
×
  • اضف...

Important Information