عبدالله الصاري

لو ارفقت ملفا لقمنا بادراج الكود به
ملف به كودان ورقة1 اصغظ الزر       ورقة 2 كود في حدث الصفحة
تذييل.xlsb

طريقة اخرى
كشف حساب1.xlsm

عليكم السلام ورحمة الله بركاته
ليس لدي اكسل 2003 على جهازي 
فيديو توضيحي
 
https://www.youtube.com/watch?v=nfNBYQjbs2c 
كما يمكنك من ادراج ثم صورة وربطها بماكرو
كما يمكنك  من خانة ادراج تم اشكال واختيار الشكل المناسب ربطه بماكرو
Book1.xls
الاكواد
Sub Macro1() Sheets("الامتيازات").Select End Sub Sub Macro2() Sheets("الراتب").Select End Sub Sub Macro3() Sheets("الرئيسية").Select End Sub  

من كنوز المنتدي اتمنى ان يكون فيه طلبك
التفقيط بالجنية والقروش (1).xlsm
 

الكود من المنتدى لاستاذنا عبدالله باقشير
ملف2.xlsb

المشكلة في ملفك اسماء الصفوف  غير متوافقة بمعنى الصفوف في الخلايا U  لا تتوافق مع الخلايا W زالحل انسخ  اسماء الصفوف من W الصقها في U
قمت بتغيير الصفين الالين وقم انت بالباقي
__المقياس المتدرج للصف الأول والثانى2020.xlsb

اخي الفاضل لا انصحك  بان يكون هذا الكود  بالذات بحدث الورقة لانه كلما اضفت رقما سيعمل الكود سيكون ثقيلا جدا جدا وخصوصا ان الكود ستضاف اليه مواد احرى 
ايهما افضل واسرع ان
تكتب درجات الطالبات كلها لجميع المواد وتضعط الزر  مرة واحدة ويعطيك النتائح 
ام كلما كتبت درجة للطالبة سيشتغل الكود    ربما الكود سيشتغل الاف المرات
طبعا هذا جسب علمي  والله اعلم
اتممت لك باقي المعادلات جرب وان هناك اي خطأ او تريد اظافة فاعلمنى
الكود يتعامل مع 3000طالب , اذا عدد الطلبة لديك اقل فغير العدد في الكود حتى يكون الكود سريعا
الشيت الرئيسي.xlsb

وعليكم السلام ورحمة الله وبركاته
اتمنى ان يكون طلبك .الكود يشتغل الى 500 صف يمكنك زيادتها الى ما تشاء وذلك بتغيير 500 الى العدد المطلوب في الكود
Work.xlsm

جرب الملف  وتبقى طلب  عدم ربط الخلية بتاريخ الكمبيوتر ربما يقوم احد الزملاء بحله
اما باقي طلباتك فاعتقد تم حلها جميعا حسب فهمي للامر. كلمة سر الحذف 123 يمكن تغييرها من الكود
تجربة2020.xlsm

هناك لبس بالنسبة لي في فهم المطلوب  فطلبك في الاول
ثم في الاخير 
وعلى كل حال العمود  k خارج الجدول 
قمت بوضع الشرط على اساس العمود H فارغ
هذا حسب فهمي واذا كان هذا ليس طلبك ارجو التوضيح اكثر.
Aysam.xlsm

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

السلام عليكم
تم تعديل 
1- في الكود اسم الورقة sheet2 تم تعديله الى ورقة2
2- تم استبدال خانة القيد بالديانة لدقة الاحصائيات وتم استبدال كلمة مسلم بمسلمة ومسيحي بمسيحية في المعادلة الموجودة في f4  و f5
3- تم تعديل نطاق النسخ في الورقة ,
4- تم ربط زر المعاينة بالكود وكذلك زر مسح  وللعلم الكود يقو بهذين الامرين فلا داعي لاستخدامهما
5- ليس بمقدوري شرح الكود فهناك اشياء بالكود لا اعلمها 
6- الكود بطئ جدا ولا اعلم السبب ولكنه يقوم بالامر المطلوب
كنترول d2021.xlsb

حسب فهمى لطلبك تم دمج الامرين مع بعض بالصورة  الثالتة 
__Daily order - نسخة.xlsm

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

السلام عليكم
ليست لدي طابعة 
جرب الملف المرفق
__برنامج المعتمرين _A4AA2020الجديد - نسخة (6) (1).xlsm

السلام عليكم
عذرا للتاخير انقطاع الكهرباء وصل لارقام قياسية
جرب الملف  وبه كود للعلامة عبدالله باقشير طبقته على ملفك
ينقص الكود  تكملة اسماء الاعمدة المراد ترحيلها فقد قمت بكتابة مادتين فقط وعليك اكمال الباقي
                     '''  أسماء الأعمدة المطلوب نسخها
                       Range("A" & R).Range("b1:c1,g1,i1:k1,s1:u1").Copy
 
طبعا القائمة المنسدلة لم تعد ضرورية
تحياتي
الترحيل بشرط القسم (1).xlsb

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

السلام عليكم
لدي كود وجدته بالمنتدى منذ سنوات واعتقد انه للسيد مختار حفظه الله
الكود يقوم باحضار البيانات من ملف الى ملف اخر وليس بالضرورة تشابه اسماء الشيتات  حيث يمكنك كتابة اسم الشيت المصدر وكذلك اسم الشيث المستقبل في الكود 
وكذلك ليس بالضرورة استيراد البيانات ووضعها في نفس الخلايا حيث يمكن التحكم بها في الكود 
وكذلك يمكنك استيراد البيانات بدون فتح الملف
عند الاستيراد يجب ان يكون الملفان في مكان واحدon.xlsx
كل ما سبق مزايا الكود
العيب الوحيد في الكود انه في حالة كثرة الشيتات يجب عليك تكرار كل سيث لوحده
الكود استخدمه منذ سنوات ويشتغل بجدارة
مشى امورك بهذا الكود الى حين تدخل عباقرة المنتدى لعمل كود ابسط
طبعا التعديل يتم في كود  GetData_Example1 اما الكود الاخر فاتركه كما هو
 اتمنى اني قدمت لك ما يفيد ولك وافر التقدير والاحترام
on.xlsx
on2.xlsb

اخي الفاضل
لم افهم قصدك من ان زر البحث لا يعمل بالرغم جربت الملف ويعمل جيدا
اذا اردت البحث برقم الشاسية قم بالمسح اولا ثم اكتب رقم الشاسية فقط ولا تكتب رقم البوليصة ثم اضغظ زر البحت الخاص بالشاسية
اذا اردت البحث برقم البوليصة قم بالمسح اولا ثم اكتب رقم البوليصة ولا تكتب رقم الشاسية ثم اضغط على زر البحث الخاص بالبوليصة
هذه الطريقة الاولي 
الطريقة الثانية للبحت عن طريق الفورم وهي تغنيك عن البحث بواسطة الزر ين وذلك بفتح الفورم تجد في الاعلي من اليسار بحث بالعمود اختر من الزر ما تريد البحث عنه ثم في الفراغ تحته اكتب ما تريد البحث عنه فمثلا  ثم اضغظ الزر ابحث تظهر النتائج في الاسفل انقر عليها تنقلك الى ما اردت البحث عنه وهذه الطريقة تمكنك من البحث باي شي رقم الشاسية او رقم البوليصة او مبلغ التامين  او اسم الزبون الخ...
كما يوجد بالفورم زر GO يبقلك الى الاسم الذي اخترته كما يوجد به زر طباعة تمكنك من طباعة بيانات الزبون في ورقة مستقلة
هذا النموذج من الروائع الموجودة بالمنتدي وبارك الله في صاحبه العلامة عبدالله باقشير 
تحياتي
البحث والتعديل.rar
الملف الاول بواسطة الطريقة الاولي اما الملف الثاني بواسطة الفورم 

اخي العزيز
المواد الدراسية لا تضاف الى الفورم وانما تكتب في كود تعيين مواد.
ادخل على محرر الاكواد  اختر MODULE18تجد كود باسم تغيين مواد تجد به اسماء المواد حسب الصفوف  غير اسماء المواد بالكود ثم اغلق الملف بالجفظ ثم افتح الملف تجد ما كتبته من مواد . قمت بكتابة 3مواد وقم انت بالباقي
اتمنى انى قدمت لك ما يفيدك وان لم يتضح لك شئ لا تخجل في طلبه
تحياتي
اضافة مواد.rar
 
 

يجب تمكين الماكرو
وعند اضافة اي مبالغ لاي قسم يجب الضغظ على الزرGETDATA
اما كونك تريدها اليا فمعادلة الاستاذ عبد الفتاح كافية
جرب الملف وبه معادلة الاستاذ واضف ما تشاء من مبالغ ستظهر اليا 
برنامج.xlsx

هذا البرنامج يقوم بما طلبت وهو معرب 
simsetup.rar

اخي الفاضل
طبعا الفورم به صفحتان الاولي للشريط المتحرك والاخرى لكلمة الباس
الاستاذ ضاحي متعه الله بالصحة عمل الكلمات بالشريط عن طريق ادراج صورة
بمعني تكتب العبارة التي تريدها في الرسام او الباوربوينت وتحفظها كصورة  
ثم تفتح الفورم وتنقر على الشريط فقط ثم  من خصائص الفورم تختار picture وتقوم بادراجها
الطريقة الثانية والتي قمت بعملها على الفورم ادراج ليبل وكتابة ما تشاء به ولك الخيار
تحياتي
شاشة صلاحيات باس ورد111.xls

وعليكم السلام
اذا حدتت المشكلة حديثا جرب خاصية استعادة النظام الى تاريخ سابق

السلام عليكم
اتمنى ان يكون طلبك
نسخة.xlsm