aljuhani قام بنشر أغسطس 16, 2016 قام بنشر أغسطس 16, 2016 السلام عليكم ورحمة الله وبركاته أود من سيادتكم تنويري حول كيفية عمل ملف أكسل أجبر فيه مدخل البيانات على إدخال البيانات وتعديلها فقط بدون حذف أي شيء آخر . وشكرا حصر البطاقات.rar
أبو حنف قام بنشر أغسطس 16, 2016 قام بنشر أغسطس 16, 2016 عفوا لم أفهم المطلوب جيدا ! هل سيتم عمل اكسيل رئيسي وآخر فرعي يتم التعديل على بعض البيانات أم منع الحذف نهائيا من الاكسيل ؟ يرجى شرح طلبك باستفاضة وحبذا لو أعطيتنا مثال مشروح على الاكسيل عما تريد بالتفصيل حتى نسطيع المساعدة
aljuhani قام بنشر أغسطس 17, 2016 الكاتب قام بنشر أغسطس 17, 2016 18 ساعات مضت, أبو حنف said: تفضل المرفق دوام موظفين.rar أستاذي الفاضل أبو حنف جزاك الله خير أنا أود أن اعمل ملف أكسل واحد مبسط يتم فيه تعبئة بيانات فقط ولا يسمح لمدخل البيانات بالحذف منه بحيث يمكنه مشاهدة ما تم إدخاله مسبقا والتعديل عليه . علما بأن المرفق الذي نزلته لا يمكن تحميله يوجد خطأ عند التحميل .
أبو حنف قام بنشر أغسطس 18, 2016 قام بنشر أغسطس 18, 2016 أعتذر أخي عن التأخير ! وأعتذر مرة أخرى على المرفق فقد كان لمشاركة أخرى !! أنت عندك أربعة أعمدة : الاسم رقم الهوية رقم البطاقة تاريخ الانتهاء يجب ادخال التاريخ بالميلادي ما الذي تريده متاح للمستخدم التعديل عليه ؟ وهل هناك عمود ثابت لا يتغير ؟ نرجو التوضيح بعض الشئ أخي حتى نسطيع المساعدة
aljuhani قام بنشر أغسطس 18, 2016 الكاتب قام بنشر أغسطس 18, 2016 جزاك الله خير أود من مدخل البيانات فقط إدخال البيانات والتعديل عليها جميعا ... فقط بدون حذف وشكرا
أبو حنف قام بنشر أغسطس 18, 2016 قام بنشر أغسطس 18, 2016 مع أني لم أفهم ما الداعي لذلك ما دام التعديل والاضافة متاحة للمستخدم فبإمكانه عمل ما يشاء ولكن نظرا لآنك أخي عضو جديد أحببت اهداءك المرفق مبدأيا المرفق متاح به الاضافة فقط اطلع عليه وأخبرني النتيجة حصر البطاقات.rar
aljuhani قام بنشر أغسطس 18, 2016 الكاتب قام بنشر أغسطس 18, 2016 جزاك الله خيرا ووفقك ... ممتاز أود أن اعرف الخطوات التي قمت بها . فعلمني كيف أصطاد السمك . لا هنت ممكن
أبو حنف قام بنشر أغسطس 18, 2016 قام بنشر أغسطس 18, 2016 الشروحات كثيرة هنا في المنتدى والطرق كثيرة فقط ابحث بكلمة "فورم ادخال" وهذا شرح الكود الذي استخدمته وقد تعلمته من المنتدى Attribute VB_Name = "Module3" Private Sub CommandButton1_Click() ' سنقوم بشرح مبسط جدا للكود ان شاء الله 'نقوم هنا اولا بوضع المعطيات الثابتى التي ستكون مرجعا لنا في الكود 'بعد ذلك ' iRow السطر التالي لتحديد مرجع العمود وهو هنا Dim iRow As Long 'ws السطر التالي لتحديد مرجع الشيت المطلوب استخدامه وهو هنا Dim ws As Worksheet '================================================ 'ويمكن لنا تغيير المعطيات الثابتة لتكون كما نريد 'ws فمثلا يمكننا تغيير 'SH الي اي متغير مثلا '================================================ ' بطريقة بسيطة وسهله وبعيدا عن التعقيد والمصطلحات الكبيرة 'للتسهيل ليس الا ... واي استفسار الاكيد انني معكم دائما 'سأقوم بشرح الاكواد بابسط طريقة ممكنه 'السطر التالي معناه 'ان يجعل الشيت المطلوب استخدامه هو .... وهو هنا الشيت( ) 'ويجب وضع اسم الشيت المراد ترحيل وتسجيل البيانات ' "" الموجودة بالفورم بين علامتي التنصيص كما في السطر التالي Set ws = Worksheets("Sheet2") '================================================ ' بعد تحديد اساسيات العمل وتحديد الصفحة المطلوب الترحيل اليها ' يجب علينا اولا تحديد الصف الفارع الذي سيتم تسجيل البيانات الجديدة به 'حتي لا يتم الكتابة علي صف واحد كل مرة ولعمل ذلك نقوم بالتالي ... '================================================ ' نقوم بعمل سطر بسيط للعثور علي اول سطر فارغ في الصفحة ' المختارة لعمل عملية الترحيل وهي هنا شيت رقم 2 ' ولعمل ذلك نقوم بوضع السطر التالي ومعناه 'iRow اجعل 'ws في صفحة ' يساوي آخر صف في العمود رقم 1 ' وبذلك تم تحديد العمود الاول للعثور علي اول سطر فارغ فيه iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row '================================================ 'سنقوم في السطور التاليه بوضع اكواد التسجيل او الترحيل 'وذلك بعد تحديد صفحة التسجيل وعمود البداية وتحديد او سطر فارغ فيه '================================================ 'ولترحيل البيانات نستخدم الاسطر التاليه 'وسنقوم بشرح السطر الاول والثاني فقط والباقي مثلهما تماماً '================================================ ws.Cells(iRow, 1).Value = Me.TextBox1.Value ' السطر السابق مقسم الي عدة اوامر وهي كالتالي ' ws اختيار صفحة الترحيل والتي تم اختيارها في بداية الكود 'Cells(iRow, 1).Value هذا الجزء معناه ان قيمة الخليه رقم 1 في الصف الفارغ ' الذي يتم تحديده عن طريق الكود وفي العمود المختار تساوي 'Me.TextBox1.Value هذا الجزء من السطر يعني ان قيمة الخليه رقم 1 كما سبق تساوي 'Me قيمة تكس بوكس رقم 1 في الفورم المستخدم وكلمة 'تعني هنا اليوزفورم المستخدم ws.Cells(iRow, 2).Value = Me.TextBox2.Value ' السطر السابق مقسم الي عدة اوامر وهي كالتالي ' ws اختيار صفحة الترحيل والتي تم اختيارها في بداية الكود 'Cells(iRow, 2).Value هذا الجزء معناه ان قيمة الخليه رقم 2 في الصف الفارغ ' الذي يتم تحديده عن طريق الكود وفي العمود المختار تساوي 'Me.TextBox2.Value هذا الجزء من السطر يعني ان قيمة الخليه رقم 2 كما سبق تساوي 'Me قيمة تكس بوكس رقم 2 في الفورم المستخدم وكلمة 'تعني هنا اليوزفورم المستخدم '================================================ 'وينطبق ذلك علي السطور التاليه مع تحديد الخليه المراد الترحيل لها ' قيمة التكست بوكس المطلوب في الفورم '================================================ ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value '================================================ 'وبهذا تكون قد لنتهت عملية الترحيل حسب عدد التكستات الموجودة في الفورم ' والمطلوب تسجيلها او ترحيلها '================================================ ' ولتسجيل بيانات مرة اخري علي نفس الفورم وهو مفتوح نضع بعض الاسطر البسيطة 'لمسح البيانات القديمة من على الفورم بعد الترحيل للتجهيز لإدخال بيانات جديدة ' كما يلي '================================================ 'ولمسح البيانات القديمة نستخدم الاسطر التاليه 'وسنقوم بشرح السطر الاول فقط والباقي مثله تماماً '================================================ Me.TextBox1.Value = "" ' السطر السابق معناه ان يجعل قيمة التكست بوكس 1 تساوي لاشئ 'Me كلمه ' تعني الفورم نفسه المستخدم في التسجيل والترحيل كما سبق ذكره 'TextBox1.Value وهذا الجزء يعنس قيمة التكست بوكس 1 ' = "" وهذا الجزء يعني ان قيمة التكست بوكس 1 تساوي لاشئ ' حيث ان علامتي التنصيص تعني فراغ او لا شئ '================================================ 'وينطبق ذلك علي السطور التاليه مع تحديد التكست بوكس المراد مسح البيانات الموجوة به ' وما هنا في مثالنا كالتالي '================================================ Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" '================================================ 'وبعد مسح البيانات نقوم بوضع جزء بسيط لتحديد التكست بوكس المراد بداية التسجيل منه ' وذلك بوضع مؤشر الكتابه في التكست بوكس المراد الادخال منه '================================================ 'ويتم ذلك عن طريق السطر التالي ' وفيه نحدد ان التكست بوكس 1 هو اساس بداية الادخال بعد مسح البيانات Me.TextBox1.SetFocus ' السطر التالي هو اقفال الكود ونهاية مهمة الزر المحدد 'والمستخدم لعملية التسجيل او الترحيل End Sub Private Sub CommandButton2_Click() End End Sub Private Sub UserForm_Click() End Sub 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.