بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
احمد بدره
-
Posts
979 -
تاريخ الانضمام
-
Days Won
6
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه احمد بدره
-
-
طالما الخلية b26 تكون ناتج جمع b4 : b25 فيجب استخدام عملية الجمع في الخلايا المجاورة c4:c25 وهكذا
لاحظ مجموع الخلايا من g4:g25 يكون مساويًا مجموع الخلايا b26:g26
-
بارك الله فيك أستاذنا الفاضل سليم حاصبيا
أستاذي مهندس الإكسيل
الغرض من الشرط الثاني ان السائل يريد في خانة المجموع كلمة صفر بدلا من رقم 0
فإذا كان المجموع 0 يكون الناتج صفر باللغة العربية
ممكن وضع هذا الشرط منعًا من التلاعب أو للتنيه
-
2
-
-
بعد إذن الأستاذ / مهندس الإكسيل
المعادلة هذه والسحب نزولاً تفي الغرض
=IF(AND(A1="غ";B1="غ";C1="غ");"غ";IF(SUM(A1:C1)=0;"صفر";SUM(A1:C1)))أو تبع إعدادات جهازك
=IF(AND(A1="غ",B1="غ",C1="غ"),"غ",IF(SUM(A1:C1)=0,"صفر",SUM(A1:C1)))ولا داعي لرفع الملف مضغوط طالما حجمه صغير
-
1
-
-
جرب هذا لعله يفي الغرض
-
2
-
-
ولك بمثل ما دعوت - جرب هذا
-
3
-
-
تم حذف
Sheets("login").Selectوتم إضافة
Sheets("login").Visible = 1 Sheets("login").Activateفي بداية الكود
وتم لإضافة
Sheets("login").Visible = 2في نهاية الكود
لأن Sheets("login") يجب أن يكون مرئي عند عمل الكود وتم إخفاء مرة أخرى بعد تشغيل الكود
جرب هذا ربما يفي الغرض
-
3
-
-
تسلم الأنامل أستانا الفاضل
بارك الله فيك جعله الله في ميزان حسناتك
-
1
-
-
يجب نوع الخط Wingdings 2 لهاتين العلامتين فقط
لإدراج علامة صح اضغط مفتاحي shift+p ولإدراج علامة × اضغط مفتاحي shift+o
أو ممكن من قائمة إدراج اختر رمز ومن المربع الحواري اختر رموز ثم اختر نوع الخط Wingdings 2 واختر الشكل رقم 80 لإدراج علامة صح والشكل رقم 79 لإدراج علامة ×
-
3
-
-
بعد إذن أستاذنا الجليل سليم حاصبيا لإثراء الموضوع
أرى أن المعادلة في العمود A4 والسحب يسارًا ونزولا حيث أنه لابد من تقريب الناتج لأقرب عدد صحيح فيحتاج الدالة ROUNDUP لأن الناتج يجب أن يكون يكون في خلية واحدة وليس أكثر
أما الدالة التوزيع تأتي بالناتج أحيانا في خليتين متجاورتين حتى لو استخدم الدالة ROUNDUP
=IF(ROUNDUP(SUM(C4:Z4)/6;0)=AA$3;AA$3;"") -
يمكن أن يكون المطلوب
-
ألف مبروك وبالتوفيق دائمًا بإذن الله
-
2
-
-
الملف لا يفتح
-
1
-
-
عليكم السلام ورحمة الله وبركاته
تم تعديل اسماء أوراق العمل حتى يعمل الكود بشكل سليم
تم إضافة أوراق عمل لباقي شهور السنة تجنبًا لترتيب أوراق العمل
تم إضافة تحديد ورقة العمل ( الشهر ) الذي يتم فيه ترحيل البيانات تلقائيًا
ملحوظة تم رفع الملف مضغوط لأنه حجمه كبير ولا أدري ما السبب
إذا لم يفتح معلك قم بتنزيل برنامج ون رار إصدار حديث
-
1
-
-
جرب هذا
-
2
-
-
-
جرب هذا الكود ممكن أن يفي الغرض
=IFERROR(VLOOKUP(A3;$I$3:$I$28;1;FALSE);VLOOKUP(A3;$L$3:$L$28;1;FALSE))شاهد المرفق
-
2
-
-
أستاذ / خالد عوده
ممكن تكون المشكلة لديك في إعدادات مركز التوثيق
من قائمة ملف اختر خيارات اذهب إلى مركز التوثيق ثم اختر إعدادت مركز التوثيق في الجهة المقابلة تظهر رسالة مركز التوثيق اختر منها إعدادات الماكرو
من إعدادت الماكرو اختر تمكين كافة إعدادت الماكرو ( غير مستحسن يمكن أن ينم تشغيل تعليمات برمجية خطيرة )
واختر اسفلها الثقة في الوصول إلى كائن مشروع VBA
-
أستاذ / خالد عوده
ممكن تكون المشكلة أنك بعد إدخال الموديولات لم تغلف الملف
فلابد بعد وضع الموديولات حفظ الملف وإغلاقة ثم معاودة فتحه
والملف الذي رفعته في المشاركة السابقة باسم تجربة كان يعمل لدي بدون أي مشكلة
-
-
أستاذ tiger2016
الكود يعمل على كل خلايا ورقة العمل إذا كانت بها معادلات
تم عمل كود ترحيل باسم ahmed أعتقد أنه يفي الغرض
-
1
-
-
عليك السلام ورحمة الله وبركاته
شاهد الصورة
-
عليك السلام ورحمة الله وبركاته
جرب هذا
اختر اسم الشركة من القائمة وبعد ذلك اذهب اسم الصنف اختر اسم الصنف من القائمة وبعد ذلك اذهب واختركود الصنف من القائمة
لابد من الاختيار بالترتيب
أي أنه عند اختيار اسم الشركة والذهاب للخلية المجاور تظهر قائمة خاصة بأصناف هذه الشركة فقط وعند الذهاب للخلية المجاورة يظهر كود الصنف في القائمة
-
عليك السلام ورحمة الله وبركاته
تم عمل شرط لكل عنوان إذا كان فارغ لايتم حساب الكمية × السعر
جرب هذا
-
2
-
-
-
1
-
جعل الارقام في خلية واحدة
في منتدى الاكسيل Excel
قام بنشر
جرب هذا
OFFICE.xls