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

قم بانشاء برنامج لاي غرض كان في تنفيذ الاوامر مثل اضافة حذف فتح نموذج انشاء الاستعلام تجنب استخدام المعالجات المضمنة في اكسس واستخدم اكواد vba واذا صعب عليك الامر ابحث في الموقع وان لم تجد ضع استفسارك ثم طبق الاجابة على برنامجك تابع استفسارات وطلبات الاعضاء حتى لو لم تمتلك الاجابة ابحث عنها ثم قم بالتعديل وشارك بما حصلت عليه تابع ردود الاعضاء ذوي الخبرة واحتفظ بالاكواد التي يضعوها وحاول تصنيفها وتسميتها باسماء تدل على محتواها للرجوع لها عند الحاجة دائما حاول التعديل على الاكواد فغالبا الكود يمكن مع بعض التعديل الاستفادة منه لاغراض متعددة توجد في اليتيوب عدد من القنوات التي تقدم دروس متميزة للعديد الاساتذة مثل قناة عبد الفتاح كيرة وعبد العاطي حمدان وهاني مجدي وغيرهم ممن لا تحضرني اسمائهم لا تستعجل التعلم مع الوقت ستجد ان لديك رصيد من المعرفة والخبرة يؤهلك للرد بل والابتكار أخي لن تنال العلم إلا بستة ..... سأنبيك عن تفصيلها ببيان ذكاء وحرص واجتهاد و بلغـة ..... و صحبة أستاذ وطول زمـان اخي واستاذي @essam rabea الف شكر على الرابط الذي وضعته

توجيهك للعضو اعتقد انه صحيح بناء على كلامه بأنه مبتدأ لكن رده في مشاركته الثانية مألوف ويظهر انه ليس مبتدأ وأعتقد والله اعلم من طريقة كتابته ورده انه احد الاعضاء في المنتدى يعطيك العافية استاذ @essam rabea

فورم اختيار الصف وترحيل الى شيت اخر الفيديو

السلام عليكم 🙂 بالعكس اخوي ابو عبدالله ، الجميع يمشي وراء طلبك ، ويحاول مساعدتك ، ويسدد خُطى الآخرين 🙂 في الواقع طلبك تحدي برمجي ، ونتمنى انك تساعدنا علشان نكمله لوسمحت ابو عبد الله ، اعطينا بعض الكلمات الحقيقة اللي عندك ، ويا ريت في جدول في الاكسس ، علشان نشوف كيف نقدر نحل الموضوع 🙂 والسبب في طلب بيانات حقيقية ، هي ان الجواب يكون تفصيل خاص لطريقة عرض كلماتك. جعفر

أ.Access2020 راجع هذا الرابط عسى أن يفيد

صباح الثورة من بيروت/صيدا/النبطية/صور /طرابلس .....ومن كل شبر من أرض لبنان الحبيب اليوم الثاني عشر جرب هذا الملف example.xlsx

أ.ramyooooo أنشئ المسار التالى D:\My Apps\Data وضع به db001.mdb و db002.mdb وجرب المرفق عسى أن يكون المطلوب بالتوفيق ESTest.mdb

وعليكم السلام ورحمة الله وبركاته تفضل 1111112.xlsx

تحية خاصة لك استاذي الفاضل @ابا جودى على توضيحك بخصوص مسألة الماك أدرس فأنا بالحقيقة لم أجربه سابقاً ولايسعني تجربته الآن لان الموضوع يحتاج الى فورمات لنظام التشغيل لكي تتم عملية اختباره على ارض الواقع .. أما بالنسبة لعملية تمديد الفترة التجريبية فالفكرة بحد ذاتها أجدها غير مجدية فلنفرض ان المستخدم قام بتجربة البرنامج لمدة شهر مثلاً فهو بالتأكيد سيكون قد اخذ كفايته في تجربة البرنامج وبالتالي لابد له من شراءه .. لكن لنفرض ان المستخدم قد عمل على البرنامج يوم واحد فقط ولسبب ما اضطر الى ترك البرنامج لمدة شهر فهنا سنجد ان الفترة التجريبية قد انقضت بالفعل في حين انه لم يأخذ كفايته من تجربة البرنامج في هذه الحالة لابد من تمديد الفترة التجريبية له وهذا أمر غير عملي على الإطلاق لان المبرمج غير معني بظروف جميع المستخدمين فهنالك من سيستخدم البرنامج يوم واحد وهناك من يستخدمه يومان وما الى ذلك فليس من المنطقي ان يقوم المبرمج بتجديد المدة التجريبية لكل واحد على حسب ظروفه أليس كذلك؟ ولكي نعالج هذه المسألة بشكل افضل خصوصا لمن يستخدم البرنامج على فترات متباعدة فاني ارى ان يتم احتساب الفترة التجريبية بالساعات يعني مثلا نضع المدة 5 ساعات او 10 ساعات ويبدأ العد التنازلي للوقت في كل مرة يتم فتح البرنامج والعمل عليه الى ان يصبح صفراً عندها تنتهي المدة التجريبية للبرنامج ... بهذه الطريقة تضمن حق كل مستخدم في استعمال المدة التجريبية بالكامل بغض النظر عن ظروفه. نعم اخي اقصد اسم المعالج لان اسم المعالج مثلا corei7-4500u وهذا لايتغير على الاطلاق بينما رقم المعالج يتغير بعد الفورمات طبعا يتم استخلاص الارقام من اسم المعالج وجمعها مع بعض ومن ثم ادخالها في معادلة خاصة لتوليد سيريال التفعيل عن طريق اسم المعالج فأنت تضمن على الأقل ان المستخدم لن يصادف مشكلة عندما يغير نظام تشغيله أما بالنسبة لتشابه الاجهزة في المعالجات فهو امر ليس سيء كما تظنه لان المعالجات قد تتشابه في كونها corei7 مثلا لكن الرقم الذي بعدها 4500 تجده مختلف في الغالب من معالج الى اخر وبالتالي فسوف يتغير سيريال التفعيل .. ولو افترضنا ان هنالك اكثر من معالج يحمل بنفس الارقام بالضبط اي تشابه 100% في كل شيء فما هي نسبة حصول اصحاب تلك المعالجات على سيريال التفعيل من الشخص الذي قام بشراء البرنامج؟؟ ستجد ان الاحتمالية ضعيفة في حال تم التأكيد على فعالية الماك فيمكننا حينها بدمج المعالج مع الماك مع بعض وبذلك تضمن نسبة حماية عالية جدا تحياتي

فورم ترحيل بيانات الى الشيت المختار وطباعة البيانات الفيديو

فورم التنقل عبر الصفحات وترحيل البيانات بطريقة بسيطة الفيديو

السلام عليكم جرب هذا التعديل 2009(3).xlsm

See this file faltara.xls

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @essam rabea وزيادة فى الخير قد تعجبك الافكار ان شاء الله بهذا المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=166769

ههههه قصدك تهكير الشبكة ^_*

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

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

استخدم النموذج frm_rpt_SubSt في معاينة التقرير 🙂 جعفر1117.برنامج متابعة غياب طلاب الفراغات.mdb.zip

-------------------- السلام عليكم قرأت في أحدى المنتديات موضوع مثير بالنسبة لي وهو طريقة تغيير الـ MAC Address . في أثناء دراستي لـ عالم الشبكات تكلم المحاضر عن MAC Address بإنه لا يمكن تغييره لأن هناك منظمات مسئولة عنه . وهو مكون من 12 بين رقم وحرف ( 6 خانات ) أي بمعنى من النظام الست عشري Hexadecimal . الثلاث الخانات الأولية تعطي من قبل المنظمة المسئولة عن MAC Address اعتقد هي منظمة ICNN أو IANA أو نسيتها . أما الثلاث الخانات الأخرى فيتم تكوينهم من قبل الشركة الصانعة لـ NIC . وصاحب الموضوع قام بذكر الطريقة وهي كتالي : من My Network Places نختار خصائص . بالزر الأيمن على Local Area Connection نختار خصائص . نضغط على مفتاح Configure , من تبويب Advanced نختار Network Address . في مربع Value نضع عنوان MAC من عندنا بحيث يكون من نظام ست عشري Hexadecimal . السؤال : هل التغيير لـ MAC يتسبب في مشاكل في الجهاز قبل ما أجرب الطريقة في جهازي ؟ ---------الإجابة----------- هذا العنوان الفيزيائي لا يمكن تغييره ابداً ابداً ولكن يمكن الاحتيال على الاجهزه التي تقرا هذا الماك ادريس هناك برامج تزييف الماك عملها هو اعطاء رقم وهمي للاجهزه في الشبكه التي تريد قرائه هذا الرقم ولكن ان تغير الرقم نهائيا لا يوجد ابداً لا يتسبب في اي مشكله الا اذا كنت عامل تشفير للدخول على الشبكه عن طريق ماك ادريس فلتر فستواجه مشكله في الدخول على الشبكه أنا اتفق معاك واملك معلومات عن الـ MAC وأيضاً لدي المصادر العلمية ( كتب شركة مايكروسوفت الأصلية وكتب أخرى ) تقول أن الـ MAC لا يمكن تغييره من قبل الأفراد لأن هناك منظمة مسئولة عنه كلما قلت سابقاً . لكن خلال بحثي في المواقع المتخصصة في IT , وأيضاً المنتديات العالمية وجدت الطريقة اللي ذكرتها أعلاه وطريقة أخرى من خلال الـ Dos أو Registry . وأيضاً حصلت على برنامج يقوم بهذه المهمة يدعى SMAC . اتمنى من يملك معلومات عن MAC Address أن لا يبخل علينا في شأن التغيير . هذا أحدى المواقع http://www.nthelp.com/NT6/change_mac_w2k.htm في آخر الرابط يوجد موقع لـ SMAC . القول الفصل الماك ادريس لا يمكن تغغيره ابدا اعيدها مره اخره تغيير الماك ادريس من خلال الرجيستري كما تقول او عن طريق اي برنامج هو كما قلت انا هناك برامج تزييف الماك عملها هو اعطاء رقم وهمي للاجهزه في الشبكه التي تريد قرائه هذا الرقم ولكن ان تغير الرقم نهائيا لا يوجد ابداً يعني انك تزور الماك ادريس في الكمبيوتر ولكن لا يمكن ان تغيير الرقم ليصبح ثابت التغيير في حال ركبته في اي جهاز اخر وانا استخدم احد برامج تزييف الماك ادريس واستخدمها لانه مرات احاول العب في الشبكه , لمن يحس مدير الشبكه يقوم بحجب الماك ادريس وليس الاي بي ولكن انا كل ماعلي هو تشغيل البرنامج وتغيير الماك ادريس وبس ويفضل القديم محجوب وهو الاصل

أستاذي العزيز @ابا جودى نعم يبدو انه من الممكن تغيير الماك ببساطة كما في الصورة الموضحة وهذا رابط يتكلم عن طريقة تغيير الماك https://www.groovypost.com/howto/change-mac-address-windows-10-why/ ارجو الاطلاع

بعد اذن استاد الـعيدروس قم بتعديل الكود في حدث textbox1 Private Sub TextBox1_Change() On Error GoTo 1 Dim ws As Worksheet: Set ws = Sheets("sheet1") Dim x, c Application.ScreenUpdating = False ListBox1.Clear For Each x In ws.Range("a4:a100000") c = InStr(x, TextBox1.Value) If c > 0 Then ListBox1.AddItem x With Me.ListBox1 .ColumnCount = 2 .List(i, 0) = x .List(i, 1) = x.Offset(0, 1) .List(i, 3) = x.Offset(0, 1).Address i = i + 1 End With End If Next x Application.ScreenUpdating = True 1: End Sub

السلام عليكم ورحمه الله وبركاته الاستاذ ابو عبدالله تقبل تحياتى ما المشكله نحن اخوانك قبل كل شىء وما قاله الاستاذ خالد انه قد قدم المساعده بنفس ما قام به الاستاذ جعفر والتاكيد على انك لا تريد استعمال المديولات لاسباب بالعمل وانك تريد طريقه اخرى بالاستعلامات وقد نوه لك الاستاذ جعفر بانها ستكون متعبه ولكن وفر جزء وافى من البيانات حتى ولو وهميه مثل مالديك فى مثال على الاكسيس حتى يتم البحث عن افضل الحلول وتوفيرها لك وبالفعل اؤكد لك ما قاله الاستاذ جعفر والاستاذ خالد بانها ستكون متعبه ومرهقه فلقد حاولت كما رائيت وشوف طول الداله قد ايه فى العمود 3 فمابالك بباقى الاعمده ان شاء الله عندما تضع مثال لما لديك من بيانات سيقوم اساتذتنا بوضع افضل وايسر الحلول لك فى استعلام وجزاك الله خيرا استاذ @kha9009lid واستاذ @jjafferr وجميع اساتذتنا ونسال الله ان يكتب لكم بكل حرف حسنه وما انا الا طالب لديكم استذتى الكرام واحاول لاتعلم منكم ومعكم SELECT tbl1.id, tbl1.tx, 1-Mid([tx],1,InStr([tx],"&")-1) AS Data, 2-Mid([tx],InStr([tx],"&")+1,InStr(Right([tx],Len([tx])-InStr([tx],"&")),"&")-1) AS Data1, 3-Mid(Right([tx],Len([tx])-InStr([tx],"&")),InStr(Right([tx],Len([tx])-InStr([tx],"&")),"&")+1,InStr(Right(Right([tx],Len([tx])-InStr([tx],"&")),Len(Right([tx],Len([tx])-InStr([tx],"&")))-InStr(Right([Tx],Len([Tx])-InStr([tx],"&")),"&")),"&")-1) AS Data3 FROM tbl1; تقبلوا تحياتى وتمنياتى لكم بالتوفيق والنجاح طبتم واهتديتم

أعتذر عن مشاركتى لمجرد المشاركة بالتوفيق

ارجوا ان يكون المطلوب sa-كشف حساب.accdb

جرب المعادلة =SUMIF('2'!A4:A7,C3,INDIRECT("'" & E2))

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

وعليكم السلام 🙂 المنتدى مليء بمثل هذه المواضيع ، فما عليك إلا ان تبحث 🙂 مثلا و جعفر

الدروس التي اكمل فيها من عمود O في صفحات نهاية السنة دور اول خامس أ و نهاية السنة دور اول خامس ب فتأكد من المعادلة اذا بها خلل او ان طلبك غير واضح بخصوص المعادلات ليس لي بها باع فالاساتذه المتمكنين بها لن يقصرو معك تحياتي

وهل تستعمل البرنامج بإخفاء الخلفية الاكسس؟

السلام عليكم انا بالفعل شغال على موضوع حضرتك بس بافكر ازاى نمدده بالكود بفترات ومدد مختلفة بخصوص الماك ادرس هو رقم ثابت لا يتغير بتغير الويندوز او الفورمات لا علاقة له من قريب او من بعيد بتغيير حالة الاتصال بالانترنت فالرقم ثابت اعتقد بنسبة تتعد ال ٩٠% انه لا يمكن تغيير الماك ادرس تعتمد عليه الحكومات الدوليه فى تتبع الاحهزة والمعاملات المشبوهة فهو بمثابة البصمة للجهاز هذا والله اعلم ولكن اجبت حسب فهمى ومعرفتى وان شاء الله حينما يسمح وقتى ابحث أكثر

روابط اليوتيوب يظهر الفيديو خاص غير متاح

السلام عليكم بارك الله فيك استاذ سليم استخدام رائع للـ Regex بالامكان نستخدم كودك الرائع كمعادلة Function SPLIT_ME(c, Optional pttrn As String = "\D+-\d+-\d+\s+?\d+:\d+") With CreateObject("VBscript.RegExp") .Pattern = pttrn: SPLIT_ME = .Execute(c.Value)(0) End With End Function تقبل تحياتي وشكري

أستاذ @sandanet كود ممتاز بارك الله بك. هل يمكن تعديل الكود ليعمل الكود على إخفاء الاستعلامات و الوحدات النمطية و الماكرو؟

جرب الملف المرفق .. ميزة الطريقة الموجودة في المرفق هي عند اخفاء الجداول فلايمكن اظهارها من خلال خيارات العرض في قاعدة البيانات "إظهار الكائنات المخفية" كما لايمكن استيراد الجداول ايضاً example1.accdb

السلام عليكم وبالامكان الاستعانه بدالة معرفة كالتالي Function Ali_Splt(F, Optional S As String = " ") Dim x, c x = Split(Mid(F, 7, Len(F)), S) For i = LBound(x) To UBound(x) If i <= 1 Then c = c & S & x(i) Next i If Len(F) > 0 Then Ali_Splt = c End Function

أ.اسلام سيد مش عارف انا فهمت صح ولا غلط جرب المويول 'للإخفاء Public Function ESHideTables() Dim dbs As dao.Database Dim tbl As dao.TableDef Dim qry As dao.QueryDef Dim str As String On Error Resume Next Set db = CurrentDb() For Each tbl In db.TableDefs Application.SetHiddenAttribute acTable, tbl.Name, True Next tbl End Function والموديول الثانى 'للإظهار Public Function ESShowTables() Dim dbs As dao.Database Dim tbl As dao.TableDef Dim qry As dao.QueryDef Dim str As String On Error Resume Next Set db = CurrentDb() For Each tbl In db.TableDefs Application.SetHiddenAttribute acTable, tbl.Name,Fales Next tbl End Function وقم بإستاعائهم عن طريق Call ESHideTables للإخفاء أو Call ESShowTables للإظهار أرجو أن أكون وفقت بالتوفيق

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

استاذ محمد طاهر مهما قيل عنك ... لن يوفيك قدرك دمت معلما لنا

السلام عليكم جرب المرفق المكملون مع الدرجة Ali_1.xlsm

وللتوضيح للفكرة أكثر هنا تفاصيل أنشاء الحماية بالماك ادرس: عمل الحماية على وجهين التجريبية والرئيسية النهائية في نفس الملف او في ملفين منفصلين ============================= أولاً: الرئيسية: - تشفير الرمز الماك ادرس في الجدول ، وعند عرضة للتسجيل يضهر مكون من 14 رقما - المقدرة على تعديل الكود كمثال ضرب رمز الماك في 3 او 4 او اي رقم او رقمين ، السبب حتى يمكن عدم تفعيل الرمز السابق في النسخ الجديدة ثانياً:التجريبية : نفس مميزات الرئيسة مضاف له التالي: - عمل رمز متغير لا يمكن ادخالة في اي جهاز اخر ولمدة محدودة كمثال 7 ايام او 30 ويكون مكون من 12 رقماً - هذا الرمز لا يصلح لتفعيل مدى الحياة - بعد انتهاء فترة التجريب واراد العميل فترة اخرى للتجربة امكانية انشاء رمز اخر له - وضع رسالة قبل الدخول انه سوف تنتهي فترة التجريب ويوضع تاريخ وعدد الايام - في الشاشة الرئيسية كلمة نسخة تجريبية ونص متبقي لك 3 ايام سوف تنهي فترة التجريب تاريخ: .... لون الايام والتاريخ بالون الاحمر والنص بالازرق

تفضل اخي الملف بفد تعديل الكود. بس طريفة عملك ما فهمت منها شي ! Database.accdb

تفضل اخي الكريم وللعلم الكود هو من احد المواقع الاجنبية Excel e whatapp.xls

الأستاذ k24s أين الضغط على الإعجاب ,طالما أعجبك الحل واعتقد ان هذا اقل ما يقدم لمن كان سبباً فى حل مشكلتك والتفريج عنك ؟!!!!!!!!!!!!

السلام عليكم جرب هذا التعديل على الكود Private Sub CommandButton1_Click() Dim origSht As Worksheet Dim destSht As Worksheet Set origSht = Worksheets("sheet 2") sheetsname = InputBox("Enter the sheet name!" & vbNewLine & vbNewLine & "Example:- the sales", "Attention") If sheetsname = "" Then MsgBox "again please", , "Attention" Exit Sub End If If sheetsname = (Sheets(Sheets.Count).Name) Then MsgBox "This Name already Exists", , "Attention" Exit Sub End If Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheetsname Set destSht = ActiveSheet origSht.Cells.Copy Destination:=destSht.Cells Dim cr As ChartObject With destSht For Each cr In destSht.ChartObjects If cr.Index = 1 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C27,O27:P27") If cr.Index = 2 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C28,O28:P28") Next cr End With End Sub

جرب هذا الملف My project_new.xlsm

بسم الله والصلاة على اشرف خلق الله سيدنا محمد صلى الله عليه وسلم السادة الكرام مشرفين وأعضاء كل الشكر والتقدير لكل من ساهم في انجاز هذا البرنامج برنامج النور هو برنامج محاسبة فقط دون مواد ومستودعات وإن شاء الله إن أحياني الله سيكون هناك برنامج محاسبة ومستودعات ====== *البرنامج أسلوب جديد في تنزيل البيانات وخاصة ميزة استخدام البرنامج بالكيبورد فقط 95% دون استخدام الماوس(هدية للمحاسبين الذين يحبون استخدام الكيبورد فقط) وكذلك ميزة البحث عن اسم حساب في فورم بحث وليس قائمة منسدلة كومبوبكس *في البرنامج فواتير شراء – بيع - مرتجع شراء – مرتجع بيع – حسم ممنوح – حسم مكتسب – قيد يدوي – سند قبض.دفع *كما يوجد كشف حساب مع إمكانية تعديل أي فاتورة أو قيد وأنت ضمن فورم كشف حساب مع إمكانية معاينة الكشف أو طباعته بما في ذلك ترويسة وشعار الشركة *كما يوجد كشف بجميع الحسابات مع الأرصدة (ميزان مراجعة). ومن خلال هذا الكشف يمكنك تعديل اسم حساب أو رقم هاتفه أو عنوانه أسال الله العظيم أن يكون فيه النفع لكل المسلمين كلمة المرور 1 واجهة البرنامج لتعديل أي فاتورة او دفعة او اي قيد حدد السطر الذي يحتوي على رقم القيد ثم اضغط على تعديل البرنامج في المرفقات برنامج النور للمحاسبة.rar

يجب علي ماكرو المسح في صفجة بيانات الطلا ب ان لا ينفذ الا على هذه الصفخة بالذات لذلك تداركاً للخطأ يجل علينا وضع سطر في الكود If ActiveSheet.Name <> "بيانات الطلاب" Then Exit Sub ليصيح الكود هكذا Sub ClearConstantsOnly() 'كود مسح البيانات و الحفاظ على المعادلات If ActiveSheet.Name <> "بيانات الطلاب" Then Exit Sub prompt = "هل حقا تريد مسح كل البيانات!؟" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير. انتبه !!!!" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then On Error Resume Next Range("c17:g516").SpecialCells(xlCellTypeConstants).ClearContents Range("A1").Select End If End Sub

كود اخر بواسطة Loop انتبه الى الملاحظات في اسفل الكود بواسطة هذه المعادلات لا تتأثر الخلايا في حال زيادة صفوف او حذف صفوف (قبل الصف 12)من الورقة أو اذا تم حذف اي اسم من لائحة الفصل لا يتأثر الترقيم في كلا العامودين اذا كنت قد فهمت الكود اليك هذا المهمة تنزيل كود اخر بحيث: 1-يعمل على المتغير I بواسطة Loop (من 1 الى 10) * عدد الفصول 2-يعمل على المتغير K بواسطة Loop (من 17 الى اخر صف في الورقة Main) * هذا الخاصية موجودة في الكود المرفق 3- يقوم بترقيم التلاميد بدون معادلات في العامودين I & C في كل ورقة من ورقات الصفوف Option Explicit Sub tanslate_data_salim_loop() Dim My_Sh As Worksheet Dim lr1, i, k, m, col, y As Integer Dim my_rg, cel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual lr1 = Main.Cells(Rows.Count, "c").End(3).Row Set my_rg = Main.Range("c17:g" & lr1) For i = 1 To 10 m = 0 Set My_Sh = Sheets(i & "") My_Sh.Range("d12:g36").ClearContents My_Sh.Range("i12:l36").ClearContents k = 17 Do Until k = lr1 + 1 'يمكنك استعمال هذا السطر ' Do While k <= lr1 'او هذا السطر Select Case m Case Is < 25 col = m + 12 y = 4 Case Else col = m - 13 y = 9 End Select If Main.Cells(k, "g") = i Then My_Sh.Cells(col, y).Resize(1, 4).Value = Main.Cells(k, 3).Resize(1, 4).Value m = m + 1 End If k = k + 1 Loop Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ملاحظات ' بالنسبة للمعادلات في صفحات الصفوف 'الافضل كتابة هذه المعادلة في الخلية 'C12: '=IF(D12="","",MAX($C$11:C11)+1) 'ثم اسحب نزولاً 'و هذه المعادلة في الخلية 'I12: '=IF(I12="","",MAX(C:C)+ROWS($A$1:A1)) 'ثم اسحب نزول '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

هههه ميغلاش عليكم غالي استادنا ابراهم المرفق موجود