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

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4,444

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

  • Days Won

    192

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    في هذه الحالة يلزمك زيادة عمود نوع الطلبية نقدي أو تقسيط يختار من خلال القائمة وفي عمود السعر نستخدم دالة if =if(c1="نقدي", formula 1, formula 2) حيث المعادلة الأولى هي معادلة السعر النقدي والمعادلة الثانية هي معادلة سعر التقسيط والخلية c1 هي الخلية التي بها نوع الطلبية الذي تمت زيادته
  2. أ / محمد صالح
    بارك الله لك أستاذ ياسر طريقة أخرى لتنفيذ المطلوب وبنفس عدد سطور الكود (٦ سطور) وفقنا الله جميعا لكل ما يحب ويرضى
  3. أ / محمد صالح
    المشكلة كما قال أستاذ ياسر تخص تحديث دوت نت فريم وورك وأنصح باستخدام نسخة ويندوز أحدث حيث أن شركة ميكروسوفت قد أوقفت الدعم والتحديثات لنسخة اكس بي التي صدرت في ١٩٩٨ وصدر بعدها Vista 7 8 8.1 10 وأكرر جميع هذه الحلول لمشكلة واحدة ويلزمني منها أيسرها وأسرعها في التنفيذ وليس مجرد حصر لكل الحلول وفقنا الله جميعا لكل ما يحب ويرضى
  4. أ / محمد صالح
    أعتقد يجب قبل الدخول لشاشة الكود مع السطر الأصفر تظهر رسالة مثل هذه رجاء تصويرها للتعامل مع الخطأ
  5. أ / محمد صالح
    وفقنا الله جميعا لكل ما يحب ويرضى
  6. أ / محمد صالح
    كدا أسهل وكنت أرجو أن تحاول فيها أولا إنما العلم بالتعلم والمحاولة والخطأ جرب تغيير الكود لهذا Sub addkasr() c = Cells(Rows.Count, "AR").End(xlUp).Row Range("an8:an" & c).ClearContents For n = 8 To c Range("an" & n) = Range("ar" & n) Next MsgBox "ok" End Sub
  7. أ / محمد صالح
    الخلية D5 هي الخاصة بالسعر بها هذه المعادلة =IF(B5="","",VLOOKUP(B5,'اسم المادة والسعر'!$B$2:$C$999,2,0)) وهي تحضر ناتج البحث من العمود الثاني C وهو الخاص بسعر القسط ولجلب سعر النقد الموجود في العمود d =IF(B5="","",VLOOKUP(B5,'اسم المادة والسعر'!$B$2:$D$999,3,0)) أرجو أن يكون هذا هو المطلوب
  8. أ / محمد صالح
    المطلوب غير واضح بصورة كافية رجاء تحديد الأعمدة المطلوب التعديل عليها وتحديد خيارات التعديل بمنتهى التفصيل
  9. أ / محمد صالح
    جميع أكواد السادة الزملاء تعمل بكفاءة ولا يوجد أخطاء وربما تصوير نص رسالة الخطأ وليس شاشة الكود بعد إغلاق الرسالة يفيد في الوصول للحل في مشكلة الكود الرابع
  10. أ / محمد صالح
    بعد إذن أخي وحبيبي في الله الأستاذ سليم حاصبيا جرب هذا المرفق أخي الكريم بكود بسيط يمكن أن يؤدي الغرض Sub addkasr() c = Cells(Rows.Count, "A").End(xlUp).Row Range("h2:h" & c).ClearContents For n = 2 To c Range("h" & n) = Range("j" & n) - Int(Range("j" & n)) Next MsgBox "ok" End Sub mas_كسرالقرش.rar
  11. أ / محمد صالح
    يمكنك كتابة الاختيارات في عمود ثم تقف في الخلية المطلوب عمل قائمة بها ثم من تبويب data (بيانات ) نختار data validation (التحقق من الصحة) ثم من القائمة الأولى نختار list (قائمة) وفي الخاصية source (المصدر) نختار النطاق ثم نضغط على ok موافق لتكون هكذا
  12. أ / محمد صالح
    شكرا جزيلا لكل من شارك الموضوع وفقنا الله لكل ما يحب ويرضى
  13. أ / محمد صالح
    شكرا لمروركم الكريم أحبتي في الله وفقنا الله جميعا لكل ما يحب ويرضى
  14. أ / محمد صالح
    قناة رائعة باللغة الإنجليزية ولدينا الكثير باللغة العربية أيضا مشكورين جميعا على جهودكم الطيبة
  15. أ / محمد صالح
    بعض ما عندكم أستاذ محمود تقبل الله منا ومنكم
  16. أ / محمد صالح
    شكرا لمرورك الكريم على موضوعاتي القليلة أخي الخبير زيزو العجوز وفقنا الله وإياكم لكل ما يحب ويرضى
  17. أ / محمد صالح
    وإياكم أستاذ ياسر بارك الله لك ...................................... رابط الملف المستعمل في الشرح https://www.file-upload.com/9saayxfsiz7l
  18. أ / محمد صالح
    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم
  19. أ / محمد صالح
    مشكور أخي حمادة تجميعة رائعة
  20. أ / محمد صالح
    بارك الله لك أستاذ محمد وفقنا الله وإياكم لكل خير
  21. أ / محمد صالح
    هي فعلا ضمن إكسل ٢٠١٠ و ١٣ و ١٦ وإذا لم تجدها ينبغي عمل إصلاح repair الأوفيس أو إلغاء تثبيته ثم تثبيته مرة أخرى وفقكم الله
  22. أ / محمد صالح
    ما شاء الله رائع أستاذ محمد كل عام وانت بخير وسعاده ورضا
  23. أ / محمد صالح
    تجديد حتى تعم الفائدة للجميع وتكون فرصة لنشر ثقافة العلم قبل العمل تحياتي القلبية
  24. أ / محمد صالح
    لعدم عرض الخطأ يتم إضافة Iferror ثم فتح قوس قبل المعادلة وفي نهايتها فاصلة ثم علامتي تنصيص ثم غلق القوسلتصبح المعادلة =iferror(INDEX(Sheet1!$A$2:$A$1000; MATCH(0; COUNTIF($D$1:D5; Sheet1!$A$2:$A$1000); 0)):"") بالتوفيق
  25. أ / محمد صالح
    توضع البيانات المكررة في العمود a في sheet1 توضع المعادلة في الصفحة الثانية في الخلية d2 ثم تسحب لأسفل مع مراعاة نظام الفاصلة بين أجزاء المعادلات في جهازك هل هي , أو ; حسب إعدادات اللغة هدانا الله جميعا لما فيه الخير
×
×
  • اضف...

Important Information

  I accept