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

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =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

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

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

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

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 جرب هذا الماكرو

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

السلام عليكم ورحمة الله .. وتقبل الله منكم صالح الأعمال.. الأساتذة الكرماء رعاكم الله لدي قائمة منسدلة من نموذج فرعي أرغب في إذا تم اختيار كلمة تدبر أن تختفي سجلات من النموذج الفرعي الآخر وتظهر سجلات وإذا تم اختيار غير ذلك يتم العكس.. طبقت على ذلك قاعدة 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

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

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

وعليكم السلام لا تنتظر ان يقوم احد بتصميم فورم لك عليك بتصميم الفورم بنفسك واذا تعسرت في نقطة يمكنك رفعها او يمكنك الإستعانة بهذا الرابط https://www.officena.net/ib/topic/90652-فورم-اكسل-تسجيل-بيانات-وترحيل-بيانات-لصفحة-اخرى/?tab=comments#comment-568528

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

بدل الدخول في متاهات وتعقيدات انا استخدم الصورة بشكل مرفق وبالنسبة لحجم البرنامج معاك مساحة 2 جيجا يعني تستوعب شعب الصين مع صورهم مجرد اقتراح

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

الشيت يعمل معى وليس به اى مشكلة

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

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

تفضل اخي 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

وعليكم السلام -اهلا بك في المنتدى بالتأكيد لا يمكن عمل هذا بمعادلة Vlookup - ولكن يمكن بمعادلات المصفوفة كما بالملف وتم عمل اكثر من المطلوب شوف بنفسك ايجاد كل القيم التى تخص رقم معين.xlsx

تفضل منع النسخ واللصق ومنع حفظ بإسم.xls

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

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

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

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

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

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

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

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

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

بارك الله فيك استاذنا الكبير مجدى اعمال ممتازة ونشاط ملحوظ زادك الله من فضله-اتمنى رفع هذه الملفات لكى تكتمل الإستفادة لكل الأعضاء

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

وعليكم السلام تفضل حذف أرقام من اليمين.xlsx

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

السّلام عليكم و رحمة الله و بركاته على رأي أخي الفاضل و أستاذي القدير " ياسر العربي " .. أنت الآن جئت برجليْك لملعبي .. فقط قبل ذلك ما هو الاسم " بالعربية طبعا " الذي تودّ ظهوره على الشّاشة الافتتاحية .. هذا الاسم الذي يُرجى حسب توجيهات المنتدى أن يوفّقك الله و يتم الظهور به على منتدانا الحبيب بإذن الله .. فائق إحتراماتي

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

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

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

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

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

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