بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
احمد بدره
-
Posts
979 -
تاريخ الانضمام
-
Days Won
6
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه احمد بدره
-
-
أولا لا داعي وضع ملف مضغوط طالما حجمه صغير
ثانيًا تم وضع كود للحذف وترحيل لورقة العمل مخزن من اليوزر فورم
ثالثًا تم وضع عمل ماكرو أبجدي ليعمل عند الإضافة أو التعديل أو الحذف عن طريق الفورم في شيت new كحل للترتيب الأبجدي بعد الإضافة أو التعديل أو الحذف في شيت new
أما أن يتم الترحيل كما تريد فأعتقد أنه لا يكمن ذلك لأن الترحيل لآخر خلية بها بيانات في عمود D
-
1
-
-
وعليكم السلام ورحمة الله وبركاته
شكرًا لجهودهم في تطوير المنتدي جعل الله هذا الصرح العظيم في ميزان حسناتكم
-
أولاً يجب رفع الملف بتسيق وحدات ماكرو ممكنة حتى لا تضيع وقت الأساتذة وتتسبب في ثقل الجهاز الخاص بكل شخص منهم
تم عمل الترقيم بحيث إذا تم حذف أي صف يتم إعادة ترتيب الترقيم
وتم عمل البحث بالاسم
-
1
-
1
-
-
بعد إذن أستاذنا الفاضل سليم حاصبيا جرب هذا
وأرجو من أي شخص يقوم برفع ملف على المنتدى بدون حماية ويكون ملف مثال للمطلوب ( الجزء المراد التعديل عليه وورقة العمل المرتبطة به إذا كان هناك ارتباط ) وليس ملف كامل حتى يتسنى لأي عضو من أعضاء المنتدى تقديم المساعدة وعدم إهدار وقت كل من يحاول الدخول للمساعدة
الملف مضغوط وهو بنوع ملف تمكين وحدات الماكرو بعد التنزيل قم بحفظه بتسيق 97- 2003 إذا شئت
-
1
-
-
تم عمل كود ترتيب حسب السن بجانب زر الترتيب الأبجدي وتم عمل الترحيل كقيم
-
2
-
-
أولاً من قواعد المنتدى عدم توجيه المساعدة من شخص بعينه حتى يتسنى لأي عضو المساعدة وممكن أن يساعدك يكون لديه خبرة أكثر منه أو الشخص الذي تم التوجيه إليه عنده ظروف فكل عضو يعمل حسب ظروفه
الملف ثقيل جدا وحجمه كان كبير
ثانيًا حضرتك قمت بسخ الشيتات ولم تقم بنسخ الماكروهات فتم نسخها وتم عمل ماكرو لترتيب الطلاب على ملف Main وتم عمل كود ترحيل عمود الاسم والنوع من شيت Main إلى شيت تسجيل البيانات وتفعيل زر الترتيب واستدعاء البيانات
تم تغيير امتداد الملف لرفعه على المنتدى حيث أن أقصى حجم هو 3 ميجا ممكن بعد تنزيله تقوم بحفظه بتسيق 97-2003
-
3
-
-
لا شكر على واجب ولك بمثل ما دعوت
لا تنس اختيار أفضل إجابة حيث أن الموضوع أصبح مكتمل
-
1
-
-
تم عمل التحقق من الصحة بحيث لا يتم الكتابة في العمود B إلا إذا كانت الخلية A2 بها بيانات
وأيضا العمود C لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود B فارغة
وأيضا العمود D لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود C فارغة
وأيضا العمودE لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود D فارغة
وأيضا العمودF لا يتم الكتابة إذا كانت الخليةالمجاورة بالعمود E فارغة
وتم عمل معادلات بالعمود G للاستعانة حتى يتم الترحيل عندما تكون الخلايا من B : E غير فارغة وإلا لا يتم تنفيذ الترحيل وتظهر رسالة بيانات ناقصة
-
1
-
-
على حسب فهمي
جرب هذا بشرط الترحيل من الخلية A2 إلى الخلية F2
حتى لا يتم الترحيل إذا كانت إحدى الخلايا فارغة وتظهر رسالة بينات ناقصة
-
1
-
-
جرب هذا لعله يفي الغرض
-
1
-
-
تم تعديل المعادلات
-
1
-
-
تسلم الأنامل أستاذنا الفاضل إبراهيم الحداد
وبعد إذنك حضرتك تم التعديل في تاريخ الإحالة والنوع
حيث أن تاريخ الإحالة قبل تاريخ الميلاد بيوم
-
1
-
-
أتوجه بالشكر لأستاذنا الفاضل إبراهيم الحداد على مروره وبعد إذنه
تم التعديل على كوده وأصبح يعمل بصورة ممتازة
-
2
-
-
تسلم الأنامل بارك الله فيك
-
1
-
-
عليكم السلام ورحمة الله وبركاته
خلية اسم الشهر في ورقة العمل J1 وفي الكود كانت I1
وتم تعديلها
جرب هذا لعله يفي الغرض
-
2
-
1
-
-
من المفترض أن تكون الشرط الأربعة لنفس الخلايا لأنه بعد كتابة المعادلة يتم السحب نزولا لأسفل
والأربع معادلات التي كتبتبهم في الملف يعتبروا شرطان فقط
أول شرط عندما تكون الخليتان كلاهما أكبر من الصفر
الثاني عندما تكون الخليتان كلاهما أصغر من الصفر
على العموم حسب فهمي ممكن يتكون المعادلة
=IF(AND(L5>0;S5>0);"مستلم منفذ ";IF(AND(L5>0;S5=0);" منفذ غير مستلم ";IF(AND(L5=0;S5=0);" غير مستلم وغير منفذ ";" مستلم غير منفذ ")))ثم السحب نزولا لأسفل
-
2
-
1
-
-
تم إضافة مسح النطاق من a2 : p27 بعد الترحيل
-
1
-
-
-
1
-
-
جرب هذه الفكرة ربما تفي الغرض
وهي أن يتم عمل عمود لكل اسم تريد الترحيل المبلغ فيه
-
1
-
-
تنبيه عند إرفاق ملف إكسيل يجب أن يكون من نوع تمكين وحدات الماكرو حتى يتسنى للأعضاء المساعدة بإرفاق ملف العمل بعد التعديل
فقط الكود يحتاج تعديل اسم ورقة العمل فقط
Sub Transfer() Sheets("ترحيل واستدعاء").Activate For Each F In Range("e2:E1000") If F <> "" Then x = F.Value Range(F.Offset(0, -4), F.Offset(0, 0)).Copy LR = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row Sheets(x).Activate Range("A" & LR + 1).Select Selection.PasteSpecial xlPasteValues End If Next F Sheets("ترحيل واستدعاء").Activate Application.CutCopyMode = False Range("A2:E1000").ClearContents MsgBox "تم الترحيل الى كل صفحة بنجاح" End Sub-
1
-
-
وعليكم السلام ورحمة الله وبركاته
وأنت بكامل الصحة
جرب هذا
بعد اضافة كود فاصل الصفحات ...المرتبات قانون81 شهر يوليو2020لعدد220موظف.xlsb
-
3
-
-
بعد إذن أستاذنا الفاضل علي
لإثراء الموضوع يمكن استعمال دالة vlookup
شاهد الملف المرفق
-
1
-
-
-
1
-
-
أستاذ / القول المأثور المعادلة الأخيرة لا يمكن أن تحسب الصفوف المخفية وإن كثر عدد الصفوف
-
1
-
فرز متخصص حسب تسلسل المنصب وليس الحرف الأبجدي
في منتدى الاكسيل Excel
قام بنشر
تسلم الأنامل أستاذنا الفاضل وجعله الله في ميزان حسناتكم