alfahad قام بنشر سبتمبر 28, 2012 مشاركة قام بنشر سبتمبر 28, 2012 (معدل) ارجو من اخواني الاساتذة مساعدتي في الاتي كيفية عمل مثل هذا فورم ( الفورم موجودعلى الرابط ادناة) واكرر رجائي بان يكون الشرح مستفيضاً لكي استطيع تطبيقة وشكراً لكم . تم تعديل سبتمبر 28, 2012 بواسطه alfahad رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 (معدل) أخى الفاضل الفديو يستفيض فى الشرح وفقك الله مرفق ملف الإكسيل التدريب على الفورم الديناميكى.rar تم تعديل سبتمبر 29, 2012 بواسطه أبو لميس رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 السلام عليكم نورت المنتدى اخي ابو لميس تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 أستاذى و معلمى عبد الله باقشير بارك الله فيك لك وحشة كبيرة جدا هلا توليت أخانا السائل فأخوك غارق فى الأكسيس هذه الأيام حتى أذنيه رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 بعد اذن اخي ابو لميس هذا مرفق يوضح العمل Book1.rar رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 29, 2012 الكاتب مشاركة قام بنشر سبتمبر 29, 2012 استاذي واخي الكبير علماً وخلقاً ابو حنين بارك الله فيك وزادك علماً وتقاً رائع جداً وفعلا استاذ الله لا يحرمنا من امثالك اخي ليكتمل الفورم كيف يمكنني اضافة هذه الخانات الثلاث اضافة تعديل حذف رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 29, 2012 الكاتب مشاركة قام بنشر سبتمبر 29, 2012 اخي ابولميس اشكر لك ردك وجزاك الله خير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 ثم عمل اللازم رغم ان الفورم يتطلب بعض التنسيق فهد.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 و هذا تحسين للفورم مع ادراج زر الحذف فهد 2.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 إخوانى الأفاضل أى جزء يجب تغييره فى الكود لكى يتسع الفورم لأكثر من 200 إدخال حيث أنه لا يقبل إلا 200 إدخال فقط خاصة الجرار يعد حتى 200 إدخال فقط رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 بهذا الكود يمكن ان يتسع الى 256 عمود Private Sub UserForm_Initialize() ÂÎÑ_ÎáíÉ = æÑÞÉ1.Range("IV1").End(xlToLeft).Column Dim ãÑÈÚÇÊ_ÇáäÕæÕ As Control: Dim ãÑÈÚÇÊ_ÇáÚäÇæíä As Control ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' For t = 1 To ÂÎÑ_ÎáíÉ Set ãÑÈÚÇÊ_ÇáÚäÇæíä = Frame1.Controls.Add("forms.label.1", "label" & t, True) With ãÑÈÚÇÊ_ÇáÚäÇæíä .Left = Frame1.Width - 90: .Top = 1 + (t * 15) .Width = 60: .Height = 15: .TextAlign = 3 Frame1.Controls("label" & t).Caption = Cells(1, t) End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set ãÑÈÚÇÊ_ÇáäÕæÕ = Frame1.Controls.Add("forms.textbox.1", "textbox" & t, True) With ãÑÈÚÇÊ_ÇáäÕæÕ .Left = Frame1.Width - 160: .Top = 1 + (t * 15) .Width = 90: .Height = 15: .TextAlign = 3 Frame1.Controls("textbox" & t).Text = Cells(2, t) Frame1.ScrollHeight = Frame1.ScrollHeight + Frame1.Controls("textbox" & t).Height + 2 End With Next t End Sub لو تلاحظ الكود لوجدت اننا غيرنا فقط Z1 بالقيمة IV1 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 أقصد الإدخالات الطولية يا أخى الغالى بالفعل كنت قد غيرت Z1 من قبل إلى AZ1 ليقبل 52 عمود ولكنى أريد أن يقبل داتا حتى 2000 إدخال لأن الجرار ينتهى عند 200 إدخال فقط رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 من الخاصية Max للجرار ScrollBar1 غيرها الى ما تريد و هي الاآن متوقفة عند 200 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 هذا الفورم بعد التعديل فهد 2.rar رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 ابوحنين اعمالك وردودك قيمة اسمح لى يا اخى ان ابدى اعجابى جزاك الله خيرا سعد عابد رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 جزاك الله خيرا أخي الكريم سعد عابد أسعدك الله في الدنيا و جعلك من العابدين رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 من الخاصية Max للجرار ScrollBar1 غيرها الى ما تريد و هي الاآن متوقفة عند 200 هل من هذه الجزئية ؟؟ Private Sub ScrollBar1_Change() آخر_خلية = ورقة1.Range("DZ1").End(xlToLeft).Column Label100.Caption = ScrollBar1.Value For s = 1 To آخر_خلية Me.Controls("textbox" & s).Text = Cells(Label100.Caption, s).Offset(1, 0) Cells(Label100.Caption, 1).Offset(1, 0).Select ' = ActiveCell If Me.Controls("textbox" & s).Text = "" Then ScrollBar1.Value = 1 Exit Sub End If Next s End Sub معلش لم أعرف أى جزء يجب تغييره لأجعلها 2000 بدلاً من 200 الرجاء التوضوع رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 (معدل) أبو حنين دائماً أنت سباق بفعل الخيرات جعل الله أعمالك فى موازين حسناتك ولكن فى التعديل الأخير فى المرفق بالمشاركة 14 الجرار وصل حتى إدخال رقم 260 ولم يزد عنها ولى طلب آخر لو تكرمت عند حذف سجل يقوم الملف بحذفه بمسلسله فيكون هناك تخطى لرقم مسلسل الإدخال المحذوف المطلوب أن يتم تعديل المسلسل بعد حذف السجل أوتوماتيكياً من داخل الفورم مثلاً عند حذف الإدخال بإسم 22 أصبح المسلسل 20 - 21 - 23 - 24 متخطياً المسلسل الخاص بالسجل المحذوف لذلك ظهر خطأ جديد عند إستخدام خاصية السكرول بار العرضى داخل الفورم فاصبح رقم الإدخال لا يتطابق مع ما يعرض فى الفورم وإليك الملف بعد تكبير الفورم لعرض بيانات أكثر ليتناسب مع عمل أفكر فى القيام به بخصوص الكومند بوتون الذى يستدعى الفورم كيف أغير مكانه وهل يمكن أن يتم إستدعاء الفورم عن طريق مفتاح إختصار من الكى بورد ؟؟ الف شكر فهد 2.rar تم تعديل سبتمبر 30, 2012 بواسطه يوسف عطا رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 ما أجمل الابداع من أهله رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 صباح الخير اخي يوسف تم تغيير السكرول بار الى 3000 اسم و بالنسبة للفورم اضغط مرتين متتاليتين في اي مكان من الورقة يظهر الفورم -------------------------------------------- * أسعد الله صباحك اخي الحبيب دغيدي * *************************************** فهد 3.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 أخونا جمال بك دغيدى صبحك الله بالخيرات أخونا ابو حنين عملية حذف سجل لا تزال بها مشكلة حيث يتم الآتى عند حذف أحد السجلات 1. الخلية A1 المفروض هى راس عمود وبها كلمة مسلسل ولكنها تتغير تلقائياً إلى رقم 1 عند حذف أحد السجلات 2. يقوم كود الحذف بحذف الإدخال الذى يقع فوق الإدخال المراد حذفه فمثلاً عند حذف الإدخال العاشر قام بحذف الإدخال التاسع بدلاً منه 3. تم تكرار مسلسل 10 فى الإدخالات 10 و 11 عشمى ألا أكون قد اثقلت عليك أخى الغالى رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 ماشاء الله تبارك الرحمن الإخوة الكرام بارك الله فيكم جميعا و نفع بكم أخي الحبيب / أبو حنين جزاك الله خيرا على ما تقدم دائما للجميع هل لي أن أقترح إضافة بعض النقاط لهذا العمل الرائع 1- إخفاء ورقة العمل و الإبقاء فقط على فورم البحث مع وجود زر أو دبل كليك على الفورم يعكس هذة العميلة عند الحاجة ( أي يخفي الفورم و يظهر ورقة العمل ) 2- مربع أو ليبل يظهر إجمالي عدد السجلات الحالي بورقة العمل 3- محو الرقم في مربع" البحث بأسم " عند أستعمال حركة الأسكرول بار ( بمعنى أني لو كتبت مثلا في البحث " إسم 20 " ثم حركت الأسكرول بار تقديما أو تأخيرا يمحى الرقم بمربع البحث ) 4- منع التعديل على نتيجة البحث مباشرة مع إتاحة إمكانية تعديل بيانات عمود معين عند الضغط على زر تعديل بظهور شاشة خاصة بالتعديل تحتوي على مربع لكتابة رقم العمود المراد تعديله أو أسمه وعند الكتابة فيه يظهر أسفله المربع المراد تعديل بياناته و زر لحفظ التعديل و العودة لشاشة البحث . 5- منع التكرار عند إضافة أسم جديد أو تعديل أسم موجود مع رسالة تفيد بوجود هذا الأسم في النظام. 6- إضافة زر لطباعة نتيجة البحث فقط و ليس كل المسجل بورقة العمل مع إمكانية تحديد إتجاه ورقة الطباعة ( أفقي / رأسي ) من خلال التأشير على مربع أختيار قبل ضغط زر الطباعة. 7 - إضافة زر لنسخ نتيجة البحث في ورقة عمل جديدة بترتيب أفقي أو رأسي ( يتم تحديده بالتأشير على مربع أختيار قبل ضغط الزر ) بالقطع أخي الحبيب هذه مجرد أقتراحات من شأنها أن تساعد المستخدم أكثر لكنها لن تضيف شيئا على ما تفضلت بإبداعه جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 30, 2012 الكاتب مشاركة قام بنشر سبتمبر 30, 2012 اخي واستاذي ابو حنين تعجز الكلمات عن شكرك ولكن ذاك طبع الكرم يتفانون في تقديم المساعدة للغير اسال الله العلي العظيم لك التوفيق والسداد في الدارين وان يجزيك بكرمه ومنه انه اهلٌ لذلك وبودي اخي ان تحل مشكلة الحذف حيث انه يتم حذف رؤوس الاعمدة هلا جعلت الحذف اكثر دقة دون حذف اسماء الاعمدة وجزاك الله خيراً اشكر جميع الاساتذه الذي قاموا بإثراء الموضوع الاستاذ/ دغيدى. الاستاذ/ يوسف عطا. الاستاذ/ ابو ردينة. الاستاذ/ سعد عابد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 السلام عليكم احسنت اخي الحبيب ابو حنين وبعد اذنك انا لدي فورم في ملفاتي الخاصة فيه من المطلوب الكثير المرفق 2003 فورم معاينة وتعديل و إضافة.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 بارك الله فيك أخى عبد الله و نفع بك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.