البحث في الموقع

السلام عليكم سويت فورم على جدول باكواد برمجية ولكن وقت التعديل يتم التعديل عل الخلية الاولى فقط ولايتم تعديل باقي الخلايا الرجاء المساعدة كلمة المرور لاظهار الجدول 0 واجهة.xlsm

مضبوط .. المطلوب إنشاء شيت لكل بند و يكون مربوط بذلك الجدول الرئيسي .

عباقرة أوفيسنا الكرام: في الملف المرفق أسماء ملاحظين لبعض لجان الامتحانات – وللأمانة العلمية استعنت بها من فكرة الأستاذ عادل حنفي – والمطلوب: عمل ارتباط بين الورقة الأولى والورقة الثانية بحيث تتم كتابة الأسماء من الجدول الموجود في الورقة الأولى أوتوماتيكيا في الورقة الثانية بشرط أن كل لجنة يكتب فيها أسماء الاثنين الملاحظين المحددين لها من داخل الجدول كما هو موضح في نموذج لجنة رقم (1) من بداية الامتحان وحتى نهايته؛ وكذلك الحال مع الاحتياطي كما هو موضح أيضا في نموذج لجنة الاحتياطي من بداية الامتحانات حتي نهايتها. وهكذا الحال مع بقية اللجان؛ ولو أمكن عدالة توزيع الاحتياطي على كل السادة الملاحظين. وأشكر لكم جميعا مقدما حسن تعاونكم معنا؛ وجزاكم الله عنا خير الجزاء. اللجان والملاحظة.xlsx

السلام عليكم تحياتى للأستاذ الفاضل / خالد المصرى ـ صاحب السؤال أحيط علم سيادتكم أن صفحات هذا الملف كاملة ماخوذة من برنامج ( كنوز للكنترول المدرسى ) لصاحبه : الفقير إلى الله / محمد الدسوقى وقد تم اخذ هذا الجزء من البرنامج بدون الرجوع إليه

شكرا لك استاذ @abouelhassan لكن لم يعمل الكود بشكل جيد بعد تغيير اسماء الأعمدة أيضاً لكن ما ارغب به هو ان تكون نفس المعادلة موجودة بطريقة الكود لأنه يمكن أن يتواجد في الشيت جدوال اخرى ايما فوق الجدول الأول أو تحته و ايضا لا ارغب بتغيير اسماء الشيتات لأنها ستكون ثابتة

جرب Private Sub SaveButton_Click() Dim wsHome As Worksheet Dim wsDaily As Worksheet Dim inputDate As Date Dim checkDate As Range Set wsHome = ThisWorkbook.Sheets("Home") Set wsDaily = ThisWorkbook.Sheets("Daily") 'Get the date from cell F13 in the Home sheet inputDate = wsHome.Range("F13").Value 'Check if the date is already in column J in the Daily sheet With wsDaily Set checkDate = .Columns("J").Find(inputDate, LookIn:=xlValues, lookat:=xlWhole) End With 'If the date is found, prevent saving and show a message If Not checkDate Is Nothing Then MsgBox "تم حفظ تقرير لهذا التاريخ مسبقاً في الجدول اليومي" Exit Sub End If 'Save the data if the date is not found 'Add your code here to save the data to the Daily sheet End Sub تأكد من تغيير اسماء الشيتات ("Home" و "Daily") وتعديل موضع الخطأ في حالة وجود أي اختلاف في اسماء الشيتات.

اهلا لدى عدد 2 جدول بهم بيانات اريد ارتيب الجدول الثانى حسب بيانات الجدول الاول .... حسب المرفق TW.xlsx

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

مرحبا جميعاً احتاج معادلة بحث بشرطين اثنين كما هو موضح في الجدول احتاج معادلة لأعرف اسم المندوب بحس التاريخ و كود الزبون اي ان اكتب التاريخ و الكود يظهر عندي اسم المندوب الشيت المسمى الرئسية هو شيت ادخال البيانات و الشيت 1 + 2 هم شيتات فرعية يومية و هي ستكون كثيرة حسب ايام الشهر او السنة نسخة.xlsx

السلام عليكم كيف يمكنني أن أظهر رصيد الصندوق في الجدول المحوري لصف واحد فقط ؟ رصيد الصندوق.xlsx

السلام عليم الدينا ورقة اكسل بها اعمدة E G K I M تحتوي على قيم و شيت فارغ اريد تعبئة الحقول من القيم الموجودة بالعمدة E G K I M على شكل متتالية حسابية اساسها 9 اي كل عمود من الشيت يتكون من 6 اسطر وشكرا tableau.xlsx

كيف يمكنني جعل الرسم التبياني يتجاهل الفراغات الموجودة في الجدول أسفل الملف مع العلم انها تحتوي على معادلات لجلب القيم من شيت ثاني test10.xlsx

ربما لم تنتبه للكود اذا اردت الاشتغال على ورقة 2 قم بتعديل هذا السطر لان البيانات يتم جلبها من ورقة 1 Set WS = Worksheets("Sheet1"): Set desWS = Worksheets("Sheet2") الى Set WS = Worksheets("Sheet2"): Set desWS = Worksheets("Sheet2") او تعديله بالكامل بالشكل التالي Option Explicit Public Sub TransposeData2() Dim desWS As Worksheet, rng As Variant Dim Cpt() As Variant, I As Long, J As Long, k As Long, loc As String Set desWS = Worksheets("Sheet2") Application.ScreenUpdating = False rng = desWS.[C6:O10].Value2 For I = 2 To UBound(rng) For J = 2 To UBound(rng, 2) Step 2 If rng(I, J) > 0 Then ReDim Preserve Cpt(2, k + 1) Cpt(0, k) = rng(I, 1) Cpt(1, k) = rng(I, J) k = k + 1 End If Next J Next I If k > 0 Then desWS.Range("C15:D" & Rows.Count).ClearContents desWS.Cells(15, 3).Resize(k, 2).Value = Application.Transpose(Cpt) 'اظافة الجدول loc = desWS.Range("C14:D" & desWS.[D65000].End(xlUp).Row).Address If desWS.ListObjects.Count <> 0 Then Exit Sub desWS.Cells(14, 3).Resize(, 2).Value = Array("Part", "INDEX") desWS.ListObjects.Add(xlSrcRange, desWS.Range(loc), , xlYes).Name = _ "Table1" End If Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله تعالى وبركاته لم افهم مادا تقصد بتصفية البيانات في جدول منفصل لاكن على العموم للحصول على النتيجة الظاهرة في الصورة اعلى يكيفي استخدام الكود التالي Option Explicit Public Sub TransposeData() Dim Cpt() As Variant, I As Long, J As Long, k As Long, rng As Variant Dim WS As Worksheet: Set WS = Worksheets("Sheet1") Application.ScreenUpdating = False rng = WS.[C6:O10].Value2 For I = 2 To UBound(rng) For J = 2 To UBound(rng, 2) Step 2 If rng(I, J) > 0 Then ReDim Preserve Cpt(2, k + 1) Cpt(0, k) = rng(I, 1) Cpt(1, k) = rng(I, J) k = k + 1 End If Next J Next I If k > 0 Then WS.Range("C15:D" & Rows.Count).ClearContents WS.Cells(15, 3).Resize(k, 2).Value = Application.Transpose(Cpt) End If Application.ScreenUpdating = True End Sub ولوضعها في جدول يمكنك التعديل على الكود على الشكل التالي هدا مثال لنسخ البيانات على ورقة 2 Option Explicit Public Sub TransposeData2() Dim WS As Worksheet, desWS As Worksheet, rng As Variant Dim Cpt() As Variant, I As Long, J As Long, k As Long, loc As String Set WS = Worksheets("Sheet1"): Set desWS = Worksheets("Sheet2") Application.ScreenUpdating = False rng = WS.[C6:O10].Value2 For I = 2 To UBound(rng) For J = 2 To UBound(rng, 2) Step 2 If rng(I, J) > 0 Then ReDim Preserve Cpt(2, k + 1) Cpt(0, k) = rng(I, 1) Cpt(1, k) = rng(I, J) k = k + 1 End If Next J Next I If k > 0 Then desWS.Range("C15:D" & Rows.Count).ClearContents desWS.Cells(15, 3).Resize(k, 2).Value = Application.Transpose(Cpt) 'اظافة الجدول loc = desWS.Range("C14:D" & desWS.[D65000].End(xlUp).Row).Address If desWS.ListObjects.Count <> 0 Then Exit Sub desWS.Cells(14, 3).Resize(, 2).Value = Array("Part", "INDEX") desWS.ListObjects.Add(xlSrcRange, desWS.Range(loc), , xlYes).Name = _ "Table1" End If Application.ScreenUpdating = True End Sub تصفية تلقائية V2.xlsb

الجدول فيه ثلاث صفوف صف العناوين الصف الاول جميع الخلايا من Aحتى T فيها قيم الصف الثاني الخلايا من Aحتى F فيها قيم الصف الثاني المجموع فقط للقيم من A حتى F اريد مجموع الصف الاول تكون للقيم من A حتى F فقط تكون نقسم عدد قيم الصف الثاني

السلام عليكم ورحمه الله وبركاته أريد دالة أو كود لاستكمال بيانات الجدول الأول من البيانات الموجودة في الجدول الثاني بحيث تكون الأسماء ( محمد1 ، محمد2 ، ................. ) مقابل كل رقم له مع العلم أن : الأسماء أكثر من 20 أسم ـ الأرقام 25 والأوفيس 2003 ولكم كل الشكر مقدماً طلب دالة أو كود.xls

اخواني اعضاء المنتدي الكرام لدي فورم وبه زر لحفظ اليبيانات وعند تسجيل بيان جديد وبالضغط علي زر حفظ البيانات يرحل البيانات في آخر الجدول ولا يرحلها بعد البيانات الموجودة في الجدول يعني المفروض آخر بيانات في الجدول رقم 61 لما ارحل بيانات جديدة تترحل في آخر الجدول وليس بعد 61 فما الحل ؟ آمحمد.xlsmىسف الملف المرفق

فيديووووو جديدددددد كيفية الوصول إلى اخر خلية في الجدول بمعادلة HYBERLINK إرتباط تشعببي للإنتقال الى أخر سطر من الشيت

اشكرك استاذ محي الدين على المتابعة لكن يبدو ان الفكرة غير واضحة ما اريده من الماكرو هو نسخ البيانات من العمود A الى الجدول لاحظ استاذي بعد افراغ الجدول و تشغيل الماكرو ماذا حصل قام الماكرو بمسح الحقل بالكامل

السلام عليكم / هل هناك طريقة او معادلة تقوم بانشاء صف جديد بنفس ميزات الصف السابق بعد تعبئته والترقبم التلقائي للتسلسل دون المساس بخلايا المجموع التي في الجدول بمجرد زر انتر ( الموضوع باختصار جدول تسعيرة للاصناف والا صناف أحيانا تكون قليلة أو كثبرة ) بدل من عملية ادراج صف ونسخ معادلة وحذف صف التسعيرة.xlsx

السلام عليكم ورحمة الله عندي في هذا الجدول خانة أريد وضع دالة تستنج رقم من الموجود المسألة هي : اشتريت مثلا 20 سهم بمعدل سعر الواحد ب 5 $ ونزل السعر اليوم ل 3 $ فكم سهم يجب ان أشتري لأبيعهم جميعا ب 4 $ بدون ربح او خسارة ..؟ الرقم موضوع يدويا اريد ان يتولد تلقائيا لو تكرمتم 111.xlsx

بسم الله الرحمن الرحيم أخواني تحية من القلب للقلب ومشكورين على المجهود الجبار داخل المنتدى بعد اذنكم مرفق يوزر فورم قائمة الليست فيو محتاج اضافتين وهما 1- يحدد عدد الصفوف التى تظهر فى الليست فيو هو حاليا بيظهر الجدول كامل انا محتاجه يظهر فيها عدد صفوف محدد مثلا 20 صف ويكونوه اخر 20 صف فى الجدول 2- اضافة كود داخل زر المسح لحذف الصف المحدد فى الليست فيو ولكم جزيل الشكر listview.xlsm

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام هذان جدولان احدهما جدول والاخر جدول عادي عند استخدام فرز او تصفية بين تاريخين في ورقة جدول تظهر كافة التفاصيل من سنة وشهر ويوم ومنها اقوم بالتصفية المطلوبة بين تاريخين اما اذا كان جدول عادي ( نطاق) لاتظهر جميع السنوات والاشهر والسنة كيف معالجة الخلل في الجدول العادي بحيث تظهر جميع التواريخ المطلوبة لغرص فرزها وتصفيتها من السهم في عمود التاريخ. ولكم وافر احترامي 89140956_.xlsx

لدي مشكلة في عملية تخزين البيانات في جدول تم تنسيقة بخاصية الجداول، وارجو المساعدة في حلها والمشكلة هي أنه عند ترحيل البيانات من شيت 1 إلى شيت 2 مكان تخزين البيانات المرحلة والموجود به جدول تم تنسيقه من خلال خاصية إدراج جدول فتكون عملية التخزين من اسف الجدول وليست من بداية الجدول. أرجو المساعدة في الحل إن تكرمتم علينا واكون شاكراً لكم فضلكم جزيل الشكر مرفق الملف gg.xlsm

بسم الله الرحمن الرحيم " الْحَمْدُ لِلّهِ الَّذِي هَدَانَا لِهَذَا وَمَا كُنَّا لِنَهْتَدِيَ لَوْلا أَنْ هَدَانَا اللّهُ " ============================================================ برنامج الكنترول المدرسى 2017 من فضلك أكمل قراءة الموضوع ــ روابط التحميل آخر الموضوع نبذة عن البرنامج أولاً ـ تم تصميم وإعداد هذا البرنامج باستخدام Office 2010 ، لذلك فالبرنامج لا يعمل على Office 2003 ثانيًا ـ يعتبر هذا البرنامج الاصدار الثانى بعد نجاح الاصدار الأول بفضل الله ـ عز وجل ـ و الذى أعجب به كثير من رواد الكنترولات لبساطته وسهولة التعامل معه ولكن وجد به بعض التعديلات التى وجبت علىّ متابعتها وتعديلها وإظهار الأفضل والأدق ، فكان هذا الاصدار الثانى . الجديد في هذا الاصدار : 1ـ استخدام تصميمات جذابة سواء في أوراق العمل أو في وجهات البرنامج المختلفة . 2ـ يتم الانتقال بين أوراق الكنترول باستخدام أزرار داخلية المساعدة و من خلال الوجهات للدخول غلى أوراق العمل . 3 ـ تم تخصيص ورقة لتجهيز وإعداد وضبط وفرز أسماء التلاميذ وترتيبهم ابجديا ( الذكور أولا ) أو ( الإناث أولا) يتم الترحيل منها إلى البيانات الأساسية للطلاب 4ـ وتم إضافة خيار جديد داخل قائمة ( حالة الطالب ) وهو منقطع العام السابق إذا كان الطالب غائب عن الامتحان العام السابق فقط ( منقطع عام واحد ) وذلك لحساب عدد الطلاب الموقوف قيدهم للانقطاع عامين بعد الدور الثانى . 5 ـ في كثير من أوراق العمل متابعة تعليمات التشغيل من خلال ( ملاحظات ) موجودة داخل كل ورقة عمل . 6 ـ وجود إحصائيات داخل أوراق العمل للمساعدة مسئول الكنترول على متابعة العمل. أولا بأول 7ـ كشوف المناداة يحتوى كل كشف على لجنتين من نفس الصف الدراسى . 8 ـ الجدول وأرقام الجلوس : يوجد بالجدول الأول بالورقة قوائم منسدلة لملء بيانات الجدول فمثلا : خانة اليوم .... اضغط ستجد قائمة بأيام الأسبوع. خانة المادة ... اضغط ستجد قائمة بأسماء المواد الدراسية . خانة الزمن .. اضغط ستجد قائمة بأوقات الامتحان المتاحة . 9 ـ يتم ترحيل الطلاب الراسبين أو الناجحين تلقائيًا إلى أوراق منفصلة بهم خاصة 10 ـ زادت دقـــة الاحصائيات عن الاصدار الأول وتعديل ما بها من قصور بسيط . 11 ـ تم استخراج نسبة 65 % للطلاب الناجحين للمواد مرفقة داخل ورقة الاحصاء . 12 ـ تم تعديل شروط الحصول على الأوائل لتكون أكثر دقــة وذلك بالشروط المنصوص عليها وهى : الأكبر مجموع ثم الأصغر سنا في حالة تساوى المجموع ثم الترتيب الأبجدى في حالة تساوى المجموع والسن . ـ وظهور كلمة مكرر في حالة التساوى . 13 ـ يمكن التحكم في عدد الأوائل 30 أو 20 أو 10 حسب الرغبة وذلك باستخدام أزرار معينة موجودة بورقة العمل . 14 ـ تم تعديل هيكل تصميم الشهادات ليوافق التصميم المتعارف عليه والمنصوص عليه . 15 ـ يمكن الحصول على شهادات بأكثر من شكل كما يلى :_ __ شهادة التيرم الأول بمجموع المواد الأساسية فقط __ شهادة التيرم الأول بالمجموع الكلى بالأنشطة ـ __ شهادة التيرم الأول بدجات الامتحان التحريرى ـ __ شهادة التيرم الثانى بمجموع المواد الأساسية فقط __ شهادة التيرم الثانى بالمجموع الكلى بالأنشطة ـ __ شهادة التيرم الثانى بدجات الامتحان التحريرى ـ 16 ـ : الدور الثانى : _ يتم ترحيل البيانات من شيت راسبين آخر العام إلى ورقة البيانات الأساسية للطلاب الدور الثانى تلقائيا . 17 ـ يتم ترحيل الدرجات الناجحة فقط إلى كشف رصد الامتحان التحريرى الدور الثانى ويتبقى خانات فارغة التى تخص الدرجات الراسبة التى يتم الامتحان فيها ورصدها . 18 ـ يوجد إحصاء ختامى لنهاية العام الدراسى . 19 ـ يوجد أوراق منفصلة كل على حده لما يأتى : _ أ ـ كشف الناجحين بعد الدور الثانى . ب ـ كشف الراسبين بعد الدور الثانى . ج ـ كشف المنقولين بحكم القانون بعد الدور الثانى . د ـ كشف الموقوف قيدهم للانقطاع عامين بعد الدور الثانى . 20 ـ تم إضافة أوراق جديدة للكنترول للمساعدة على أداء العمل : وهذه الأوراق هى أ ـ كشف إجمال براسبين التيرم الثانى لتوقيع ولى الأمر بالعلم . ب ـ إخطار ولى الأمر رسميا من المدرسة بالدور الثانى للطالب . ج ـ أوراق خاصة برئيس الكنترول ( تشكيل لجنة الكنترول ـ إقرار موانع الامتحان ـ تعليمات سير الامتحانات ) . د ـ محضر فتح مظاريف أوراق الأسئلة . هـ ـ محضر فتح / غلق الكنترول . و ـ محضر تصحيح أوراق الاجابة . ز ـ كشف إجمالى بتوزيع اللجان من الصف الأول إلى الصف الخامس ( خاص بالكنترول ) =================================================================== وأخيـــــــــــــرًا فى حالة وجود أى قصور أو مقترحات واستفسارات عن البرنامج يرجى التواصل معنا عبر خطوط التواصل المختلفة سواء أرقام الهاتف المحمول أو البريد الإلكترونى أو الصفحة الرئيسية على موقع التواصل الاجتماعى الفيس بوك ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ مع تحياتى محمد إبراهيم الدسوقى معلم أول ( أ ) حاسب آلى محافظة الغربية ـ إدارة سمنود التعليمية مدرسة أم المؤمنين الابتدائية ـ بالراهبين 01125915740 // 01274757320 @@@@@@@@@@@@@@@@@@@@@@@ E.mail : me.100100@yahoo.com Facebook_Pro. : Mohamed Eldesoky @@@@@@@@@@@@@@@@@@@@@@@ والآن مع روابط التحميل : الصف الأول الابتدائى هنــا الصف الثانى الابتدائى هنــا الصف الثالث الابتدائى هنــا الصف الرابع الابتدائى هنــا الصف الخامس الابتدائى هنــا @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ السلام عليكم ورحمة الله