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

كثر الحديث والطلب عن هذا الموضوع (استخراج الارقام أو الأحرف او الكلمات من نص) لذلك قمت بتحميل هذا الملف الذي عسى ان يستفيد منه اكبر عدد ممكن من الاعضاء الملف يحتوي على دالّة معرفة Option Explicit Function Salim_Single_Match(aString As String, my_expression As String, n%) As Variant Dim RegEx As New VBScript_RegExp_10.RegExp Dim NowArray() As String Dim Match, matches As Object Dim x%, cnt% With RegEx .Pattern = my_expression .Global = True .IgnoreCase = True End With On Error Resume Next Set matches = RegEx.Execute(aString) x = matches.Count If x = 0 Then Error.Clear Salim_Single_Match = "No Match": Exit Function End If ReDim NowArray(x - 1) For Each Match In matches NowArray(cnt) = Match.Value cnt = cnt + 1 Next If n > cnt Then n = cnt Salim_Single_Match = NowArray(n - 1) End Function salim_UDF_Formula.xlsm

فورم حركة سير للسواقين والاداريين والانتداب والعمل الخفيف الفيديو الصور الملف استعلام عن السواقين والاداريين بالشركةxls.rar

جرب هذا الملف salim_formula.xlsx

جزاك الله خيرا أخي جمعه الكود تمام وشكرا لتعاونك شرحك للتعديلات رائع جدا

تفضل ... تم التعديل بإذن الله ... والشكر موصول للأساتذة في هذا الموقع ... فهذا بعض مما تعلمته على ايديهم بمشاركاتهم بارك الله في الجميع ... نسيت شيئاً يجب تعريف المتغيرات في اول المودول ... ولك جزيل الشكر ... العقود16_معدل.xlsm

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أحسنت أستاذ سليم عمل ممتاز بارك الله فيك

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

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

حياكم الله استاذ سليم قمة الخلق الرفيع والتواضع لكن اعمالكم تدل على اكثر من ذلك زادكم الله علما ومعرفة لكم مودتي

بكل تواضع في المدارس يلقبونني بـــ "ملك المعادلات" في أماكن أخرى "Doctor Excel" مع اني لا استحق اي من هذين اللّقبين

ربما تقصد هذا الشيء صفحة Salim من هذا الملف salim_formula_New.xlsm

احسنتم استاذ سليم معادلات ولا اروع وفقكم الله

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

عسى يكون المطلوب stu.accdb

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

UP

السلام عليكم ورحمة الله وبركاته من زمان كنت ابحث في المنتديات والمواقع التقنية عن كود لجلب الصور من فولدر الى الاكسيل لم اوفق في هذا البحث واقرب ما وجدته كان كود قديم لا يعمل الا على الاكسيل القديم 97 - 2003 وكان الملف حجمه كبير وبطيء على الجهاز ولا يناسب طبيعة عملي ثم تركت الفكرة لفترة ثم بدأت في الاطلاع على ال VBA وبدات في تسجيل بعض الماكرو البسيطة واستخدامها في عملي حتى تذكرت في يوم رغبتي القديمة فقلت ولم لا لما لا ابدء في عمل كود لجلب الصور من الملف بامكانياتي المتواضعه فبدأت في تسجيل ماكرو عادي ثم عدلت على الكود قليلا قليلا بمساعدة البحث وموقع Stack Overflow وكتاب VBA For Dummies حتى كانت النتيجه مرضية الى حد ما لي واردت مشاركة ما بدأته معكم والشكر موصول للاساتذة في منتدى اوفيسنا والذي تعلمت منه الكثير والان مع الملف وهو عبارة عن ملف اكسيل به عدد 2 شيت الشيت الاول DATA : يحتوي على جدول به ثلاث اسطر السطر الاول لتحديد المسار اي عنوان الفولدر الذي يحتوي على الصور وهو في الملف المرفق اسم الفولدر"1" في البارتيشن "D" ويجب الحرص على وضع شرطه مائلة بعد عنوان الفولدر مباشرة السطر الثاني لتحديد امتداد ملف الصور ويكتب نقطة ثم الامتداد السطر الثالث لتحديد عنوان الخلية المراد وضع اسم الصورة بها في الشيت الاخر "Gallery" الشيت الثاني Gallery : يحتوي على اطار الصورة التي سيتم استدعائها بناء على التغيير في الخلية الموجودة تحت اسم الملف وهذه الخلية يمكن تغيير موضعها عن طريق شيت DATA في ثالث سطر في الجدول - ملحوظة الصورة يمكن تعديل حجمها وتغيير مكانها حسب الحاجة وفي النهاية ارجوا ان تستفيدو من هذا الملف ولي رجاء من له اي استفسار لا يبخل به علينا ومن له تصحيح او نصيحة لا يبخل بها علينا والملف حقوقه محفوظة لكل مسلم سيحانك اللهم وبحمدك استغفرك واتوب اليك Great 1.zip

انا اسف و الله لم الاحظ الرد الا الان لا ادري ما مشكلة الملف ولكن سأرفعه مرة اخرى Great 1 (2).zip

ماذا تقصد بأخيراً يا عمرو : أخيراُ ولا أخيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــراً ؟!

الأخ الفاضل عمرو طلبة إليك الملف التالي عله يفي بالغرض Sub LoopThroughAllWorkbooks() Dim FolderPath As String, FileName As String Dim WBK As Workbook Dim SH As Worksheet FolderPath = ThisWorkbook.Path & "\Collections\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" Set WBK = Workbooks.Open(FolderPath & FileName) For Each SH In WBK.Worksheets If Not IsEmpty(SH.Range("A1")) And SH.Range("A1").Value = "شركة حياة للطاقة و المياه" Then SH.Range("A1").Value = "شركة حياة لخدمات المياه" End If Next SH WBK.Close SaveChanges:=True FileName = Dir() Loop Range("A1").Select Application.ScreenUpdating = True End Sub أرجو أن يفي بالغرض Loop Through All Workbooks To Change String.rar