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

حل رائع أستاذ ى الفاضل " ياسر خليل " وأسمحوا لى المشاركة بمعادلتين لتحقيق نفس النتيجة المعادلة الأولى: =LEFT(A2,FIND("*",A2)-1)*RIGHT(A2,FIND("*",A2)-1) ضرب رقمين.rar

أخي الكريم سليم جرب الكود بهذا الشكل Sub DoIt() Dim Cell As Range For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) Cell.Offset(, 1) = "=" & Cell.Value Next Cell End Sub إن شاء الله تظبط معاك تقبل تحياتي

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

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

جزاك الله كل خير وبارك فيك كفيت ووفيت والله , الله لا يحرمك الأجر . لك مني كل الشكر والتقدير عزيزي

تم التعديل على الملف حسب ما تريد انظر الى الصفحة الثانية واضغط افضل اجابة (اذا كانت كذلك) Sans paternal adapte.rar

أخي الفاضل من المفترض أن ترفق ملف به الكود المراد التعديل عليه حتى تسهل على إخوانك .. عموماً .... حصل خير إليك الكود التالي عله يفي بالغرض Sub ExtractTwoNames() Dim Rng As Range, Cell As Range Dim lRow As Long Dim AWF Set Rng = Range("B2:B" & Cells(Rows.Count, 1).End(3).Row) Set AWF = Application.WorksheetFunction lRow = 2 Application.ScreenUpdating = False For Each Cell In Rng If kh_Names(AWF.Trim(Cell.Value), 1) = AWF.Trim(Cell.Value) Or kh_Names(AWF.Trim(Cell.Value), 1, 2) = AWF.Trim(Cell.Value) Then Cells(lRow, 4) = Cell.Offset(, -1): Cells(lRow, 5) = Trim(Cell): lRow = lRow + 1 Next Cell Application.ScreenUpdating = True End Sub Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim I As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function تقبل تحياتي Extract Single & Double Names V2 YasserKhalil.rar

زيادة في اثرء الموضوع يمكن استعمال اح هذين الكودين: Sub salim() i = 2 Do While Range("a" & i) <> "" Range("B" & i) = "=" & Range("a" & i) i = i + 1 Loop End Sub

السلام عليكم ورحمة الله وبركاته نعم اخ ياسر هذه المعادلة هي المطلوبة زاداك الله من علمه ونفع بك عباده الف شكر اخ ياسر

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... ورمضان كريم قمت ببعض التعديلات على كود PDF وإضافة تسميتين الأولى AreaPDF لتحديد ناحية الطباعة للكارت التي تم تحديدها بالخلية AN1 والتسمية الثانية NamePDF لتحديد رقم السطر لاسم الكارت من العمود B... وقد تركت التاريخ المضاف للاسم عند إرسال الملف إلى PDF... ولإرسال أي كارت إلى ملف PDF يكفي كتابة رقم Payroll للكارت المعني في الخلية AN1 ثم تنفيذ كود PDF... أرجو أن يكون هذا هو المطلوب... أخوك بن علية المرفق : PDF اسم الصفحة.rar

إذهب إلى " قائمة " insert " ثم " name" ثم " define " ثم فى " refers to " ضع هذه الصيغة = EVALUATE($A2) وفى تسمية النطاق " names in workbook " وضعت أسم " gamal " تستطيع أنت تسميتة ماشئت وفى الخلية المراد أظهار النتيجة بها ضع هذه المعادلة =gamal وهو أسم النطاق الذى سبق تسميتة ضرب رقميين 2.rar

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

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

اذهب الى هذا العنوان : https://support.office.com/ar-sa/article/%D8%A5%D8%B1%D8%B4%D8%A7%D8%AF%D8%A7%D8%AA-%D9%88%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D8%B5%D9%8A%D8%BA-%D8%A7%D9%84%D8%B5%D9%81%D8%A7%D8%A6%D9%81-3be0c791-3f89-4644-a062-8e6e9ecee523?ui=ar-SA&rs=ar-SA&ad=SA

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

اخى ابو الياس هذه محاوله منى اتمنى ان تفى بالغرض اذا كان المحاوله ناجحه يرجى قفل الموضوع باختيار افضل اجابه ولا تنسى ان تضغط على محتوى اعجبنى تقبل تحياتى لست بوكس.rar

أخي الفاضل أبو إلياس لا أريد اعتذار أخي الحبيب إنما أريد الالتزام بالتوجيهات قدر الإمكان .. الالتزام يسهل الكثير على كلا الطرفين : صاحب الموضوع ومن يحاول المساعدة بالنسبة للخطأ في المشاركة رقم 7 بدون الإطلاع على الملف .. في السطر السابق للسطر باللون الأصفر غير السطر ليكون بهذا الشكل With Sheets("Data") حيث تم الإشارة إلى ورقة العمل بشكل مباشر بدون استخدام كلمة Sheets الأخطاء ستعلمك الكثير فحاول أن تستغل الأخطاء في التعلم .. أرجو أن تكون الفكرة قد وصلت تقبل تحياتي واعتذاري

حبيبي أبا البراء لابأس ولاإعتذار ولايحزنون كل عام وأنتم بخير أنا لاأنزعج أبدا من مداخلات الأحبة بل العكس يزيد ذلك من ثراء الموضوع

بسم الله ما شاء الله تبارك الرحمن أسأل الله رب العرش العظيم وفي هذه الساعة الفضيلة أن يجزيك ووالديك خير الجزاء وأن يزيدك علماً وأن يكرمك بالدنيا والآخرة ويفك كل كرب وهم عنك عزيزي كل الشكر والتقدير لك يالغالي , فعلاً أنت مبدع ما شاء الله عليك

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

الحمد لله الذي بنعمته تتم الصالحات تقبل الله منا ومنكم

تفضل هذه روابط توجد فيها حلول مسألتك http://superuser.com/questions/301226/manually-change-filetype-icons-in-windows-7 http://www.winhelponline.com/blog/change-file-type-icon-windows-7-vista/

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

أخى خالد الموضوع بصراحه جميل جدا ................................... بس انا شايف انك بكده بدأت تخرج عن مضمون العنوان ....................................................... ايه رأيك لو تناشد احد المشرفين لنقل المشاركه 89 الى موضوع جديد يكون باسم index انا شايف ان كده هيكون افضل ................................. على العموم ده مجرد رأى ............................ تقبل تحياتى

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

الأخ الكريم أبو إلياس جرب الكود بهذا الشكل Sub Trheel() Dim CL As Range, I As Integer For I = 2 To 4 Sheets(I).Range("B2:H1000").ClearContents For Each CL In Range("H2:H" & [H10000].End(xlUp).Row) If CL.Value = Sheets(I).Name Then CL.Offset(0, -6).Resize(1, 7).Copy Sheets(I).Range("B" & Sheets(I).[B10000].End(xlUp).Row + 1) End If Next Next End Sub تقبل تحياتي

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

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

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

السلام عليكم الاخ الحبيب A L M A I S T R O عدلت على ملف الاستاذ العلامه خبور وهذا بعد اذنه بما يتماشا مع طلبك الاليه كالتالي : أولا تحدد نوع الإمتداد ثم تضغط زر "إختار المجلد الرئيسي" بدوره يخرج مسار ملفات الاكسل من المجلدات الفرعيه للمجلد المحدد أو حتى قرص محدد ثم تحدد نوع الإمتداد مثلاً xls او xlsm او الخ ...... ورقة البحث الافتراضيه للملفات هيا الاولى و المدى الافتراضي = "A1:Z1000" واشياء اخرى اكتشفها في الملف ارجو التجربه ان وجدت اخطاء او ملاحظات انا موجود ---------------------------------- للمعلومية ...... حاول الا تبحث بقرص كامل لانه حتماً سيكون بطيئ جداً احبذ اختيار مجلد معين ---------------------------------- المرفق الاول شرح الية العمل المرفق الاخر الملف شرح_بحث.rar Kh_Srech.rar