نجوم المشاركات

النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb

السلام عليكم ورحمة الله استخدم هذا الكود Sub Ranking() p = 3 For i = 4 To Range("C" & Rows.Count).End(3).Row On Error Resume Next If Cells(i, "H") > 0 Then p = p + 1 For j = 1 To 2 Cells(p, Choose(j, 14, 15)) = Cells(i, Choose(j, 3, 8)) Next End If Next Range("N4:O" & Range("N" & Rows.Count).End(3).Row).Sort key1:=Range("O4"), _ order1:=xlDescending, key2:=Range("N4"), order2:=xlAscending End Sub

تفضل =[Forms]![تلاميذ محددين]![Head_1].[Column](1) إظهار رأس الحقل في التقرير بالعربي كما هو بالنموذج2.rar

هذه واحدة من الواجهات التي صممتها بطريقة مميزة نوعا ما : والشكر لك مهندسنا @jjafferr على البرنامج الراااااااااائع 🙂 ومن هنا التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb جعفر صفحة رئيسية مطورة.zip ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb520 kB · 439 downloads ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= ThisWorkbook.Path & "\" & "FileNAme", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False جرب هذا الكود FileNAme اسم الملف المراد التسمية به

عمل ممتاز يعطيك الف عافية

حياك الله أخي الحلبي .. قمت الآن بتعديل الكود ليحمل أي عدد من الأزرار الفرعية .. ولكن بشرط الشرط هو أن تراعي تسمة الأزرار الإضافية بنفس النسق الذي تم تسمية الأزرار السابقة به .. فمثلا أزرار القسم الأول هكذا : ____SubBtn1 (مكان الفراغ تضع رقم الزر الفرعي) و أزرار القسم الثاني هكذا : ____SubBtn2 وهلم جرا ... منظر حي للتعديل : 🙂 للعلم : تم تحديث الرابط في المشاركة الأساسية .. وللزيادة هنا أيضا 🙂 ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb

النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 همسة في أذن الخبراء : كيف أجعل القوائم تمتد إلى آخر النموذج من جهة اليمين عند طي الأزرار ؟ وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb

تعقيب .. هذه الطريقة تنفع في ويندوز 7 .. لكن للاسف لا تنفع في ويندوز 10 و 11 هل يوجد حل لعرض الايقونة في شريط المهام في ويندوز 11 وكذلك 10 مع ملاحظة اختلاف الاعدادات في كلاء الاصدارين للويندوز ؟؟؟

قمت بمحاولة تعديل الصيغة اظن وصلت الى نتيجة صحيحة [الفرق]*([ثمن الوحدة])+([الصيانة])+([مستحقات اخرى])+([الاشتراك]) الف شكر لك استادي في القريب سارفع طلب اخر ان شاء الله تحياتي

وعليك السلام ورحمة الله وبركاته أخي العزيز 🙂 طريقة التعديل : أن تفتح الجدول في وضع التصميم .. تم تذهب إلى خانة [إجمالي المبلغ] ثم تنزل للخصائص ومن خاصية التعبير تضغط على زر الثلاث نقاط ثم تعدل الصيغة من نافذة منشئ التعبير ..

ماشاء الله افكار رائعة

بسم الله ما شاء الله بجد ممكن نسخة 2003

تفضل اخى الكريم عطيه يتم العد في العامود z وضع دوائر حمراء على الحصص ووضع عددها في العامود z.xls

ما شاء الله شئ يدعو للشرف الله يكتب لك الاجر

ماشاء الله تبارك الله روائع الروائع احترام من القلب

ماشاء الله جميل جدا وجذاب الله يعطيك العافيه ويبارك فيك

ما شاء الله ، واقعا هذه اشياء جديدة علينا ، وفي انتظارها على احر من الجمر 🙂 اخي كريم ، نحن الآن في انتظار المادة #2 و #3 🙂 جعفر

جزاكم الله خيرا استاذ ابراهيم تمام حفظكم الله

ولا زالت الإبداعات مستمرة .. 🙂 وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb

السلام عليكم ورحمة الله دالة Vlookup تهتم بالاعمدة فقط و لا تهتم بالصفوف ما عليك سوى استبدال رقم العمود بالحسبة المذكورة في مشاركتى السابقة و ذلك في الخلية B12 لتصبح المعادلة هكذا =IFERROR(VLOOKUP($F$1;sheet1!$A$9:$DL$108;(ROW()-12)*10+COLUMN(G7);FALSE);"") ثم سحب المعادلة لليسار وللاسفل دون ان ترفعى يدك عن الماوس كررى ماسبق مع الحسبة الثانية في الست اشهر التالية بدأا من الخلية B19 لتصبح المعادلة هكذا =IFERROR(VLOOKUP($F$1;sheet1!$A$9:$DL$108;(ROW()-13)*10+COLUMN(G7);FALSE);"") و الله الموفق و المستعان

حياك الله أخي الحلبي ... لك ما طلبت 🙂 ولكن تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb

وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb لا عدمناك عمي جعفر @jjafferr 🙂🌹 وعاد نقل الكود لموديول عام هذي لعبتك 😅

السلام عليكم ورحمة الله تم تعديل الكود بحيث تقوم انت اولا بتحديد النطاق المراد عد الدوائر فية ثم الضغط على الزر المربوط به هذا الكود فتظهر لك رسالة بعدد الدوائر فى هذا النطاق Sub Shap_Count3() Dim sh As Shape For Each sh In ActiveSheet.Shapes If Not Intersect(Selection, sh.TopLeftCell) Is Nothing Then p = p + 1 End If Next MsgBox "عدد الدوائر فى الورقة هو : " & p & " دائرة" End Sub

استاذى العزيز السلام عليكم وجدت هذا الكود ولكن اطلب تعديل عليه Function CountShapes(rngSearch As Range) As Integer Dim sh As Shape For Each sh In rngSearch.Parent.Shapes If Not Intersect(rngSearch, sh.TopLeftCell) Is Nothing Then CountShapes = CountShapes + 1 End If Next sh End Function هو ان يكون مدى الكود صف مثلا يعد الدوائر منa2 : a9 يكتب العدد في الخلية a11 وهكذا مع باقي الصفوف

تفضل هذا التعديل الرتب.mdb

اخوانى الاعزاء مديرى ومدرسى وادارى المدارس اليكم عمل بسيط ومتواضع لعله يستفاد به برنامج قاعدة بيانات شئون الطلبة للعام الدراسي 2014 / 2015 م نخص بالشكر الاستاذ والاخ الحبيب الاستاذ / رجب جاويش لمشاركته بعض الاكواد فى البرنامج يمكن تحميل البرنامج من الرابط التالى او من المرفقات رابط لبرنامج شئون الطلبة رابط لتعليمات العمل بالبرنامج قاعدة بيانات شئون الطلبة.rar تعليمات للعمل بقاعدة البيانات.rar