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

لقراءة محتويات ملف xml يمكنك استعمال هذا الكود Sub mas_get_data() Dim Doc As Object, Variables As Object, r As Integer Set Doc = CreateObject("MSXML2.DOMDocument") Doc.async = False: Doc.validateOnParse = False Doc.Load ActiveWorkbook.Path & "\a.xml" 'get price r = 2 Set Variables = Doc.SelectNodes("//TWM_SAD/Item/Tarification") For Each variable In Variables Sheets(1).Range("f" & r).Value = variable.SelectNodes("Item_price").Item(0).Text r = r + 1 Next 'get description r = 2 Set Variables = Doc.SelectNodes("//TWM_SAD/Item/Goods_description") For Each variable In Variables Sheets(1).Range("d" & r).Value = variable.SelectNodes("Description_of_goods").Item(0).Text r = r + 1 Next MsgBox "Every thing is OK." End Sub بشرط وضع ملف xml ففي نفس مسار ملف الاكسل ويمكنك تغيير أسماء العقد nodes حسب ملف xml مع مراعاة مسار العقد الصحيح ومراعاة حالة الحروف

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

تابعوا معنا طرق التعامل مع البيانات ومعالجتها وتنظيفها في برنامج الاكسل من خلال الحلقة في الرابط أدناه:

جرب هذا الملف ABd_sabah.xlsx

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

في سطر الــ Address يجب كتابة "F2" و ليس "f2" لأن لهذا الأمر أهمية

وعليكم السلام ورحمة الله وبركاتة @أحمد العيسى حسب قولك انت بحاجة الى جدولين ثم تعمل بينهما علاقة راس باطراف

استخدمنا هذا الكود للفلترة .... Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[7] = '" & Me![n] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark F_____StuData.rar

السلام عليكم بعد اذن الاستاذ جرب تغيير بسيط في الكود اضف "Value" الى textbox1 و textbox2 .Range("A" & lastRow).Value = TextBox1.Value .Range("B" & lastRow).Value = TextBox2.Value مثال.xlsm

تم معالجة الأمر مجرد ما تختارين القيمة المناسبة من الحلية G1 ينفذ الماكرو فوراً الخلية G1 تحتوي غلى فائمة متسدلة (رؤوس الأعمدة) من N الى R Yara_Formula_to_Vba.xlsm

الحل =CHOOSE(MATCH($G$1,$N$1:$R$1,0), INDEX($N$2:$N$10,MOD(ROWS($A$1:A1)-1,COUNTA($N$2:$N$10))+1), INDEX($O$2:$O$10,MOD(ROWS($A$1:A1)-1,COUNTA($O$2:$O$10))+1), INDEX($P$2:$P$10,MOD(ROWS($A$1:A1)-1,COUNTA($P$2:$P$10))+1), INDEX($Q$2:$Q$10,MOD(ROWS($A$1:A1)-1,COUNTA($Q$2:$Q$10))+1), INDEX($R$2:$R$10,MOD(ROWS($A$1:A1)-1,COUNTA($R$2:$R$10))+1)) لاحظي الصورو

جرب هذا الشيء Ahmedabutaleb.xlsx

نعم يعمل عندي ، ولزيادة التأكيد انني قمت بحذفه وتنصيبه اكثر من مرة بلا مشاكل والطريقة بالضبط كما ذكر صاحب الموضوع اعلاه وايضا ذكر هذا بالتفصيل هنا علما ان جهازي وندوز 7 ، 32 بت

هل الأعمدة تبدأ من N أو من O ????

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي Private Sub Form_Open(Cancel As Integer) Dim z0 z0 = DLookup("HIDENX1", "TBsystem") If z0 = -1 Then x1.Visible = True Else If z0 = 0 Then x1.Visible = False End If End If End Sub hid.rar تحياتي

فقط اول رقم يتغير البقية لاتتغير

تفضل التعديل Root555.rar

السلام عليكم .. أرجو المساعده قى هذا الكود عمل كود تلقائى يعمل عند فتح الملف إذا C5 تساوى C12 يكون من E5 الى E12 = "" أى لاشئ أو delete من E5 الى E12 كود بشرط.xlsm

وعليكم السلام-فقط يمكنك وضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() If Range("C5").Value = Range("C12").Value Then Sheet1.Range("e5:e12").ClearContents End If End Sub كود بشرط.xlsm

عفرا فين انت من هذه الإجابة الممتازة ؟!!! أين الضغط على الإعــــــجــــــاب ؟!!!💙

السلام عليكم ورحمة الله وبركاته سـبحـان الله وبحمده*عدد خلقه*ورضاء نفسه*وزنة عرشه*ومداد كلماته جزاكم الله خيرا وجعل كل ايامكم رضا(وبارك الله فى مبرمجه)تقويم الصيام(معدل).xls والسلام عليكم ورحمة الله وبركاته

تفضل تم توحيد اسم الحقل المخصص لكود الموظف إلى emp_id بالجداول الثلاثة للتسهيل فقط. وبهذه الاحصاءات في تقريرك المطلوب لا تحتاج إلى مصدر بيانات للتقرير ولا استعلام ولا علاقات Dsum_Dcount_in rpt_creteria.accdb

السلام عليكم أحبائي في هذا المنتدى بداية أحب ان أعبر عن خالص شكري وتقديري لكم مشرفين وأعضاء ، فقد كانت بداياتي معكم كأي مستخدم بسيط جدا على الاكسل وقد طورت نفسي كثيرا بجهدوكم معنا ,احببت اليوم ان اضع بين أيدكم برنامج قمت بتصميمه على الاكسل للشهادات وكشوف الدرجات خاصة بمدارس وكالة الغوث في غزة البرنامج موجود كمرفق في هذه المشاركة (مرفق لكل مرحلة) نرجو منكم تحميل البرنامج من الموقع نفسه وتقديم مقترحاتكم حوله برنامج يختص بإعداد الشهادات وكشوف الدرجات لمدارس وكالة الغوث الدولية بمنطقة غزة التعليمية مخرجات البرنامج : * شهادات الفصل الأول * شهادات الفصل الثاني * مصدقة الشهادة وهي مستخرج شهادة بدل فاقد * كشف درجات الفصل الأول ( ويشتمل على المجموع ، الترتيب ، النتيجة ) * كشف درجات الفصل الثاني ( ويشتمل على مجموع الفصل الأول والثاني وترتيب الفصل الثاني والنتيجة النهائية ، ناجح ، راسب، مكمل ) * كشف عام في نهاية الفصل الثاني خاص ( بالتعليم) ويتم من خلاله تحديد مواد الإكمال وتحديد علامات الإكمال * كشف عام للمدرسة في نهاية الفصل الثاني ويشتمل على الترتيب والنتيجة النهائية * خلاصة الفصل الأول ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * خلاصة الفصل الثاني ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) * الخلاصة العامة للفصلين ( مسجل ، متقدم ، غائب ، ناجح ، راسب ، نسبة مئوية ) حسب النتيجة النهائية بعد التعديل * كشف المترفعين للعام الدراسي الجديد * كشف المكملين * كشف الراسبين * كشف الغائبين **** نموذج سهل لطباعة الشهادات بطريقة سهلة من خلال نفس البرنامج والتحكم في عدد الشهادات المراد طباعتها ونوعيتها بلون أسود أو بالألوان ملاحظة : تم وضع معايير للعلامات بحيث أن العلامة المدخلة من( 1-50 ) ولا يقبل الحاسوب علامة أكبرمن 50 أو أصغر من 1 ، في حالة الغياب نكتب للطالب غائب ويمكن وضع أنصاف الدرجات للطالب وخاصة في حالة الطلاب المتميزين التي تفصل بينهم نصف الدرجة عند الترتيب " shahada1_2_3_4.zip shahada5_6.zip shahada7_8_9.zip

الإخوة الأعزاء مشرفين وأعضاء السلام عليكم ورحمة الله برنامج التوزيع الآلى للجدول المدرسى من المواضيع التى تهم عدد كبير ممن يعملون بمجال التعليم والمشاركة فيه مفتوحة للجميع والآن نبدأ على بركة الله بشرح آلية عمل البرنامج قبل الشروع فى إنشاء الجداول بكل مدرسة عدد من المعلمين يقومون بالتدريس للطلاب فى صف دراسى أو أكثر وفى فصل دراسى أو أكثر من فصل وأيضا ممكن المدرس الواحد يدرس مادة واحدة أو أكثر فى الفصل الواحد أو فى أكثر من فصل من هنا نجد أن الموضوع متشابك ومتداخل (معقد حبتين) أبدا لا معقد ولا حاجه هو محتاج شوية تنظيم فى بناء الجداول وربطها تمام عشان كده هانبدأ بعمل الجداول التى نحتاج بياناتها فى عملية التوزيع فى البداية لابد من جدول يشمل الصفوف عندنا كام صف سنعمل على مدرسة ابتدائية حكومية فمثلا نجد أن لدينا عدد 6 صفوف من الصف الأول حتى الصف السادس طيب وكل صف ليه كام يوم دراسه 5 أو6 أيام طيب وكل صف ليه كام حصه فى اليوم الواحد وهل كلها متساويه لا طبعا شاهد معى الجدول بنموذج الإدخال لكل صف توزيع الجداول المدرسية.rar

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

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

هذا الكود كان ثاني تجربة لي فى برمجة الباوربوينت و قد أعددته بناء علي طلب أحد الأخوة ، و فى البداية استغربت لطلبه فهناك عدة وسائل للتنقل بين الشرائح المختلفة ، فلماذا تريد التنقل بضغط رقم اللوحة ؟؟ و كانت الاجابة ، أنه يرغب فى إخفاء لوحة المفاتيح ووصلها بأزرار لعمل عرض فيضغط المستخدم علي الزر الاحمر فيذهب للشريحة الاولي ... و هكذا المهم بعد عدة محاولات ، تم اعداد الكود و هو مناظر لاوفيس اكس بي و الشرح داخل الملف و الفكرة عبارة عن عمل add-in لأن تشغيل الاحداث تلقائيا عند تشغيل العرض فى الباوربوينت يتم عن طريق وضع الكود فى add-in مرفق الملف مع شرح كيفية توصيف ال add-in و أصل الكود لل add-in Dim X As New EventClassModule Sub Auto_Open() Call InitializeApp MsgBox "welcome to slide show by Keyboard numbers" & Chr(13) & Chr(13) & "By : Mohamed Taher Arafa " End Sub Public Sub InitializeApp() Set X.App = Application End Sub Public Sub activatef1() ActiveWindow.Selection.SlideRange.Shapes("Frame1").Select End Sub Public Sub moveit(KeyCode) Select Case KeyCode Case 49 MsgBox "You Pressed on 1 and you shall go to slide no 1" With SlideShowWindows(1).View .GotoSlide 1 End With Case 50 MsgBox "You Pressed on 2 and you shall go to slide no 2" With SlideShowWindows(1).View .GotoSlide 2 End With Case 51 MsgBox "You Pressed on 3 and you shall go to slide no 3" With SlideShowWindows(1).View .GotoSlide 3 End With Case 52 MsgBox "You Pressed on 4 and you shall go to slide no 4" With SlideShowWindows(1).View .GotoSlide 4 End With Case 97 MsgBox "You Pressed on 1 and you shall go to slide no 1" With SlideShowWindows(1).View .GotoSlide 1 End With Case 98 MsgBox "You Pressed on 2 and you shall go to slide no 2" With SlideShowWindows(1).View .GotoSlide 2 End With Case 99 MsgBox "You Pressed on 3 and you shall go to slide no 3" With SlideShowWindows(1).View .GotoSlide 3 End With Case 100 MsgBox "You Pressed on 4 and you shall go to slide no 4" With SlideShowWindows(1).View .GotoSlide 4 End With Case 27 MsgBox "You Pressed Esc, Good bye !!" With SlideShowWindows(1).View .Exit End With Case Else MsgBox " Sorry this example is prepared for only 4 slides," & Chr(10) & Chr(13) & _ "Choose a number from 1 to 4 please" & Chr(13) & Chr(13) & "Best Regards from : Mohamed Taher" End Select End Sub Public Sub openit() UserForm1.Show UserForm1.Left = 0 UserForm1.Top = 50 End Sub Public Sub starting() Call InitializeApp End Sub keyboardPresentation2.rar