زياد عبد الجليل

من باب الفضول و الطلب اكثر كنت اعتقد ان الامر صعب و مستحيل ولكن مع العمالقة لا يوجد شئ مستحيل لدي طلب ثاني ان امكن وهو تقسيم الناتج على 2 وهو تقريبا نفس المبدا في الموضوع السابق...اليكم الملف التالي تقسيم السنوات و الاشهر و الايام على 2.rar

شكرا لجميع الاساتذة الافاضل على هذه الردود المميزة وكلها تصب في نفس السياق لكن الاستاذ عمرو محمد جاوب على المطلوب بدقة بارك الله فيك استاذ وبارك الله في جميع الاساتذة الذين شرفوني بردودهم ...الف شكر

شكرا استاذ وبارك الله فيك

السلام عليكم اساتذتي الافاضل لدي طلب يبدو صعب نوعا ما لانني حاولت ولكن للاسف لم اصل الى الحل الطلب يتمثل فيما يلي: لدي خلية بها مجموع السنوات و خلية فيها مجموع الاشهر في حالة ما اذا كان مجموع الاشهر يمثل سنة اي 12 شهر او 24 او 36 ...الخ اريد ان يحول هذا المجموع الى سنوات و اضافته الى خلية السنوات مع الاحتفاظ بالباقي الذي لا يمثل مجموعه سنة اما الايام اذا كان مجموعها يمثل شهر مثلا و ايام على سبيل المثال اريد اضافة هذا الشهر الى مجموع الاشهر و الاحتفاظ بالباقي الذي لا يصل مجموعه الى 30 يوم اعلم انه صعب نوعا ما و لكن ثقتي كبيرة في عمالقة المنتدى و لكم مني جزيل الشكر تحويل الاشهر الى سنوات و الايام الى اشهر.rar

استاذ سليم ارجو منك ان توضح لي كيف تحقق الشرط لا يوجد معادلة او كود

نفس الشئ استاذ ياسر لم تفلح معي الخلية c5 خلية الناتج تخرج عبارة #NOME?

استاذ ياسر لم تمل معي المعادلة بشكل جيد وتخرج لي رسالة خطأ هل يمكن التطبيق على الملف المرفق ولك مني جزيل الشكر

السلام على جميع الاخوة الافاضل: اريد مساعدة في ملف حيث لدي خلية حساب اريد في خلية الناتج بدلا من كتابة 0 تكتب لي اعمدة بهذا الشكل //// ولكم مني جزيل الشكر كتابة اعمدة بدلا من الصفر.rar

شكرا استاذ سليم هذا هو المطلوب بالضبط

شكرا استاذ سليم على هذا العمل القيم ولكن ملفي للاسف لم اوضح بشكل جيد المطلوب نظرا للاستعجال ولكن لا اريد الاختيار بل اريد ان اكتبها او احضارها عن طريق rechercheV ولك من يجزيل الشكر

السلام على جميع الاساتذة الافاضل اما بعد، لدي طلب في الملف المرفق حيث لدي جدول فيه بيانات للوظيفة و الراتب و المنحة و لدي خلية اريد بمجرد ان اكتب فيها وظيفة من الوظائف الموجودة في الجدول تستحضر لي منحة هذا الموظف و راتبه مثال : بمجرد كتابة سائق مثلاا في الخلية c11 يتم احضار البيانات المتعلقة بمنحة هذا السائق و راتبه ولكم مني فائق عبارات الشكر و التقدير و جمعة مباركة للجميع وتقبل الله منا الصيام و القيام ...و السلام عليكم و رحمة الله تعالى و بركاته احضار بيانات اليا.rar

بارك الله فيك استاذ سليم موضوع رائع

السلام على جميع الاخوة الافاضل و جمعة مباركة ان شاء الله لدي طلب للاساتذة الافاضل و بالاخص الجزائريين مساعدتي في الحصول على برنامج لحساب الترقية في الدرجة في الوظيف العمومي ولكم مني اصدق عبارات الشكر و العرفان

بارك الله فيك استاذ وقي على هذا العمل المتميز و الرائع وهذا ان دل على شئ فدل على انم انت شخصيا متميز و متفوق اريد ان اضيف شئ بعد تجربة الملف الرائع وحتى يكتمل الملف بشكل تام هو ان التاريخ يكتب بطريقة غير صحيحة اي الشهر مكان اليوم و العكس 2- عند الحذف هل ممكن ان يعاد ترتيب الارقام تسلسليا 3- كيف يمكن اخفاء التكتس بوكس من محرر الاكواد واعادة اضهارهم تحياتي الخالصة و بارك الله فيك استاذ شوقي مع مزيد من الاعمال المتميزة و الرائعة ...شكرا و بارك الله فيك

السلام على جميع الاخوة الافاضل اما بعد: لقد حملت مؤخرا ملف رائع لاحد الاساتذة الافاضل به ملف اكسيل و صفحة انترنت مصممة تقوم بربط و اضهار البيانات المطلوبة على صفحة الانترنت المطلوب رجاء ان امكن شرح كيفية ربط هذا الملف و اضهار النتيجة بدقة (ان امكن فيديو توضيحي ) اخواني انا الان في دورة تكوينية لتصميم مواقع الويب و لقد شوقني هذا الملف كثيرا لان في دروسنا نعمل بقاعدة البيانات وهي معقدة جدا ولا تستهويني فانا افضل العمل على ملف اكسيل ولكم مني جزيل الشكر اليكم الملف ntiga.rar

السلام عليكم استاذ ياسر على هذه المصطبة المتميزة عندي استفسار حول كيفية عرض البيانات الموجودة في ملف الاكسيل غلى الليست بوكس من خلال فيجوال بيسك 6 و كيف يمكن اضافة زر التعديل و الحذف و شكرا جزيلا لك

للرفع

ملف رائع اخي جلال و لكن هل يمكن شرح كيفية اخفاء الاكواد و الفورم داخل محرر الاكواد

للرفع

السلام على جميع اساتذتنا الافاضل اما بعد : اريد مساعدة في كود حذف سطر من جدول بحيث يقوم بحذف سطر بعد اختياره من ليست بوكس بشرط ان يقوم بالحذف من الخلية b الى o مع بقاء محتوى الخلية a ...اي اريد حذف وليس مسح ان امكن هذا ولكم مني فائق عبارات الشكر و التقدير حذف سطر.rar

لقد وجدت حل الترقيم الالي التسلسلي في الكود التالي With Feuil19 Last = wr.Range("b31").End(xlUp).Row + 1 .Cells(Last, 1) = Last - 20 End With ولكن يبقى الاشكال عند الحذف على العموم اعلم ان الطلب شبه مستحيل و صعب اشكر كل من اطلع على الموضوع و حاول تقديم المساعدة ...واخص بالذكر الاستاذ ياسرالذي شرفني بمروره الطيب على الموضوع بارك الله في الجميع

استاذ ياسر شكرا على مرورك الطيب ...انا اود عند ترحيل البيانات الى الجدول حسب الملف المرفق يقوم يترقيم المرحلين تسلسليا من 1 الى غاية اخر مرحل وليكن 5 كاخر مرحل ولكن عند حذف سطر مثلا و ليكن السطر الذي يحمل رقم 3 اود ان يعاد الترتيب تسلسليا من 1الى 4 وليس 1.2.4.5. الكود الموضوع في حدث الورقة يعمل بشكل جيد ولكن عند الترحيل الى الجدول الثاني يجب عدم كتابة اي شئ في الخانات من b34:b40 واذا رحلنا الى هذه الخلايا هنا الترقيم سيتسلسل ابتداء من الخلية a21الى غاية اخر خلية بها قيمة في العمود b . المطلوب ان امكن تعديل هذا الكود و حصره في التعامل مع النطاق من a21:a30 و النطاق a34:a40 او تقديم كود جديد يغنينا عن هذا الكود . Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long: Lr = Cells(Rows.Count, "B").End(xlUp).Row Dim myRange As Range Dim cell As Range Set myRange = Range("b21:b" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 20 Next cell End If Set myRange = Range("B34:B" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 33 Next cell End If End Sub وعند وضع الكود بهذا الشكل عن مسح خلايا بها قيم يرقم من الخلية a1 بهذا الشكل -1.-2.-3.-4.....ارجو وضع هذا الكود في الملف المرفق للاطلاع على المشكلة بدقة ولكم مني جزيل الشكر ...وانا على علم بان هناك من الاخوة الافاضل من لديه الحل سواء لهذا الكود او لكودجديد ان شاء الله...استودعكم الله الذي لا تضيع ودائعه ولكم مني جزيل الشكر و العرفان

Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long: Lr = Cells(Rows.Count, "B").End(xlUp).Row Dim myRange As Range Dim cell As Range Set myRange = Range("B21:B" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 20 Next cell End If End Sub لقد وضعت هذا الكود في حدث الورقة و يعمل بشكل جيد و لكن الاشكال هو ضرورة عدم كتابة اي شئ في العمود b من b33:b34 ارجو التعديل في هذا الكود و جعله يرقم من a21:a30 ونفس الشء بالنسبة للجدول ادناه من a34:a40

للرفع

السلام على جميع الاساتذة الافاضل ...عندي طلب يتمثل في الاتي 1- عندي ملف به فورم يتم من خلالها ترحيل بيانات من صفحة الى صفحة محددة اود عند الترحيل ان يقوم بعمل ترقيم تسلسلي في الخانة a اي كلما رحلت سطر ياخذ رقما تسلسليا و في حالة حذف سطر كذلك يعاد الترقيم تسلسليا و اليا لمعرفة المطلوب بدقة ارجو الاطلاع على الملف المرفق و لكم مني جزيل الشكر و التقدير ترقيم تسلسلي عن طريق الفورم.rar