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

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =IFERROR(VLOOKUP(A2,'رقم الموظف'!$A$1:$G$130,5,0),"") Pay-aht_moustafa-20190802-040908.xlsx Pay-mttks_magdi-20181011-082233-2019 - Copy.xls

تفضل 1الأثاث.xlsm

بعد اذن اخي ابو عارف شوف هل هذا ما تقصده Da3 (2).accdb

أحسنت أستاذ مجدى بارك الله فيك ورحم الله والديك

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

تفضل لك ما طلبت وزيادة تم عمل كود ووضعه في حدث الصفحة لحماية الصفحة الرئيسية _ وكلمة السر 123 Private Sub Worksheet_Activate() Sheets("Main").Protect Password:="123", UserInterFaceOnly:=True End Sub Book1.xlsm

كان عليك من البداية رفع الملف لكى تكون المساعدة أدق ولكن مثلا ضع هذا الكود في كوماند بوتن Enter في الفورم Private Sub CommandButton2_Click() UserForm1.Hide Application.Visible = True Sheets("Sheet8").Select End Sub

Dim queryName As String Dim fileName As String queryName = "إسم الإستعلام" fileName = Application.CurrentProject.Path & "\" & "إسم ملف الإكسيل" & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

هل يمكن لبرنامج اكسل ان يقوم بتقسيم الصورة علي مجموعة خلايا بنسبة مئوية معينة انظر لهذا الملف لتفهم ما أقصده Complete_picture.xlsx

فورم بحث وانتقال للاسم المختار الفيديو الصور

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

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

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

Option Explicit Sub TEST() Dim X, A, B, C, I% X = Range("B3").MergeArea.Rows.Count A = Range("A3").Value B = Range("B3").Value: C = Range("C3").Value Range("A3:C3").UnMerge With Range("A3") For I = 1 To X - 1 .Offset(I, 0) = A: .Offset(I, 1) = B Next End With End Sub جرب هذا الماكرو

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

السلام عليكم ورحمة الله .. وتقبل الله منكم صالح الأعمال.. الأساتذة الكرماء رعاكم الله لدي قائمة منسدلة من نموذج فرعي أرغب في إذا تم اختيار كلمة تدبر أن تختفي سجلات من النموذج الفرعي الآخر وتظهر سجلات وإذا تم اختيار غير ذلك يتم العكس.. طبقت على ذلك قاعدة If لكن بعد إدخال البيانات تظهر رسالة مشلكة .. آمل التكرم بالتوجيه والتسديد رعاكم الله مرفق المثال وهذا الكود الذي تم وضعه If FNX = "تدبر" Then Forms![majal1]![fnx2]![hekma].Visible = True Forms![majal1]![fnx2]![addz].Visible = True Forms![majal1]![fnx2]![beanx].Visible = False Forms![majal1]![fnx2]![nobeanx].Visible = False Else Forms![majal1]![fnx2]![hekma].Visible = False Forms![majal1]![fnx2]![addz].Visible = False Forms![majal1]![fnx2]![beanx].Visible = True Forms![majal1]![fnx2]![nobeanx].Visible = True End If مثال ربط قائمة منسدلة.rar

تفضل جرب مثال ربط قائمة4منسدلة.rar

الله يبارك فيك اخي qathi والحل الاول والاساس هو للاخ ابو عارف له كل الشكر على ما قدمه في هذا المنتدى وكل القائمين بهذا المنتدى الغالي على قلوبنا جميعا

الله يبارك فيك أخي واستاذي @ابو ياسين المشولي .. دائما مبدع بالحلول الذي تاتي منك أسأل الله لك الخير والبركة ... جزاك الله خيرا

السلام عليكم و رحمة الله و بركاته و السبب سجل جديد ليس لديه قيمة سابقة و الحل: استثناء سجل جديد في بداية الكود و عرض رسالة تفيد بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين اذا اخترت لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم سيفتح نافذة لتختار لصورة و عند اختار الصورة البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل. والمثال في المرفق Worker (4) (2).rar

ياباشا جزاك الله كل خير وكل سنه وحضرتك بخير وصحه وسعاده هراجعه حالا

كل عام والجميع بخير

المفروض تحرر الملف بضغط على ايقونة Enable Editng بعد ذلك الملف يعمل معك بشكل جيد

امين آمين اخي الكريم و جزاك الله بمتله واليك اضافة جديدة اضافة علامة مئوية مع رقم نفسه دون دون مربع اضافية لوضع علامة مئويه فيها Da3.accdb

نظراً لأن موضوع السؤال كان عن تحويل إستعلام الى إكسيل وقد تمت الإجابه عليه .. فيرجى إدراج موضوع جديد بسؤالك الآخر وإن شاء الله تجد الإجابة.

بعد اذن اخى الحبيب استاذ احمد بدره واستاذ احمد يوسف المضوع بسيط لا يحتاج الى ملفين انظر الى هذا الملف لعله يفى بالغرض نسخة من 1111.xlsx

شكرا استاذ : عبداللطيف سلوم

ابوعبدالله_1972 جرب هذا الكود عسى أن يفى بالمطلوب Dim queryName As String Dim fileName As String queryName = "sales" fileName = Application.CurrentProject.Path & "\" & queryName & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

تفضل اخي Da3.accdb

عليك برفع الملفات مع شرح مفصل للمطلوب وسوف تلقى المساعدة من الأساتذة

تفضل -عن طريق عمل تنسيق لهذا العمود كما بالصورة 1.xlsx

تفضل هذا الفيديو فبه ما تطلب وترغب https://www.youtube.com/watch?v=mX6JOfgb2hc ولكن فى نهاية الفيديو عند الضغط على Finish & Merge يمكنك الضغط على Edit Individual Documents بدلا من Print Document وذلك للحصول على الملف بالوورد وليس بتنسيق أخر وليس هناك طريقة سوى هذه وهذا هو ملف الوورد المطلوب المرتبات.docx

1- قم بتسمية الورقة الرئيسية بغير رقم مثلاً "main_sheet" او اي اسم تختاره 2-قم بتسمية الأوراق التي ترغب بمسح النطاق منها بالارقام مثلاً "1" "2" "15 " الخ.. نفذ هذا الماكرو (ستلاحظ الاوراق التي يحتوي اسمها على كلمات لا يتعاطى معها الماكرو) الماكرو Option Explicit Sub del_Ranges() Dim my_Srting$: my_Srting = "D5:F35" Dim sh As Worksheet For Each sh In Sheets If sh.Name Like "#*" Then sh.Range(my_Srting).ClearContents End If Next End Sub الملف مرفق كنموذج MOURATABAT.xlsm

أحسنت استاذنا الكريم مجدى بارك الله فيك وزادك الله من فضله وغفر لك

أهلا بك اخى الكريم فى المنتدى كيف تتم المساعدة على صورة ؟! لابد من رفع الملف نفسه

عمل ممتاز استاذى الكريم جعله الله فى ميزان حسناتك وزادك الله من فضله

تفضل اخى الكريم ومن فضلك لابد من التفاعل والمشاركة الإيجابية مع جميع الأعضاء وأتمنى من الله التوفيق لك دائما هايبر لينك - 1.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة البسيطة =IF((C4-D4)<0,0,C4-D4) جعل الناتج السالب صفراً.xlsx

مبدع استاذى الكريم دائما بارك الله فيك وجعله الله في ميزان حسناتك

لم توضح هذا فى طلبك عموما تفضل معادلة للبحث عن قيمة بأكثر من شرط-1.xlsx

عليك برفع الملف وشرح المطلوب على الملف بكل دقة

مبارك الترقية ابا جودى والى الأمام دائما

تفضل اظهار الوقت سالب.xlsx

عليك برفع الملف ؟!!!!

وعليكم السلام تفضل Att Apr 2019.xlsx

السّلام عليكم و رحمة الله و بركاته أخي الكريم " eyadoff " ..هل من الممكن وضع ملف توضيحي و لو بشيتات فارغة .. للفهم أكثر و تلقّي المساعدة من قِبل الإخوة الأساتذة الأكارم من استطاع منهم المساعدة فائق إحتراماتي

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

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

مشكووور جدا اخي سأحاول اكمل من حيث اوصلتني انت شكرا على التعاون وسأوافيك بالنتائج

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