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

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي اليك برامج هدية لك ولكل اعضاء وزوار منتدى اوفيسنا . ملف تم تعديله بطريقة دينامكية تمكنك من دمج اكثر من 100 ملف في مجلدات مختلفة في ملف واحد . رابط لشرح طريقة الاستخدام بالتوفيق............ Sh_2023.zip

هههههه العتب على الادوية اللي تدوخ 😁 انا ملاحظ من يوم بدأت اخذ هذه الادوية (من حوالي 4 ايام) ، ومشاركاتي واجاباتي مقضومة وتحتاج الى تعديل وإعادة نظر 😁 ادوية الزكام لازم يكتبون فيها تنبيه ، مو فقط لا تسوق السيارة بعد اخذ الدواء ، وانما انتبه لبرمجتك كذلك بعد اخذ الدواء 😁 جعفر

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

أنا جالس 5 دقايق أدور الفرق وما لقيته 😂 شكله أنطلت علي خدعة الشياب 😁

هههههه مشكله ادوية الزكام 😄 أَتَرجو أَن تَكونَ وَأَنتَ شَيخ .. كَما قَد كُنتَ أَيّامُ الشَباب تحياتي 🌹

هههههه الله يا استاذنا دقق تجد الفرق

عفوا اخوي ابوخليل ، انت وضعت نفس الجملة في المكانين !! رجاء تخبرنا وين الفرق 🙂 جعفر

Try this code Sub Test() Dim wb As Workbook, ws As Worksheet, sh As Worksheet, r As Range Set ws = ActiveSheet Set r = ws.Range("A1:L50") Set wb = Application.Workbooks.Add With wb Set sh = .Worksheets(1) r.Copy sh.Range("A1") sh.Range(r.Address).Value = sh.Range(r.Address).Value Application.DisplayAlerts = False .SaveAs ThisWorkbook.Path & "\Output", 51 Application.DisplayAlerts = True .Close 0 End With End Sub

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اليك المثال اخي الكريم Database4.accdb

السلام عليكم قائمة منسدلة متغيرة_3.xlsx

عليكم السلام انت مخطىء بكتابة اسم الفورم في المعيار انت كتبته هكذا : [Forms]![From1]![ID] الصحيح هكذا [Forms]![Form1]![ID]

في الوقت اللي الشباب اشتغلوا على الاجابة ، انا كنت مشغول في حذف الكود اللي ما له داعي !! انت عملت حقول وازرار في النماذج ، وبعدين حذفت حقول وازرار من النماذج ، وابقيت الكود !! اعدادت الاكسس عندي تمنعني من تشغيل البرنامج اذا فيه خطأ في مكان في الكود ، لذلك ، عينك ما تشوف الا النور ، طلع فيه بلاوي 😁 في كل صفحة كود ، جمعت لك جميع الاكواد اللي لا تنحذف في اسفل الصفحة ، وعملتها كملاحظة حتى لا تشتغل ، ويمكنك حذفها اذا اردث 🙂 جعفر 1554.APE_2023.accdb.zip ما لقيتها في جوجل ، فقلت اسالك عنها 🙂 وهاي اريد لها تفسير لوسمحت 🙂 جعفر

السلام عليكم تم عمل المطلوب في الملف المرفق، وفي هذه الحالة نحتاج إلى عمود مساعد آخر لإدراج عناصر القائمة المنسدلة دون فراغات (الأرقام التي تم إلغاؤها -مسحها- حسب شروطك)... قائمة منسدلة متغيرة_2.xlsx

وعليكم السلام تم عمل المطلوب بالمعادلات والنطاقات بالتسمية... عناصر القائمة المنسدلة (التسمية Rng) تجدها في العمود AA... بالنسبة للنطاق بالتسمية List يمكن تمديد عناصرها إلى الأسفل... قائمة منسدلة متغيرة.xlsx

تمام انا مثلك بالضبط .. لان الخطأ وارد وايضا انا اكتب بعض الكلمات بتنسيق معين كحروف كبيرة في وسط الكلمة ..

تصدق اخوي ابوخليل ، انا الى الآن ما اكتب اسماء الكائنات ، وانما اعمل لها نسخ ولصق ، وخصوصا اسماء الجداول والاستعلامات والنماذج ، لأني مريت بتجربة اخوي حمدي 🙂 جعفر

برنامجك بحاجة الى عملية جراحية خاصة سوف اوافيك بالحل ان شاء الله

الله يسعدكم ههههه اذا لا يلام حمدي في عدم اكتشاف الخلل

السلام عليكم هذه طريقة للحصول على الوقت و التاريخ الحاليين للأنترنت حسب توقيت غرينتش نستخدم هذه الوحدة النمطية: Function GetUCTTimeDate() As String Dim UTCDateTime As String Dim arrDT() As String Dim http As Object Dim UTCDate As String Dim UTCTime As String Const NetTime As String = "https://www.time.gov/" On Error Resume Next Set http = CreateObject("Microsoft.XMLHTTP") On Error GoTo 0 http.Open "GET", NetTime & Now(), False, "", "" http.send UTCDateTime = http.getResponseHeader("Date") UTCDate = Mid(UTCDateTime, InStr(UTCDateTime, ",") + 2) UTCDate = Left(UTCDate, InStrRev(UTCDate, " ") - 1) UTCTime = Mid(UTCDate, InStrRev(UTCDate, " ") + 1) UTCDate = Left(UTCDate, InStrRev(UTCDate, " ") - 1) GetUCTTimeDate = UTCDate & " " & UTCTime End Function و نقوم باستدعاء الناتج هكذا MsgBox GetUCTTimeDate()

السلام عليكم و رحمة الله المفترض ان المعادلة تكون هكذا =IF(B3="";"";SUMIF(ALL!$B$3:$B$1127;B3;ALL!$E$3:$E$1127)/COUNTIF(ALL!$B$3:$B$1127;B3)) ضع المعادلة فى الخلية E3 ثم اسحب نزولا حتى آخر خلية

اهداء الى كبيرنا استاذ JJaFFeRR تحديث *اضافة تبعية مباشر الى الشجرة من اي فورم *اضافة تأكد من المسار يعرض على تأكد المسار آلي *اضافة عرض الفحص Start_UP *بتقديم برنامج ادارة القواعد مباشر من الشجره Ms_Access (افضل ادرارة يزيل فقط link المتعلقة بالقاعده بضغطة زر ويعيد الربط وتحديد الفحص ويعمل عند بداية التشغيل [ افضل من تكدس اللنكات من اي بقاعده! ] ) . لا يوجد اخطاء يعمل بكافة الشاشات . متضمن شرح بسيط لطريقة الاستخدام قسم لواجهة وادراج قواعد للانشاء وفحص عند بداية التشغيل انقله الى برنامجك او تطويره لمشروعك : ملاحظه اذا حدث خطأ عند ضغط الزر: * تم استخدام تغير صور رموز الازرار عن طريق ملف IconX وطريقة الاخرى اذا كنت ستجربها (عند فورم xxx ازل bb1 و bb2 واعاد ادراج بنفس المسمى هي صور لتغير رمز الزر x50 من داخل الفورم وارفاق كود آخر بداخل الزر للتغير الرمز من الخارج عند التصحيح يعمل كل الفورمات عطب صغير في فورم xxx) تحميل مباشر ميديا فير من غير وقت انتظار https://download1514.mediafire.com/ewdbeaodomyg/8bntk0ez54r9fal/X-Link-DBZ-Ezril.rar Ezril في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال X-Link-DBZ-Ezril.zip

سلامات ، ونصيحة: لا تبرمج اثناء تناول دواء الزكام 😁

أَتَرَوَّحُ أترسم اترح ولا اتروع .. فالأَسْبَابُ والأَلْبَابِ والرباب بيد الارباب

اعتقد ⬇️ هذا الموضوع

العفو ، هذا لا يختلف عليه اثنين ، وعندي خبرة سابقه مع برنامج عمله لدكتور الاسنان ، كان العمل عليه شيّق وممتع 🙂 جعفر

ما عليك زود عزيزي 🙂

كما تلاحظون اخوتى فى الصورة المطلوب ان يكون حقل الصنف يقبل اضافة صنف اخر لنفس الزبون مع الاحتفاظ بالصنف المباع السابق 2- الدفعات ايضا متكررة لنفس الزبون وتحفظ جميع الدفعات فى النموذج والجدول 3- باقى الدين يجب ان يكون مجموع الدفعات ناقص اجمالى البضاعة المباعة القاعدة مرفقةforyou.rar والف شكر

اتفق معك بمراجعة سريعة وجدت مثل ذلك ولكني توقفت عند استخدام if اربع عشرة مرة في حدث واحد ومع كل ذلك يكفي الاستاذ jo انه عمل برنامج جميل يخدمه في عمله تحياتي

السلام عليكم بحثت بنظرة سريعة على الكود وجدت عندك خمس تعليمات IF ولكن المغلق منها ثلاث فقط انت بحاجة الى مرتين END IF

الفرق فى حرف o و R فى كلمة FORm1 كنت هبعت تعليق بنفس اللى حضرتك بعته ولكن بعد التحقيق والتركيز وجد ان هناك خطأ فى ترتيب الحروف لك تحياتى

وعليكم السلام 🙂 برنامجك متعوب عليه ، شكرا لك 🙂 اذا تسمح لي بهذه الملاحظة 🙂 اعدادت الاكسس عندي تمنعني من تشغيل البرنامج اذا فيه خطأ في مكان في الكود ، وعند عمل Compile ، ارى الاخطاء واُصلحها 🙂 الكود في برنامجك ما اشتغل عندي ، فقمت بمحاولة تعديل الكود ، واذا بالمشكلة الرئيسية عندك هي تنسيق الكود ، مما يجعلك تدوخ وتتلخبط !! اول ما تعمل تنسيق االكود عن طريق الضغط على زر Tab من لوحة المفاتيح Keyboard ، فانت تعمل "مسافه بادئه" indent ، وبها تجعل كل مجموعة من الاكواد داخل بعضها البعض ، والتنسيق يسهل عليك معرفة مكان الخطأ : حلقة الدوران For i : الامر if : الامر if المضمن داخل if اخرى : >> . وقد قمت بتعديل الكود في برنامجك الاصل ، وارفقته في مشاركتك الاولى 🙂 جعفر

السلام عليكم 🙂 الله الله ، شو هذا الدلال 🙂 والنِعم منك يا ابو احمد 🙂 جعفر

السلام عليكم اخوي محمد 🙂 رجاء تابع هذا السؤال في الموضوع الاصل

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

بارك الله فيكم على جهودكم ... 100% جزاكم الله خير الجزاء بارك الله فيكم جميعا ما قصرتم

السلام عليكم الاخوة الافاضل اعلم ان المشاركة هذه يمكن عرضها في المنتدى المفتوح لكن أنا احب الاكسيل لذا قمت بوضعها هنا أحب أنوه لجميع محبي الاكسيل أو أي برنامج ضرورة التواجد في المنتدى بصفة يومية ولو نصف ساعة يوميا تطلع فيها على كل جديد يطرح وتقدم المساعدة إن استطعت وإن لم يكون لديك وقت لتقديم المساعدة فيكفيك الاطلاع على المستجدات من أكواد ومعادلات وطرق حل . وانقل لكم تجربتي الشخصية فأنا قمت بالانضمام للمنتدى عام 2012 للبحث عن شيت كنترول واستفدت كثيرا في هذه الفترة وبدأت التعمق في الاكسيل وكتابة الأكواد وبدأت بعمل شرح للحلقات التكرارية في محرر الأكواد وبعدها قمت بالتعاون مع الاستاذ ايهاب بعمل بتطوير كود يرسل نسخة من الملف على الايميل وغيرها بفضل الله ثم معرفتي ببعض أكواد الفيجوال بيزيك و مساعدة الاخوة الافاضل في المنتدى وبعدها انقطعت فترة وبعدها كنت أدخل للمنتدى للبحث عن شيء أو معلومة محددة وانصرف دون الاطلاع على الجديد وانقطع و و ... وها أناا قد عدت للمنتدى لأجد نفسي لم اتعلم الكثر وربما نسيت بعض ما وصلت له وأيضا أجد من انضم بعدي يقدمون أعمال متميزة ماشاء الله ( واتمنى لهم التوفيق والمزيد ) . لذلك لمن أراد الاحتراف عليه بالاستمرار والمداومة في دخول المنتدى ومنتديات اخرى على الأقل أسبوعياً البحث والتعلم مساعدة الاخرين ( ويكفيك شرف المحاولة إن لم تقدم المساعدة كاملة ) عدم الخجل من طرح سؤال حتى ولو بسيط البحث عن المعلومة قبل السؤال لان البحث يعرض لك افكار جديدة مرتبطة بموضوعك ومحاولة فهم هذه الافكار بنفسك وان لم تستطع يمكن سؤال صاحب الفكرة واعتذر عن الاطالة وشكرا لسعة صدوركم واسألكم الدعاء

أنا قمت بتنظيم الأحداث حتى تسهل علي مراجعة المطوب .. أرجو أن لا تبدل في الأكواد حاليا. وتم التعديل في الجدول كذلك بتبديل أنواع الحقول. الآن أعد صياغة مطالبك الحسابية من جديد وبشكل مفصل. بانتظارك Calculate_astalt_01.accdb

خلاص اقنعتني 😁 كيف احصل على مسار وطريقة حفظك للمجلدات والملفات ، فالمعلومات في الجدول لا علاقة لها بمسار واسماء الملفات اللي ارسلتها !! جعفر

يا رجال ، احنا بعد عندنا حس فني ، مو بس اكسس اكسس 😁 وشكرا جزيلا على الشرح ، اصبحت الابيات واضحة الآن 🙂 جعفر

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

تفضل Sub Run() ' Application.ScreenUpdating = False ' Application.DisplayAlerts = False Range("C4:C15,E4:E15,O4:O15,C17:C28,O4:O15,E17:E28") = _ "=IFERROR(VLOOKUP(INDEX(ÇáÇÕäÇÝ!R3C4:R1500C4,MATCH(RC[-1],ÇáÇÕäÇÝ!R3C3:R1500C3,0)),ÇáÝÇÊæÑÉ!R5C2:R1500C5,2,0),"""")" Range("C3:O35").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C4:C15,E4:E15,O4:O15,C17:C28,O4:O15,E17:E28").Select Application.CutCopyMode = False Range("A1").Select Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

بالتوفيق استاذ يوسف واحسنت اختيار الاجابة الافضل اذا كان هناك اكثر من حل فان الحل الاسهل هو الافضل "novacula Occami"

أصدقائي واساتذتي الرائعون .. رسالة شكر وعرفان وتقدير أهديها لكم لوقوفكم بجانبي دوماً، فأنتم في القلب، و تتسابق الكلمات وتتزاحم العبارات لتنظم كلمات الشكر الذي لا يستحقه إلّا أنتم، إليكم يا من كان له قدم السبق في ركب العلم والتعليم، إليكم يا من بذلتم ولم تنتظرون العطاء. بارك الله فيكم وجعلها في ميزان حسناتكم

ما شاء الله عليك ، يعني من زمان وانت وقواعد البيانات اصحاب : بل تستطيع وبكل بساطة 🙂 الرابط التالي به كود لفتح قاعدة بيانات اخرى (اكسس الى اكسس) ، ولكن هذا الكود يمكنك تحويله الى vbs ، واكيد للغة Net. ، مجرد ابحث عن 🙂 جعفر

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

السلام عليم اخي جرب المرفق Test.xlsm

عليكم السلام ورحمة الله وبركاته تفضل أخي الكريم Sub test() With Sheets("يومية الحضور والإنصراف").Range("B4:C" & Sheets("يومية الحضور والإنصراف").Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=IFERROR(VLOOKUP($A:$A,Table9,COLUMN(),0),"""")" .Value = .Value End With With Sheets("رصيد الأجازات").Range("B3:D" & Sheets("رصيد الأجازات").Cells(Rows.Count, 2).End(xlUp).Row) .Formula = "=IFERROR(VLOOKUP($A:$A,Table9,COLUMN(),0),"""")" .Offset(, 3).Resize(, 1).Formula = "=IFERROR(IF(DATEDIF([@[تاريخ التعيين]],$D$1,""D"")/30>3.1,""يستحق"",""""),"""")" .Offset(, 5).Resize(, 1).Formula = "=IF([@[معادلة الرصيد]]=""يستحق"",$O$1+[@[معالجة الرصيد]],0)" .Offset(, 6).Resize(, 1).Formula = "=[@[الرصيد المرحل]]+[@[رصيد 2023]]" .Offset(, 7).Resize(, 1).Formula = "=(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A3,'يومية الحضور والإنصراف'!$H:$H,""أجازة"")+(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A3,'يومية الحضور والإنصراف'!$H:$H,""أجازة مجمعة"")))" .Offset(, 8).Resize(, 1).Formula = "=(COUNTIFS('يومية الحضور والإنصراف'!$A:$A,$A4,'يومية الحضور والإنصراف'!$H:$H,""أجازة عارضة""))" .Offset(, 9).Resize(, 1).Formula = "=IF(E3=""يستحق"",$N$1-[@[ عارضة]],0)" .Offset(, 10).Resize(, 1).Formula = "=(([@[إجمالي الرصيد المستحق]]-([@[ سنوي]]+[@[ عارضة]]+[@[تسوية نقدي]])))-[@[باقي رصيد العارضة]]" .Offset(, 11).Resize(, 1).Formula = "=([@[باقي رصيد السنوي ]]+[@[باقي رصيد العارضة]])" With .Resize(, 12) .Value = .Value End With End With End Sub

السلام عليكم محاولة في المرفق لكن ليس بكود بل بمعادلات استُعملت فيها الدوال VLOOKUP و INDEX... ملفك غير منظم. قائمة المبيعات.xlsm

أخي الفاضل حسن مرفق الملف بعد التعديل ويمكن من خلاله التعامل مع 500 فرد إن شاء الله إقامة 02.rar