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

أبوأحـمـد

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    347

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

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

  • Days Won

    34

 نوع المحتوي 

كل منشورات العضو أبوأحـمـد

  1. أبوأحـمـد
    الطباعة يفضل فتح موضوع جديد تبعا لسياسة المنتدى 77.xlsm
  2. أبوأحـمـد
    أنا ثبت المدخلات لحمايتها وهنا بالمعادلات بيان السولار اليومى لمزارع الامهات (1).xlsm
  3. أبوأحـمـد
    لابد أن نحقق هذه الطلبات باستخدام أكواد VBA هل ترغب بذلك؟
  4. أبوأحـمـد
    هذا بالمعادلات VLOOKUP عرض سند بواسطة الكود.xlsx وهذا بالأكواد بعد تسريع الكود ولك حرية الاختيار VLOOKUP عرض سند بواسطة الكود.xlsb
  5. أبوأحـمـد
    تفضل bb.xlsm
  6. أبوأحـمـد
    استخدم الدالة COUNTIF ثم قم بفرز نتيجة الدالة واحذف المكرر المثال بالمرفق =COUNTIF(A:A;D2) المصنف1.xlsx
  7. أبوأحـمـد
    تفضل بيان السولار اليومى لمزارع الامهات (1).xlsm
  8. أبوأحـمـد
    كرما حدد اليوزر فورم المطلوب بالرقم وورقة العمل التي بها رصيد المخزن وعمود الرصيد لأن الملف ما شاء الله كبير
  9. أبوأحـمـد
    وعليكم السلام ورحمة الله وبركاته لماذا تخصص لكل يوم صفحة في نهاية العام سيصبح عندك 365 صفحة وسيصعب التعامل معها من الأفضل جمع العمل في صفحة واحدة ليسهل الاستعلام والتعديل واستخراج النسب والمجاميع
  10. أبوأحـمـد
    وعليكم السلام تفضل VLOOKUP عرض سند بواسطة الكود.xlsm
  11. أبوأحـمـد
    تفضل القرآن.xlsm
  12. أبوأحـمـد
    هناك طرق كثيرة للوصول لما يريد الأخ ولكن عمليا ليست مريح منها أيضا =IF(C2="المبلغ";C1;IF(ISNUMBER(B3);A2;"")) نقل المسميات حسب الشرط.xlsx
  13. أبوأحـمـد
    تفضل للارسال.xlsm
  14. أبوأحـمـد
    ليس له دخل أضف العميل في ورقة المبالغ المتأخرة أو استخدم الدالة IFERROR لإخفاء الخطأ
  15. أبوأحـمـد
    إذا تقصد هذا فمعناه: لم يجد للعميل سجل في المبالغ المتأخرة
  16. أبوأحـمـد
    وعليكم السلام ممكن صورة للخطأ اللي تقصد
  17. أبوأحـمـد
    ماهي النتائج الصحيحة التي تريدها ؟ وعلى أي أساس يتم احتساب عمر الدين المتبقي؟
  18. أبوأحـمـد
    تفضل نسبة التحصيل العلمي للطلاب.xlsb
  19. أبوأحـمـد
    تفضل maro1.xlsm
  20. أبوأحـمـد
    وعليكم السلام تفضل maro1.xlsm
  21. أبوأحـمـد
    وعليكم السلام الطريقة التي تريد العمل عليها ليست عملية وتتطلب معادلات طويلة هناك طرق أخرى منها ما عملت لك في المرفق أضفت جدول تصنيف المنتجات تستطيع إضافة إلى 9 تصنيفات فقط ويمكن إخفاء هذا الجدول وسيكون الرقم الأول الأيسر من المنتجات خاص للتصنيف وبعد كتابة هذا الرقم ستضيف المعادلة اسم التصنيف نقل المسميات حسب الشرط.xlsx
  22. أبوأحـمـد
    ضع هذا آخر الكود قبل End Sub 'إجمالي عام For C = 2 To 43 With ورقة6 For R = 14 To 18 Step 4 If .Cells(R, C) > 0 Then coun = coun + 1 .Cells(19, C) = Val(.Cells(19, C)) + Val(.Cells(R, C)) End If Next If coun > 0 Then .Cells(19, C) = Val(.Cells(19, C)) / coun coun = 0 End With Next
  23. أبوأحـمـد
    أخي الموسطي إذا تأخر الرد فاعلم أن السؤال غير واضح وسندخل في تخمينات وربما إجابات غير صحيحة حاولت أخمن ما تريد فخرجت بهذا الحل يمكن اختيار العميل من القائمة فتظهر لك عملياته كاملة جديد (1).xlsx
  24. أبوأحـمـد
    وعليكم السلام ورحمة الله وبركاته ولو أني لم أفهم جيدا المطلوب ولكن مشاركة مع أستاذي عبدالفتاح If InStr(TextBox1.Text, "k") > 1 Then MsgBox "الحرف موجود" End If
  25. أبوأحـمـد
    طمنا يا أستاذ hhnazmy المعادلة جابت نتيجة أو لا أهم شي تفهنا المطلوب والأساتذة في هذا المنتدى ما شاء الله قادرين على حل أعقد المسائل
×
×
  • اضف...

Important Information

  I accept