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

اسكندراني

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

3 Neutral

عن العضو اسكندراني

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    engineer

اخر الزوار

793 زياره للملف الشخصي
  1. السلام عليكم ورحمه الله وبركاته فى الحقيقه فكرة وتطبيق اكثر من رائع فلقد اطلعت على الموضوع وكنت ابحث عن مثل هذة الفكرة وهى فى الحقيقه ممتازة وجزاك الله خير عليها ومجهود اكثر من رائع وقمت بتحميل الملفات والعمل عليها وهى تعمل ولكن فى ملوظه بسيطه وهى ان اى تنسيق للجدول يتلاشي بمجرد جلب البيانات من الملفات النصيه حتى لو كنت عملت تنسيق جدول فى الملف الرئيسي لجعل البيانات فى شكل جدول منتظم فهل من حل لهذة المشكله وجزاكم الله خيرا
  2. تفضل اخي جدول-العلامات-المدرسية-للصف-العاشر-الأساسي-المعتمد-لعام-2017--.rar
  3. الاستاذ الفاضل / صلاح الصغير كل الشكر والتقدير لاهتامك بالموضوع والحقيقه الملف المرفق اكثر من رائع لكن به مشكله واحدة انه لابد من تحديد النطاق وهذا الامر يختلف من ملف الى اخر فبعض الملفات بها 100 صف والاخرى 150 والاخرى 50 مثلا فاذا تم تحديد نظاق معين ممكن ان يكون اقل او اكثر من البيانات الموجودة فى الملف لذلك ارجو فقط التعديل على الكود المرفق او عمل كود جديد يقوم فقط بالمهمه المطلوبه وذلك لحين قيام الاستاذ الفاضل محمد طاهر باصدار الجزء السادس من برنامج مجمع البيانات ويقوم بحل مشكل تحديد النظاقات فيه وارجو ان لا اكون قد اثقلت عليكم وكل عام وانتم بخير
  4. الاستاذ الفاضل - ياسر بالنسبه للكود الذى ارفقته فى اعلى المشاركه هو واضح لى ولكى قمت بوضع مرفق لتعديل هذا الكود ليقوم بنفس المهمه ولكن والملفات التى يجلب منها البيانات تكون مغلقه لانه حاليا حتى يقوم هذا الكود بعمله لابد من فتح جميع الملفات اولا ثم تشغيله ولكنى اريد تعديله ليقوم بنفس المهمه ولكن والملفات التى يجلب منها البيانات تكون مغلقه ويكون فقط الملف book1 هو المفتوح على ان يتم وضع اسم الملف الذى تم احضار البيانات منه فى خانه العمود المجاور للبيانات المنسوخه منه لا ادرى هل استطعت توصيل الفكرة ام لا بمعني يوجد عندي تقريبا 15 ملف باسم من test1 الى test 15 فيتم نسخ البيانات من الملف الاولى الى ملف book1 ولكي يتم التعرف من اى ملف وردت تلك البيانات يتم وضع اسم ملف test1 مثلا بجوار بياناته فى العمود المجاور لها وهكذا لجميع المفات معذرة للاطاله
  5. السلام عليكم ورحمه الله وبركاته الاستاذ الفاضل / ياسر خليل كل الشكر لمرورك الكريم مرفق ملف للعمل عليه وارجو منكم وضع شرح بسيط مع الكود لسهوله التعديل عليه حسب المتغريات المطلوبه وجزاكم الله خيرا الاستاذ الفاضل / صلاح الصغير اشكر ل اهتما مك بالرد ولكن المثال يتم النقل فيه لملف واحد وقد ارفقت ملف يحتوى على مجموعه ملفات يكون الملف الاساسي مثلا book1 وباقى الملفات المرفقه معه ومطلوب نسخ جميع البيانات من الملفات الاخرى الى المف الرئيسي وهى ملغقه New folder.rar
  6. السلام عليكم ورحمه الله وبركاته كل عام والاساتذة الكرام وجميع اعضاء المنتدي الكريم بالصحه والعافيه بمناسبه شهر رمضان المبارك وجعلنا الله واياكم من عتقائه من النار ارجو من الاساتذه الافاضل المساعدة في الكود المرفق والذي حصلت عليه من خلال اليوتيوب في الانترنت لعمل بعض التعديلات عليه فكره عامه عن الكود فانه يقوم بتجميع البيانات من عدة ملفات الي ملف واحد رئيسي ولكن احتاج بعض الاتي الكود لا يعمل الا اذا كانت الملفات مفتوحه ارجو تعديله ليقوم هو بفتح وغلق الملف بعد نسخ البيانات منه كذلك ان يتم اضافه اسم الملف بجوار البيانات التي تم نسخها من كل ملف الي الملف الرئيسي Sub compin_data() For i = 2 To 17 Workbooks(i).Activate Workbooks(i).Sheets("sheet1").Range("a1:b" & Cells(Rows.Count, "a").End(xlUp).Row).Copy Workbooks("book1.xlsm").Sheets("sheet1").Activate Workbooks("book1.xlsm").Sheets("sheet1").Range("a" & Rows.Count).End(xlUp).Rows.Offset(2, 0).Select Selection.PasteSpecial xlPasteValues Next i Application.CutCopyMode = False Workbooks("book1.xlsm").Sheets("sheet1").Activate End Sub
  7. Private Sub Worksheet_Activate() Cells.Columns.Hidden = True Dim pas As String pas = InputBox("Enter password", "password") If pas = "123" Then Cells.Columns.Hidden = False MsgBox "WELCOME" Else MsgBox "GOOD BAY" End If End Sub هذا كود بسيط لاخفاء الصفحه وفتحها بكلمه سر طبعا لا يجارى اكواد اساتذة المنتدي العريق ولكنه اجتهاد تلميذ يتعلم من هذا المنتدي الجميل معذرة الكود لا يخفي الصفحه بل محتوياتها فقط
  8. Private Sub Worksheet_Activate() Cells.Columns.Hidden = True Dim pas As String pas = InputBox("Enter password", "password") If pas = "123" Then Cells.Columns.Hidden = False MsgBox "WELCOME" Else MsgBox "GOOD BAY" End If End Sub يمكنك وضع هذا الكود فى حدث تفعيل الصفحه مباشرة فهو يقوم باخفاء جميع اعمدة الصفحه عند تنشيطها ويطلب ادخال كلمه مرور فاذا كانت صحيحه قام باظهار الاعمدة والا فانه يترك مخفيه كما هي
  9. الاساتذة الكرام يرجى الافادة هل هذا الطلب ممكن ام لا مع فائق الاحترام والتقدير
  10. السلام عليكم ورحمه الله في الحقيقه عمل الاستاذ عبد الله باقشير تعجز الكلمات عن وصفه لدقته وبراعته في تطويع الاكواد بهذه الاحترافيه بارك الله فيه وفي كل الاساتذه الافاضل بهذا المنتدي لي طلب في هذا النموذج وهو انه في حاله عمل اي تعديل في البيانات ولم يتم الضغط علي حفظ التعديلات وتم الانتقال للسجل التالي او السابق او اغلاق النموذج فان جميع التغيرات تكون غير محفوظه ةتضيع البيانات لذلك ارجو المساعدة في عمل التعديل التالي وهو انه في حاله تغير اي بيان في النموذج ولم يتم الضغط علي حفظ التغيرات وتم الانتقال الي سجل تالي او لاحق او اغلاق النموذج فانه تخرج رساله تنبيه بانه يوجد تغيرات حدثت فهل ترغب بالحفظ ةتكون نعم او لا في حاله نعم يتم الحفظ وتنفيذ الامر سواء الانتقال او الاغلاق وكذلك بالنسبه ل لا يتم تجاهل التغيرات وتنفيذ الامر المطلوب مع مرعاه في حاله عدم وجود تغيرات او تعديل او تم الضغط علي زر حفظ التعديلات فانه لا تظهر هذه الرساله ويرجي توضيح الكود المستخدم وشرح بسيط لتعم الفائدة وجزاكم الله كل خير فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar
  11. الاستاذ الفاضل / ياسر خليل ابو البراء جزاك الله خيرا وبالفعل هو شرح رائع للكود واستطعت من خلاله فهمه وتعديله حسب المطلوب وجزى الله خيرا الاستاذ العيروس على كتابته و جزاك الله خير على الشرح وجزى الله هذا المنتدي واستاتذته كل الخير على ما قدموة ويقدموه من علم ينتفع به
  12. السلام عليكم ورحمه الله وبركاته مرفق كود للاستاذ الفاضل العيدروس فى تجميع بيانات اعمدة محددة فى الصفحه الاجماليه والكود يعمل بشكل ممتاز فى الملف رقم 3 ولكن عند تغير مكان الاعمدة المحددة لم اتمكن من معرفه اين يمكن التعديل لكي يتماشي مع التعديل مرفق فى ملف 4 يرجى المساعدة فى ذلك والتوضيح ايضا اذا امكن فى مكان التعديل لتعم الفائدة وجزاكم الله كل خير وجزى الله الاستاذ العيدروس على ما قدمه من كود رائع خير الجزاء والحقيقه كل الاستاذة بالمنتدى يعجز الكلام عن شكرهم excel.rar
×
×
  • اضف...

Important Information