اعطاء رقم عشوائي في TextBox

[KI50NG]

بسم الله الرحمن الرحيم . 

اخواني اعضاء ومشرفين منتدى اوفسنا المحترمين ...

م/ طلب كود . 

تحية طيبة . 

لدي استفسار حول كيفية عمل واكواد الخاصة بالـ Userform منها : 

1- عملت مربع textbook1 والذي يتم فيه كتابة قيمة رقمية مثلاً 90 .  والمربع الاخر textbook2 يوضع فيه نسبة مثلاً 10.3 . عند كتابة الرقمين في المربعين السابقين ذكرهما يكون المربع textbook3 يعمل عملية ضرب و textbook4 يتم فيه عملية الجمع ما بين textbook1 + textbook2 . 

2- كود عمل ارقام عشوائية مكونه من 4 او 5 خانات يعني ( 1589 ) فرضاً وتكون غير مكرره في textbook5 على سبيل المثلا . عند كتابة في textbook6 يتم اعطاء رقم عشوائي غير مكرر ضمن عامود C ليشت 1 . 

ولكم جزيل الشكر والتقدير . 

 

[سليم حاصبيا]

جرب هذا الملف

Usser_F.xlsm

[KI50NG]

الف شكر لك ... الاعجاب بقدراتكم الجميله كلام قليل بحق العطاء . 

استاذي الفاضل . 

الكود العشوائي المطلوب كما يلي ان امكن . 

انا لدي USER FORM 1 فيه مجموعه من الحقول لعمل برنامج محاسبي . وهنالك قطع من الفضة ترمز بارقام عشوائية غير متكرره . 

فالمطلوب كما يلي . 

SHET 1  الجدول C3:C5000  تكون فيه ارقام عشوائية من اربع خانات غير متكرره . 

  مثلا ً : عندم اضافة تسلسل واحد يكون الرقم العشوائي في الخانة التي تلية 0120 وتكمل باقي المعلومات 

واليكون التسلسل اثنين يكون الرقم العشوائي في الخانة التي تليها 5231 وتكمل باقي المعلومات وكما يلي بدون تكرار اذ امكن استاذي الفاضل 

ولكم جزيل الشكر والتقدير