ياسر خليل أبو البراء

أخي الكريم صاحب الموضوع يرجى تغيير اسم الظهور للغة العربية ليعبر عن شخصكم الكريم جرب المعادلة التالية في الخلية B2 =TRIM(IF(A2<>"",RIGHT(SUBSTITUTE(A2," ","!",LEN(A2)-LEN(SUBSTITUTE(A2," ", ""))),LEN(SUBSTITUTE(A2," ","!",LEN(A2)-LEN(SUBSTITUTE(A2," ", ""))))-FIND("!",SUBSTITUTE(A2," ","!",LEN(A2)-LEN(SUBSTITUTE(A2," ", ""))))),"")) ثم ضع المعادلة التالية في الخلية C2 =TRIM(IF(A2<>"",SUBSTITUTE(A2,B2,""),"")) إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة وإليك الملف المرفق فيه تطبيق للمطلوب Split Text & Numbers Using Formulas.rar

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

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

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

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

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

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

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

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

أخي الكريم محمود إن شاء الله ليلاً إذا تيسر لي وقت سأحاول العمل على ملفك .. ربنا ييسر الأمور تقبل تحياتي

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

أخي الكريم كريم بارك الله فيك على مبادرتك الطيبة بتقديم حل بالمعادلات جرب في الورقة المسماة "تصفية عهدة" في الجدول الثاني اللي هو بتاريخ 21/10/2015 غير السنة إلى 2016 (بهذا لن يتم إدراجه في الكشف المجمع ) ..تحدث فجوة في كشف النتائج لأن التاريخ لا يقع ضمن التاريخين المحددين .. فتظهر النتيجة صفر ويبقى هذا الصف فجوة في البيانات .. تقبل تحياتي

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

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

أخي الكريم علي أفضل من الشكر قول : جزاك الله خيراً والحمد لله أن تم المطلوب على خير .. تقبل تحياتي

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

بارك الله فيك أخي الحبيب سليم على الإضافة الرائعة تقبل فائق تقديري واحترامي

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

أخي الكريم سليم لم أفهم دور المعادلة في الموضوع .. بالنسبة لسطر الكود إضافة جيدة حتى يكون هناك مرونة ..عموماً اللعب بالأكواد متاح للجميع ، يمكنك الإضافة والتعديل والابتكار والإبداع (كل يدلي بدلوه .. ما عدا ياسر العربي عشان دلوه فاضي )

أخي الحبيب عبد العزيز جزيت خيراً على مرورك العطر بالموضوع وبارك الله فيك على كلماتك الطيبة والمشجعة أخي الغالي ياسر العربي جزيت خيراً على مرورك الرخم والعطر بالموضوع .. وبسم الله ما شاء الله بدون أكواد (حسستني إنك اخترعت الذرة) . رخامة برخامة هقول الناس إنت عملت ايه عشان يظهر بالشكل دا بدون كود ..كتبت حرف وبعدين Shift + Enter وبعدين حرف وبعديها Shift + Enter و بعدين حرف ...إلخ إلخ بس بصراحة عجبني التاتش .. هل التاتش له علاقة بالماتش اللي اتفرجت عليه؟ تقبل وافر تقديري واحترامي

بارك الله فيك أخي العزيز عبد العزيز البسكري أخي السائل يرجى وضع عنوان مناسب للموضوع مستقبلاً إن شاء الله ..راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى جرب التالي ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Label1.Caption = Range("A1").Value End Sub ثم قم بوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub Else UserForm1.Label1.Caption = Range("A1").Value End If On Error GoTo 0 End Sub لتجربة الملف قم بإظهار الفورم ...ستظهر أداة العنوان بها قيمة الخلية A1 .. اترك الفورم مفتوح وانقر في الخلية A1 وعدل القيمة لتجد أن الأداة يتم تحديثها تقبل تحياتي Update Label Automatically By Cell Change YasserKhalil.rar

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم موضوع خفيف جداً .. والموضوع هو كيفية جعل النص في أداة العنوان Label يظهر بشكل رأسي (كنوع من الترفيه ليس أكثر) إليكم الكود المستخدم في الملف المرفق مع الشرح المبسط لأسطر الكود .. ليتسنى لكم التعرف على الأكواد بشكل أفضل Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = "YasserKhalil" 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub يوضع الكود في حدث الفورم ...ويعمل عند بدء تشغيل الفورم وإليكم الملف المرفق التالي فيه تطبيق للكود حمل الملف من هنا ولا تنسونا بصالح الدعاء تقبلوا وافر تقديري واحترامي

أخي الكريم أحمد لو جعلناها سلسلة ..وجب أن تكون الأرقام بالترتيب 1 - 2 - 3 لتظهر السلسلة بالترتيب ، وعلى حسب ما فهمت أنه يمكنك كتابة أي رقم لمعرفة الترتيب الخاص به فمثلاً لو بدأنا برقم 10 سيكون الترتيب العاشر والرقم الذي يليه 5 إذاً الترتيب الخامس جزيت خيراً على مساهماتك القيمة والتي تثري الموضوعات بشكل كبير تقبل تحياتي

أخي الكريم هل قمت بتحميل الملف الذي أرفقته ؟؟ الملف جاهز للعمل فقط قم بالنقر على زر الأمر ليتم التنفيذ شاهد الفيديو التالي عله يفيدك Watch.rar