هل ممكن عمل فورم او مربع حواري بهذا المطلوب

[اوفيس 2003]

مرفق مثال توضيحي للمطلوب

 

 

Test3030.rar

[ibn_egypt]

اخى الفاضل

 

كل شئ ممكن ان شاء الله، جرب الملف المرفق لربما به طلبك

 

تحياتي  

Generate.rar

[اوفيس 2003]

ماشاء الله عليك عمل اكثر من رائع

 

اريد طيب تفعيل على اليسار او اليمين  الصفـر ربما يكون بدايته

 

واريد بالنسبة لليسار واليمين عدد لا محدود من الأرقام حيث جربت مثلا 12 رقم عن اليمين او الشمال يعطيني خطأ في المعادلة

 

واريد الله يبارك فيك عمل زر للنسخ العمود الناتج اياً كان حجمه

 

واريد زر ايضأ لمسح كل ماسبق في العمود وعمل ترقيم جديد

 

وهل ممكن ان يظهر لي خانة تظهر لي عدد الأرقام المدخلة يعني حددت مثلا من 1 حتى 5   يخبرني في مربع لنفس الفورم العدد يكون 5

تم تعديل ديسمبر 10, 2014 بواسطه office 2003

[ibn_egypt]

 

ماشاء الله عليك عمل اكثر من رائع

 

 

شكراً جزيلا

 

اريد طيب تفعيل على اليسار او اليمين  الصفـر ربما يكون بدايته

 

 

يعني ايه الصفر بدايته ما تكتب انت اللى انت عاوزه حتى ولو فيه صفر في البداية اكتب 033333

 

واريد بالنسبة لليسار واليمين عدد لا محدود من الأرقام حيث جربت مثلا 12 رقم عن اليمين او الشمال يعطيني خطأ في المعادلة

 

لا يوجد خطأ في الكود أو المعادلة ولكن خلايا الاكسل في الأرقام محددة ب 15 رقم فقط .. اذا كنت تريد اكبر من هذا فحول التنسيق .. تنسيق الخلايا الى نص وفي المرفق تم عمل ذلك

 

واريد الله يبارك فيك عمل زر للنسخ العمود الناتج اياً كان حجمه

 

 

نسخ من اين وهتلصق فين ... انا سهلت عليك 90% من شغلك انت بعد ما الأرقام تظهر انسخها والصقها في أى مكان تحبه 

 

واريد زر ايضأ لمسح كل ماسبق في العمود وعمل ترقيم جديد

 

 

اذا كنت تريد عمل ترقيم جديد الكود تلقائي يمسح كل البيانات القديمة ولست في حاجة الى هذا الزر

 

وهل ممكن ان يظهر لي خانة تظهر لي عدد الأرقام المدخلة يعني حددت مثلا من 1 حتى 5   يخبرني في مربع لنفس الفورم العدد يكون 5

 

تم عمل ذلك في المثال المرفق

 

 

 

الرد في الإقتباس

 

تحياتي  

Generate.rar

[اوفيس 2003]

بارك الله فيك اخي الغالي

 

واعتذر ان كنت ازعجتك  ،،، اخي الفكرة في طلب المساعدة هو اكمال العمل كما اريد مساعدتي فيه ،،، وانا اعلم ان وقتك ثمين وهناك اخر يريد المساعدة مثلي ،،، لذا من الممكن مشاركة الأعضاء ايضاً في الحلول معك

 

بالنسبة لما سبق

 

اخي عندما اكتب الصفر في البداية على اليسار لا يظهر في الترقيم

 

بالنسبة لليسار واليمين  عندما كتبت على اليسار مثلا صفر  ولا على اليمين 9 ارقام  وعدد الأسطر 1  اعطاني خطأ في المعادلة كما في الصورة

 

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

 

تم تجربة المطلب الأخير ولم اجده في الفورم

 

[ibn_egypt]

اخى الفاضل

 

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

 

 

 

تحياتي  

[اوفيس 2003]

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

 

طيب اخي المسموح في بداية الترقيم ونهايته كم رقم لأني اجرب اضع ارقام كبيرة اكثر من 7 ارقام لا يكمل معي

 

وبالنسبة لو اردت حذف الورقة 3030 عادي ام يؤثر على عمل الفورم

[ibn_egypt]

 

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

 

طيب اخي المسموح في بداية الترقيم ونهايته كم رقم لأني اجرب اضع ارقام كبيرة اكثر من 7 ارقام لا يكمل معي

 

وبالنسبة لو اردت حذف الورقة 3030 عادي ام يؤثر على عمل الفورم

 

 

اخى الفاضل

 

حدد العمود كامل كما في الصورة التالية واجعل تنسيقه نص ... وادخل اى عدد من الأرقام تحبه 

 

 

لو أردت ان تحذف الورقة 3030 .. لو انت شغال على آخر ملف انا ارسلته .. عدل السطر ده في الكود 

Set ws = ThisWorkbook.Sheets(2)

خليه كده باسم الشيت وليس برقمه

Set ws = ThisWorkbook.Sheets("Sheet1")

واحذف بقي أو لا تحذف مش مشكلة .. وانا اعتقد والله اعلم انك حذفت هذه الورقة فتسببت في المشكلة التى نوهت عنها في المشاركة رقم 5 ... عدل السطر واحذف ولن تظهر اى مشاكل

 

تحياتي  

[اوفيس 2003]

بارك الله فيك

 

 

العمود لدي بالفعل محدد انه نص A

لكني جربت الأن ان اضع في بداية الترقيم مثلا 3301000 وعند الإنتقال الى نهاية الترقيم واكتب ان تكون نهاية الترقيم 3309999 ظهرت لي شاشة الخطأ مع اول رقم 3

 

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

 

وممكن اخي الغالي ااذا اردت ان اجعل الملف محمي بحيث لايعبث احد بالأكواد ولا يراها على الإطلاق كيف ذلك

تم تعديل ديسمبر 10, 2014 بواسطه office 2003

[ibn_egypt]

أخى الفاضل

 

تفضل الملف المرفق بعد التعديلات الأخيرة ... كلمة مرور محرر الأكواد Office_2003

 

لا تنسانا من دعواتك

 

تحياتي  

Generate.rar

[ibn_egypt]

اخى الفاضل 

 

بناءا على طلبك تم عمل اللازم ...

 

بعد ما تنزله وتفك الضغط عن الملف ... افتح الملف واكتب ما تريد في أى عمود يعجبك A B C D  بس اتأكد ان تنسيق العمود اللى بتكتب فيه نص .. .اوك 

 

واضغط على زر أرقام غير متسلسلة .. تمام

 

واتبع الصورة دي ... انا هنا افترضت ان العمود A

 

 

تحياتي  

Generate2.rar