كل الانشطه

وعليكم السلام ورحمة الله وبركاته المشكلة في الملف نفسه الأسباب المحتملة كود VBA تالف. UserForms أو Modules فيها مشكلة. انقطع حفظ الملف أثناء التعديل. والحل لا بد من فحص الملف نفسه من الداخل لمعرفة سبب المشكلة

انا كنت حليت لك هذه المشكلة من قبل بتارخ 6/11/2023 من هنـــــــــــــــــــا .

جزاك الله خير على التعديل ان شاءالله نقوم على فحص البرنامج وطرح الملاحظات ان وجد حتى يكون متكامل ان شاءالله بارك الله فيك وجزاك الله خير الجزاء

@Foksh مشغوله هل فترة ما اقدر اكلمك خاص 😂 استاذ على القليل تناديني استاذه اذا مداني دخلت التحدي على خفيف ====================================== 1- Fix_ لا يكمن التحريك نافذه حسب الشاشه 2- Fix_ يعمل حفظ وترتيب مجموعات وانشاء مجموعة وضبط المصنع بنافذه 3-Fix_ يمكن تغير الخلفية من الاعدادات من غير وميض ولا ترميش 4- امكانية حفظ الاحدثيات للنافذه وكامل الشاشة بتوزيع سطح مكتب نظام 5- امكانية تغير لون وخلفية النصوص للقواعدة البيانات 6- اضافة حجم المساحة لكل قاعدة مع تغير لون القاعدة اذا تجاوز مساحة 1GB 7- Fix_ يعمل بتحديث النظام عند الفتح والاقلاع 8- استعلامات وبعض الاضافات واضافة تنبيهات لكل قاعدة حول بيانات القواعد والاحصاء ... مفتاح :8888-8888-8888-8888-8888 (مفتوح المصدر) يمكن الاختصار الدخول الى Logen Or XCC حجم خفيف على التحميل ملاحظة يجب عند الاقلاع قبل الاتصال ضبط مسارات القاعدة ثم اتصال https://drive.google.com/file/d/1VgaJAMfqInDQ8XclOxXMbnVsI-nZY1fl/view?usp=sharing

اخى زاكى الكود داخل الملف إذا تمت الكتابة على خلية لا يتم التعديل عليها Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim X As Range For Each X In Target ' 600 åæ ÇÎÑ ÓØÑ áÚãá ÇáßæÏ 'L åæ ÇáÚÇãæÏ column 12 If (X.Row < 600 And X.Column < 12) Then If ActiveSheet.ProtectContents = True And X.Value <> "" Then X.Offset(0, 1).Select End If Next End Sub

السلام عليكم ورحمة الله لما اشغل الملف والذي بعمل في اي جهاز غير جهازي تظهر هذه المشكلة ولما اعمل اصلح تظهر الصورة الثانية ارجو منكم مساعدتي

حياكم الله

هذا لانك لم تحدد له قاعدة البيانات التي سيتم عمل نسخة لها ففي الوضع الحالي أنت تقول له قم بعمل نسخة من مجلد (البرامج الخاصة) الموجود في القرص D وكان يجب أن تضيف إسم قاعدة البيانات التي سيقوم بنسخها أيضاً مثال عملي إذا إفترضنا أن لدينا مجلدين Folder1 و Folder2 يقعان في القرص D ولدينا قاعدة بيانات أسمها MyDatabase بالإمتداد mdb موجودة في Folder1 ونريد إنشاء نسخ إحتياطية منها في المجلد Folder2 فيجب إدخال مايلي في حقل (مسار قاعدة البيانات) D:\Folder1\MyDataBase.mdb لاحظ أن المسار يحتوي على إسم قاعدة البيانات مع إمتدادها وفي حقل (مسار حفظ النسخة) سندخل مايلي D:\Folder2 هنا لا نحتاج لإدخال إسم قاعدة البيانات لأن البرنامج سيقوم بإعادة تسميتها بحسب التاريخ والوقت إن شاء الله يكون الشرح واضح تحياتي

خير الناس انفعهم للناس الله يعطيك العافية ويبارك جهودة

اخي لم تصلح معي اريد كود visual basic macro اي صنع ماكرو يقوم بحماية الخلايا المراد حمايتها مثل ماكرو المقدم لكم في الاعلى كيف اصنع ماكرو في ورقة ايكسل الخاصة بي

اتفضل CARD3.zip

السلام عليكم اخي مازال يوجد مشكلة حيث ان الصور تتغير في كل السجلات حيث اذا ادخلت سجل جديد وادخلت صور تتغير الصورر في كل السجلات اريد ان يكون الصور لكل سجل مستقلة

الف شكر اخي الكريم

السلام عليكم اللي يباركلك احتاج التعديل بحيث يتم اضافة 3 صور لكل سجل او شخص وللعلم اخي اني جديد في التعامل مع اكسس وحاولت لكني فشلت

تفضل من عباقرة المنتدى لعله ما طلبت إن شاء الله

وعليكم السلام ورحمة الله وبركاته بالنسبة لبرنامج فيجوال بيسك الخاص بالإكسل (VBA)، فأنت لا تحتاج لتحميله من أي رابط، ،لأن "فيجوال بيسك" (VBA) ليس برنامجاً مستقلاً يحتاج لتحميل، بل هو جزء أصيل ومدمج داخل برنامج الإكسل نفسه.

السلام عليكم عندي ملف ايكسل اريد. حماية بعض الخلايا بكود فيزيال بازيك كيف يتم ذلك شكل كود macro visual basic Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("e10,f10,g10,h10,i10") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub

⏳ باقي من الوقت : 6 أيام حتى نهاية التحدى الثاني

اتفضل CARD.zip

View File اضافة مسار للصور السلام عليكم اخوتي الاعزاء الخبراء انا حديث مع التعامل بقواعد البيانات وحصلت علي ملف اريد استخدامة من اوفيستا لكن احتاج تعديل باضافة مسار عدد 2 صورة في النمودج ليكون الاجمالي 3 صور وق\د حاولت كثيرا وفشلت لذا ارجو من سعادتكم التكرم بالمساعدة Submitter حسام الفولي Submitted 04/24/2026 Category قسم الأكسيس  

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

السلام عليكم ورحمة الله وبركاته اريد رابط برتامج فيجول بيسك لتشغيل الماكرو في الاكسبل لوسمحتم

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

أعتقد الحل رياضياتيا صحيح، فقط المشكلة أني لم احترز لوجود خلايا فاضية بناء على المثال في المرفق السابق. لاحظ أجوبتك (مبهمة) غير صريحة!! يجب تحديد الخطأ بشكل واضح. محاولة أخرى بدون تغيير في النتائج فقط تم تبديل نوع المتغيرات احترازا عند وجود خلايا فاضية في العطل/الإجازات. Function Between(inDate As Long, Date1 As Long, Date2 As Long) As Boolean Between = inDate >= Date1 And inDate <= Date2 End Function Function getHolidays(Holiday1 As Long, Holiday2 As Long, _ Workday1 As Long, Workday2 As Long) As Integer Dim Date1 As Long, Date2 As Long 'On Error Resume Next 'Min date is 31/12/1899 If Holiday1 <= 0 Or Holiday2 <= 0 Then Exit Function If Between(Holiday1, Workday1, Workday2) Or _ Between(Holiday2, Workday1, Workday2) Or _ Between(Workday1, Holiday1, Holiday2) Or _ Between(Workday2, Holiday1, Holiday2) Then Date1 = IIf(Holiday1 >= Workday1, Holiday1, Workday1) Date2 = IIf(Holiday2 <= Workday2, Holiday2, Workday2) getHolidays = Date2 - Date1 + 1 End If End Function حساب أيام العمل خلال_04.xlsm