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

أبوأحـمـد

03 عضو مميز
  • Posts

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

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

  • Days Won

    34

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

  1. الطباعة يفضل فتح موضوع جديد تبعا لسياسة المنتدى 77.xlsm
  2. أنا ثبت المدخلات لحمايتها وهنا بالمعادلات بيان السولار اليومى لمزارع الامهات (1).xlsm
  3. لابد أن نحقق هذه الطلبات باستخدام أكواد VBA هل ترغب بذلك؟
  4. هذا بالمعادلات VLOOKUP عرض سند بواسطة الكود.xlsx وهذا بالأكواد بعد تسريع الكود ولك حرية الاختيار VLOOKUP عرض سند بواسطة الكود.xlsb
  5. استخدم الدالة COUNTIF ثم قم بفرز نتيجة الدالة واحذف المكرر المثال بالمرفق =COUNTIF(A:A;D2) المصنف1.xlsx
  6. كرما حدد اليوزر فورم المطلوب بالرقم وورقة العمل التي بها رصيد المخزن وعمود الرصيد لأن الملف ما شاء الله كبير
  7. وعليكم السلام ورحمة الله وبركاته لماذا تخصص لكل يوم صفحة في نهاية العام سيصبح عندك 365 صفحة وسيصعب التعامل معها من الأفضل جمع العمل في صفحة واحدة ليسهل الاستعلام والتعديل واستخراج النسب والمجاميع
  8. وعليكم السلام تفضل VLOOKUP عرض سند بواسطة الكود.xlsm
  9. هناك طرق كثيرة للوصول لما يريد الأخ ولكن عمليا ليست مريح منها أيضا =IF(C2="المبلغ";C1;IF(ISNUMBER(B3);A2;"")) نقل المسميات حسب الشرط.xlsx
  10. ليس له دخل أضف العميل في ورقة المبالغ المتأخرة أو استخدم الدالة IFERROR لإخفاء الخطأ
  11. إذا تقصد هذا فمعناه: لم يجد للعميل سجل في المبالغ المتأخرة
  12. وعليكم السلام ممكن صورة للخطأ اللي تقصد
  13. ماهي النتائج الصحيحة التي تريدها ؟ وعلى أي أساس يتم احتساب عمر الدين المتبقي؟
  14. تفضل نسبة التحصيل العلمي للطلاب.xlsb
  15. وعليكم السلام تفضل maro1.xlsm
  16. وعليكم السلام الطريقة التي تريد العمل عليها ليست عملية وتتطلب معادلات طويلة هناك طرق أخرى منها ما عملت لك في المرفق أضفت جدول تصنيف المنتجات تستطيع إضافة إلى 9 تصنيفات فقط ويمكن إخفاء هذا الجدول وسيكون الرقم الأول الأيسر من المنتجات خاص للتصنيف وبعد كتابة هذا الرقم ستضيف المعادلة اسم التصنيف نقل المسميات حسب الشرط.xlsx
  17. ضع هذا آخر الكود قبل 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
  18. أخي الموسطي إذا تأخر الرد فاعلم أن السؤال غير واضح وسندخل في تخمينات وربما إجابات غير صحيحة حاولت أخمن ما تريد فخرجت بهذا الحل يمكن اختيار العميل من القائمة فتظهر لك عملياته كاملة جديد (1).xlsx
  19. وعليكم السلام ورحمة الله وبركاته ولو أني لم أفهم جيدا المطلوب ولكن مشاركة مع أستاذي عبدالفتاح If InStr(TextBox1.Text, "k") > 1 Then MsgBox "الحرف موجود" End If
  20. طمنا يا أستاذ hhnazmy المعادلة جابت نتيجة أو لا أهم شي تفهنا المطلوب والأساتذة في هذا المنتدى ما شاء الله قادرين على حل أعقد المسائل
×
×
  • اضف...

Important Information