كومبوبوكس2

[waledms]

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

المرفق به قائمة كومبو بوكس من روائع الأستاذ بن عليه حاجى ..... ارجو شرح طريقة عمله ......... وأين توجد قائمة classes وكيف يمكن إضافة فصول جديدة لقائمة الكمبو بوكس

قوائم.rar

تم تعديل أكتوبر 1, 2017 بواسطه waledms

[صـدّيـق]

وعليكم السلام

عملت لك فيديو لطريقة عمل قائمة عن طريق الكمبوبوكس ، ان شاء الله تستفيد

طريقة عمل قائمة بالكمبوبوكس.rar

[waledms]

فديو أكثر من رائع ..... وشرح وافى جداً .......

جزاك الله خيراً أستاذنا الفاضل ...... وزادك علماً ومعرفه..... وجعله الله عز وجل فى ميزان حسناتك .... اللهم آمين

 

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

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

2017 شيت مدرستى _الصف الخامس.rar

[بن علية حاجي]

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

أشكر أخي الكريم صـدّيـق شكرا جزيلا على الفيديو، كنت أنوي تحضير ملف فيديو مماثل وقد أراحني أراحه الله في الدنيا والآخرة وجازاه الله عني خيرا... وأضيف معادلة أخرى لوضعها عند إنشاء النطاق المسمى Classes حتى تكون القائمة مطاطية (القائمة تتمدد حسب العناصر -الفصول- المضافة) فبدلا من إنشاء التسمية بالمعادلة

=الأسماء!$I$3:$I$15

نعرفها بالمعادلة :

=OFFSET(الأسماء!$I$3;;;COUNTA(الأسماء!$I:$I))

ملاحظة: إذا كانت القائمة المنسدلة الخاصة بالكمبوبوكس هي لتواريخ نضيف الكود التالي لكود الكمبوبوكس حتى نرغم الكمبوبوكس لإظهار عناصره (بعد اختيار العنصر) بتنسيق التاريخ (المختار في كوده):

Private Sub ComboBox1_Change()
   ComboBox1.Value = Format(ComboBox1.Value, "yyyy/mm/dd")
End Sub

حيث ComboBox1 هو اسم الكمبوبوكس الذي تم إنشاؤه...

أرجو أن تستفيد بهذه المعلومات... وأكرر شكري لأخي صـدّيـق...

بن علية

[بن علية حاجي]

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

بالنسبة لشرح الكود الخاص بالطباعة (الكود بسيط والشرح وضعته داخل الكود):

Sub Print_All()
'هذا الأمر يقوم بتبديل قيم المتغير المستعمل في الكود من القيمة 1 إلى أكبر قيمة في العمود السابع في الورقة1 المسماة "شيت الخامس" حيث أن هذه القيمة تمثل العدد الإجمالي للشهادات... والتبديل يكون بالخطوة 3 باعتبار أن الصفحة الواحدة تحوي 3 شهادات ومعناه أن قيم المتغير تكون بالتسلسل : 1، 4، 7، 10، 13 وهكذا
For I = 1 To Application.Max(Feuil1.Range("G:G")) Step 3
'هذا الأمر يقوم بوضع قيمة المتغير في الخلية 
'F19 وهي الخلية المرتبطة بالقائمة المنسدلة 
	Cells(19, "F") = I
أمر الطباعة للصفحة من 3 شهادات
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'أمر تبديل قيمة المتغير إلى القيمة الموالية بالخطوة 3
Next
'أمر إعادة عرض الشهادات الثلاثة الأولى
  Cells(19, "F") = 1
End Sub

أرجو أني وفقت في الشرح...

أخوك بن علية

[صـدّيـق]

الاخ waledms

استاذنا الفاضل بن علية حاجي

شكرا على كلامكم ودعواتكم فانا محتاجها و الحمد لله لاني استطعت ان اقدم شئ مفيد 

فأنا مع من يملك معلومة يقدمها لنستفيد من بعضنا ، ليس شر ط ان يكون محترف

تحياتي لكل اساتدة الموقع الذين في  كل يوم نتعلم منهم شئ مفيد 

 

_صدّيق_ 

 

[waledms]

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

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

2017شيت مدرستى - الصف الرابع.rar

[بن علية حاجي]

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

الان, waledms said:

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

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

2017شيت مدرستى - الصف الرابع.rar

الخلل في عدم تنفيذ الكود بصورة صحيحة يكمن في الجزئية من الكود:

 Application.Max(Feuil1.Range("G:G"))

ولأن اسم شيت "شيت الرابع" في VBA هو "ورقة3" وليس "Feuil1" فيجب تصحيح هذه الجزئية بالجزئية :

Application.Max(ورقة3.Range("G:G"))

وقد تم التصحيح في الملف المرفق مع التعديل في إعدادات الصفحة PageSetup...

بن علية حاجي

2017شيت مدرستى - الصف الرابع.rar

[waledms]

السلام عليكم ورحمة الله وبركاته ........ أستاذنا ... شكراً جزيلاً لك ... وأساْل الله العظيم رب العرش العظيم أن يجعل مجهودك هذا فى ميزان حسناتك يوم القيامه إن شاء الله تعالى .... وكذلك استاذنا الأستاذ/ صديق 

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

2017شيت مدرستى - الصف الرابع.rar

تم تعديل أكتوبر 3, 2017 بواسطه waledms