tefa3079

اشكرك على الرد لقد قمت برفع مثال على احد المواقه واليكم الرابط https://rapidshare.com/files/457906035/________.xls

السلام عليكم ورحمة الله وبركاته.لدى فى الشيت الرئيسى فورم به 3 تيكست بوكس وكوماند باتون للترحيل ( الاول يكتب به رقم الموظف، والثانى يكتب به تاريخ التقرير والثالث يكتب به احد البيانات) والشيت الثانى به قاعدة بيانات العمود c ابتداء من c2 الى نهاية العمود به ارقام الموظفين والصف الاول ابتداءا من الخلية e1 الى نهاية الصف وبه تواريخ ، وما اريده هو عند ترحيل بيانات الفورم يقوم بالبحث عن الخلية التى يتلاقى فيها صف رقم الموظف مع عمود التاريخ ويقوم بترحيل التيكست بوكس الثالث بهذه الخلية ( اى ترحيل التيكست بوكس الثالث بمعلومية التيكست بوكس الاول و الثانى ) وشكرا ،،، اود اننى قد شرحت الموضوع بوضوح لاننى غير قادر على رفع ملفات فى المنتدى ارجو سرعة الرد للاهمية القصوى

ارجو الرد

لدى فى الشيت الرئيسى فورم به 3 تيكست بوكس وكوماند باتون للترحيل ( الاول يكتب به رقم الموظف، والثانى يكتب به تاريخ التقرير والثالث يكتب به احد البيانات) والشيت الثانى به قاعدة بيانات العمود c ابتداء من c2 الى نهاية العمود به ارقام الموظفين والصف الاول ابتداءا من الخلية e1 الى نهاية الصف وبه تواريخ ، وما اريده هو عند ترحيل بيانات الفورم يقوم بالبحث عن الخلية التى يتلاقى فيها صف رقم الموظف مع عمود التاريخ ويقوم بترحيل التيكست بوكس الثالث بهذه الخلية ( اى ترحيل التيكست بوكس الثالث بمعلومية التيكست بوكس الاول و الثانى ) وشكرا ،،، اود اننى قد شرحت الموضوع بوضوح لاننى غير قادر على رفع ملفات فى المنتدى ارجو سرعة الرد للاهمية القصوى

اشكرك اخى الكريم

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

لم استطع ارفاق ملفات ولكن كل ما اطلبه هو عمل فورم لادخال البيانات الى قاعدة البيانات ، ثم نقوم باستدعاء البيانات وطباعتها على نفس نموذج الفورم بدلالة اى مدخل من المدخلات

ما اريد فعله هو قاعدة بيانات لترقيات الموظفين تتكون من ورقتين عمل 1 - صفحة الادخال والعرض ،، 2 - هى صفحة الحفظ ( سجل التنقلات والترقيات ) ففى الصفحة الاولى يوجد 3 اختيارات ل 3 عمليات : اى اننى عندما اختار نوع العملية: الاختيار الاول( اضافة سجل جديد )اقوم بملأ البيانات الاساسية ( رقم الموظف واسم الموظف ) ومن ثم البيانات الخاصة بحركة التنقلات ( التاريخ ، الادارة ، الوظيفة ، الفئة المالية ) وكل موظف محدد له عدد لا نهائى من التنقلات ( لكنى اقتصرت هنا على 20 فقط) ثم الترحيل وفى الاختيار الثانى ( تعديل سجل ) المطلوب هو الانتقال مباشرة لخلية رقم الموظف واختيار من قائمة الموظفين المخزنة مسبقا ثم بعد اختيار رقم الموظف يتم عرض بياناته المخزنة لدينا مع امكانية الاضافة عليها حيث انه من المحتمل ان يحصل الموظف على ترقيات ثم ترحيل البيانات مرة اخرى لتحل محل البيانات المستدعاه وفى الاختيار الثالث عرض( بيانات سجل ) يتم العمل بنفس اليات الاختيار الثانى ولكن تضاف خاصية عدم امكانية الاضافة او الحذف اى العرض فقط ومن ثم اذا ارادنا الطباعة وشكراااااا نوع العملية : ( يتم تحديد واحد من الاختيارت الثلاثة ) رقم الموظف : ( يتم ادخال اسم الموظف ) اسم الموظف : ( يتم ادخال رقم الموظف ) التاريخ الادارة / القطاع الوظيفة الفئة المالية 1 2 3 0 0 0 20

مشكورين ارجو سرعة الرد

ما من رد ارجو سرعة الرد المرفق ملف اكسل

مرفق ملف لقاعدة بيانات ترقيات الموظفين برجاء المسعادة فى عمل المطلوب مع الشرح ان امكن http://www.archive.org/details/tefa3079.1

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

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

الى خبراء الاكسل برجاء المساعدة فى زيادة سرعة هذا الكود حيث انه يؤدى الغرض المطلوب لكن ببطئ فهل يمكن تحديد المدى بخطوة واحدة بدلا من تكرارها20 مرة. R = Application.WorksheetFunction.CountA(Sheet13.[C4:C100000]) + 4 For C = 3 To 8 Sheet13.Cells(R, C) = Cells(6, C) Sheet13.Cells(R + 1, C) = Cells(7, C) Sheet13.Cells(R + 2, C) = Cells(8, C) Sheet13.Cells(R + 3, C) = Cells(9, C) Sheet13.Cells(R + 4, C) = Cells(10, C) Sheet13.Cells(R + 5, C) = Cells(11, C) Sheet13.Cells(R + 6, C) = Cells(12, C) Sheet13.Cells(R + 7, C) = Cells(13, C) Sheet13.Cells(R + 8, C) = Cells(14, C) Sheet13.Cells(R + 9, C) = Cells(15, C) Sheet13.Cells(R + 10, C) = Cells(16, C) Sheet13.Cells(R + 11, C) = Cells(17, C) Sheet13.Cells(R + 12, C) = Cells(18, C) Sheet13.Cells(R + 13, C) = Cells(19, C) Sheet13.Cells(R + 14, C) = Cells(20, C) Sheet13.Cells(R + 15, C) = Cells(21, C) Sheet13.Cells(R + 16, C) = Cells(22, C) Sheet13.Cells(R + 17, C) = Cells(23, C) Sheet13.Cells(R + 18, C) = Cells(24, C) Sheet13.Cells(R + 19, C) = Cells(25, C)