المطلوب كود اومعادلة لتنفيذ الزر او كود لتنفيذ الماكرو

[allaoua10]

السلام عليكم . اريد من خبراء منتدى اوفيسنا ان يعطوني الدالة التي تقوم  باعطائك عدد الافواج  حسب كل مستوى .او كود بمجرد تنفيذ الماكرو تولد لك الافواج عند كتابة العدد . وشكرا جزيلا

classes.rar

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

المشكلة انه اذا تساوى صفان بعدد الافواج  ما العمل؟؟؟

[allaoua10]

الصفوف لاتتساوى لان كل مستوى لوحده مثلا 

الاولى متوسط : 1م1-1م2-.....................1م9

الثانية متوسط :2م1-2م2-2م3-..............................2م7

وهكذا

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

جرب هذا الملف

الزمن للتعليم المتوسط salim--.xlsm

[allaoua10]

شكرا جزيلا وهو المطلوب

واذا اردت تسجيل الماكرو واضافة كود مالعمل

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

تفضل يا صاحبي (بالكود)

الضفحة  salim من هذا الملف 

الزمن للتعليم المتوسط salim_Macro.xlsm

[allaoua10]

مشكور على المجهودات المبذولة

[allaoua10]

السلام عليكم /

عندما سطبت اكسل 2013  الملف اصبح لايستجيب . ايقونة الافواج التربوية تجمدت اصبحت لاتستجيب

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

ممكن ان يكون تغير اسم الزر في الماكرو (أعد تسميته كما هو )

لمعرفة اسم الزر

من قائمة   developper اضغظ على design  و حدد الزر سوف يظهر اسمه في Name Boxe 

 

[allaoua10]

لم افهمك انا مبتدئ لو رسم توضيحي من فضلك وشكرا

 

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

ساهد هذه الصورة

تأكد ان اسم الزر هو ذاته كمت في الكود

[allaoua10]

ظهرت هذه :

 

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

شاهد هذه الصورة الثانية

 

explication.xlsm

[allaoua10]

 

هاهي الصورة :

 

الزمن للتعليم المتوسط salim_Macro.rar

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

جرب استبدل هذا السطر في الكود

Dim Num As Byte: Num = [d4]

بهذا

Dim Num As Byte: Num = CInt([d4])

( تأكد ان الرقم المطلوب هو في الخلية (D4)

تأكد ايضاً من امان الماكرو من "تعليمات الماكرو"

[allaoua10]

لقد حذف الكود من خاضية ادراج زر عنصر تحكم activex

 

[allaoua10]

السلام عليكم :

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

مثلا اولى متوسط : يولد العدد المكتوب في الخلية مثلا 9 يولد : 1م1 حتى 1م9  وهكذا مع بقيت المستويات

جربت الكود على مستوى صلحت ولكن اريد الكود لجميع المستويات .

ملف مرفق

جديد2018.xlsm