فورم تتغير أدوات التحكم عليه تبعا لأعمدة الشيت ز إهداء للأستاذ خبور

[عبد الفتاح كيرة]

السلام عليكم

كل عام أنتم بخير

دفعنا الأستاذ الفاضل خبور للمذاكرة دفعا

بسبب ما يطلع به علينا

من أفكار تثير الذهن

و تفتح آفاق العلم

هذا ملف فديو

أهديه إليه

عندك شيت به 10 أعمدة

فيها بيانات

الفورم يرسم عليه بالكود

10 مربعات نصوص

و 10 لافتات " تسميات "

ويمكنك استعراض الصفوف و التعديل عليها

لو غيرت عدد الأعمدة بالشيت

إلى 15 مثلا

تتغير أعداد مربعات النصوص

و التسميات إلى نفس العدد

شاهدوا الفديو

الملف المستخدم بالشرح و به الكود

الديناميكى التام لاستعراض السجل وحفظ التغييرات.zip

تم تعديل أغسطس 18, 2010 بواسطه kemas

[عبدالله باقشير]

========================

الاخ الفاضل / كيماس

========================

و

[احمد حمور-ابوعبدالله]

اخي الحبيب كيماس

ما شاء الله عليك

مبدع في شرحك كالعاده

تم تعديل أغسطس 19, 2010 بواسطه AHMADHAMOOR

[عبد الفتاح كيرة]

أستاذى الفاضل خبور

هذه بعض أفضالكم علينا

بضاعتكم ردت إليكم

أخى الفاضل أحمد

شكرا لمتابعتك

بارك الله فيك

[inas aly]

السلام عليكم

أخي وأستاذي kimas، رمضان كريم وكل عام وأنت بألف خير

جزاك الله خبرا على هذا العطاء المميز وجعله في ميزان حسناتك

[عبد الفتاح كيرة]

شكرا وبارك الله فيك

[saad abed]

الاخ كيماس

عمل يستحق الاعجاب

شكرا وجزاك الله خير

[amir501]

مشكور اخ كيماس مبدع كعادنك ...بانتظار المزيد

[عبد الفتاح كيرة]

شكرا لتشجيعكم إخوتى الكرام

أخى سعد

وأخى أمير

بارك الله فيكم

[ولدطيبة]

HG

السلام عليكم و رحمة الله وبركاته

اخي الكريم

عمل اكثر من رائع

وشرح جميل

الله يجزاك به كل خير

لقد استفدة منه كثيرا

[عبد الفتاح كيرة]

وعليكم السلام ورحمة الله تعالى و بركاته

أخى ولد طيبة

أشكرك شكرا جزيلا على تشجيعك و كلماتك الطيبة

تم تعديل أغسطس 21, 2010 بواسطه kemas

[الزرقطوني]

الاخ كيماس

عمل يستحق الاعجاب

ونطلب الله أن يجعلك من أهل الجنة

إنك ولله لرائع وتستحق كل التقدير

[عبد الفتاح كيرة]

أخى المحترم ezzarqtouni

أسأل الله أن يعطيك مثل ما قلت

بارك الله فيك

و كل عام أنتم بخير

[نوووووووور]

الشكر الجزيل للاستاذ كيماس على هذا الفورم الجميل الذى استفدت منه كثيرا ولكن هل يمكن توسيع افورم لاكثر من 500 اسم ومن يتم ذلك فى الكود ؟

[قصي]

الف شكر الف شكر

لي سؤال

البيانات في الورقه 1 مكتوبه في الصف الاول

اريد ان اجعلها في الصف الرابع

ماهي الجزئيه التي اغيرها في الكود

[حسين شاكر]

[عبد الفتاح كيرة]

.Caption = Sheets(1).Cells(1, j).Value

غيره إلى

.Caption = Sheets(1).Cells(4, j).Value

و

ScrollBar1.Value = 1

إلى

ScrollBar1.Value = 4

وهذا

lcol = Sheets(1).Range("ff1").End(xlToLeft).Column

لهذا

lcol = Sheets(1).Range("ff4").End(xlToLeft).Column

تم تعديل سبتمبر 17, 2010 بواسطه kemas

[محمدي عبد السميع]

اخي الحبيب كيماس ما شاء الله عليك مبدع كالعاده جزاك الله كل خير

[قصي]

الف شكر الف شكر الف شكر

[قصي]

لو سمحت اين ايضا الجزئيه التي تغير الصف في هذا المرفق

الديناميكى التام لاستعراض السجل وحفظ التغييرات مع الفريم1.rar

[عبد الفتاح كيرة]

المرفق

  .Caption = Worksheets(Sh_MyDate).Cells(4, i).Value

lcol = Worksheets(Sh_MyDate).Range("IV4").End(xlToLeft).Column

و من خصائص شريط الزيادة و النقصان

غير قيمته إلى 4

scrollbar1.value=4

الديناميكى التام لاستعراض السجل وحفظ التغييرات مع الفريم1kemas.rar

تم تعديل سبتمبر 17, 2010 بواسطه kemas

[قصي]

بادئ ذي بدء

أشكرك أشكرك

ولكنها اتت معي بهذه الصوره

[عبد الفتاح كيرة]

أنا نفذت التعديل بالمرفق

و هو كما أردت

افتح الكود و شاهد التعديلات

[قصي]

انت عدلته تمام ولكن يا اخي الفاضل

لاتأتي بنتائج سليمه والصوره تظهر ذلك

[عبد الفتاح كيرة]

لما تقل قيمة شريط الزيادة و النقصان عن 4

يظهر الخطا

لذلك

فى خواص هذا الشريط

اجعل قيمته الصغرى = 4

الخاصية

min = 4

هذا كل شىء