بارك الله فيك وجزاك الله خير ابا آمنه
الله يعطيك الصحة والعافيه
تمام التعديل انحلت المشكله بالرساله اللي تفيد الكرار
شكرا لك اخي الكريم
وارجو المعذره بتاخري بالرد
من الصباح ماني قادر ادخل هلى المنتدي
احترامي وتقديري
بارك الله فيك وجزاك الله خير اخي ابو عارف
الله يعطيك الصحه والعافيه
اضافتك مهمة جدا وهي اللي ابحث عنها
الف شكر لك اخي الكريم
وبانتظار إضافاتك واضافات ابو امنه
وفقكم الله ونفع بكم
احترامي وتقديري
السلام عليكم و رحمة الله و بركاته
أخي صالح ماشاء الله عليك على تطور البرنامج و افكار رائعة
من اول اطلاع على البرنامج بصراحة ضيعت اين بداية و اين نهاية البرنامج ولكن بعد دراسة دقيقة توصلت الى بعض نقاط مهمة كما اشار اليه الأخ( @at_aziz) و هو إضافة ازرار و اضافة الصور كما تفضلت و حاليا عملت تغيرات على هذين النقتطين حيث قبل تغبر كان من المفروض إنشاء الزر ثم تسميتها بالكود الوجبة المخصصة ثم وضع علامة ... و حاليا اضفت بعض ازرار في كل فئات و عند اضافة زر جديد، لا داعي ابة ربط يدوي البرنامج يقوم بهذالدور و ماعليك الا اضافة زر الوجبة و زر الصورة فقط يدويا علما بانه يمكن حتى إنشاء ازرار برمجياً ولكن تلك الاجراء يتطلب فتح النموذج في عرض تصميم و اضافة الزر ثم حفظ العمل و اغلاق نموذج ولكن هذا طريقة يتعذر بعد تحويل ملف الى accde .
وثانيا اضفت الصورة من مجلد الصور سواء مسار الصورة موجود في جدول ام لا هذا و يوجد بعض ملاحضات بسيطة حسب فكرتي طبعا ساقوم بتعديل حسب فراغ منهم عدم تفعيل زر في حال عدم توافر كمية كافية على سبيل المثال و دمتم بصحة و العافية
ملاحظة: يجب نسخ المجلد داخل ارشيف الى اي مكان في الجهاز ثم فتحه و اطلاع عليه
Restaurant.rar
السلام عليكم ورحمة الله
طبعا الطريقتين صح وهناك برامج تعمل على جدول واحد للمبيعات والمرتد وجدول واحد للمشتريات والمرتد
ولكن بالتجربة والبرامج الكبيرة تعمل على جدولين وذلك يظهر أثره فى التعامل مع البيانات الكبيره وسهولة برمجة التقارير والتعامل مع صلاحيات المستخدمين وخاصة فى الشركات التى يوجد بها عدد مستخدمين كبير
تحياتى
في الصورة المرفقة جدول تفاصيل فاتورة الشراء اخر ثلاثة اعمدة بيانات المرتجع
عندما تقوم بعمل كويري لتفاصيل فاتورة المشتريات لاتدرج هذه الاعمدة
عندما تقوم بعمل كويريي المرتجعات تدرجها
وبالتالي فاتورة المشتريات وفاتورة المرتجعات تكون في جدول واحد
الخاصية Print preview لبست من خصائص Range بل هي من خصائص الـــ Sheet
لذلك يجب كتابة الكود بهذا الشكل
Sub Print_Preview()
With Sheets("Report4")
.PageSetup.PrintArea = Range("a1:i20").Address
.PrintPreview
End With
End Sub
إخواني الكرام
السلام عليكم ورحمة الله وبركاته
أقدم لكم شيتات الكنترول للمرحلتين الابتدائية والإعدادية
ولا يحتاج هذا الشيت أن تكون خبيرا بالإكسيل
فقط عدل بيانات في الصفحة الرئيسية واضغط مدرسة جديدة
سيتم تعديل الشيتات لتكون جاهزة للرصد بناءا على بياناتك الجديدة
كل ما عليك أخي العزيز أن تملأ بيانات الطلاب وبمجرد الانتهاء من رصد آخر مادة سيكون بإمكانك استخراج الآتي بضغطة زر
1 ـ طباعة شهادات الطلاب دفعة واحدة أو طباعة شهادة معينة
2 ـ الحصول على نتيجة عامة بترتيب أرقام الجلوس فصل دراسي أول أو ثاني بحسب القيمة التي وضعتها في الصفحة الرئيسية وهذه النتيجة جاهزة للطباعة باستخدام ورق A4 دون الحاجة للتدخل منك في تحديد ناحية الطباعة أو تكبير ارتفاع الصف أو تصغيره ليلائم الورقة
3 ـ الحصول على نتيجة كل فصل منفرد ويمكن استخدام هذه الخاصية في فصل المدارس في الصف الثالث الابتدائي مثلا وجاهزة للطباعة أيضا
4 ـ الحصول على كشوف للناجحين والراسبين كل على حدة مع كشوف بها بيان مواد الرسوب وخانة للتوقيع بالعلم عليها
5 ـ امكانية طباعة الأوائل العشرة واحصاءات بنسب المواد
بعض التنبيهات
إذا لم تكن خبير
لاتحاول تغيير أي تنسيقات أو اضافة صفوف أو أعمدة إلا إذا استطعت تغيير الأكواد
عند استخدام الصق اختر لصق خاص (القيم ) paste ___ paste special
لا تلغي حماية الورقة ولا تستخدم autofill
عند حدوث مشكلة راسلني أو استعن بخبير
الشيت الخاص بالإعدادي به بيانات لمن أراد تجربة الشيت
رجاء
إذا أعجبك البرنامج لا تبخل على أخيك الفقير إلى الله تعالى بدعوة صالحة بظهر الغيب
والرد على البرنامج حتى يظل في الصدارة فيستفيد منه غيرك
وكذلك أرجو من إخواني الخبراء بالإكسيل والذين لهم برامج أخرى بالإكسيل ترك الكود مفتوحا حتى يستفيد منه الآخرون ويطورا من أنفسهم .
أنتظر ردودكم آرائكم توجيهاتكم
أحبكم في الله
control.zip
control ب 123.zip
control ب 4 5.zip