محمد حسن المحمد

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

أخي الكريم السلام عليكم ((مع رجاء إرفاق ملف للعمل عليه من قبل الزملاء الأفاضل)): لإزالة السلاسل النصية من مجموعة من الخلايا في العمود B بدءاً من B2 نزولاً حتى آخر صف تريده يمكنك استخدام معادلة صفيف كما يلي : في الخلية C2: =SUM(MID(0&B2;LARGE(INDEX(ISNUMBER(--MID(B2;ROW($1:$99);1))*ROW($1:$99););ROW($1:$99))+1;1)*10^ROW($1:$99)/10) استخدم ALT+SHIFT+ENTER ثم تنسخ الناتج وتلصقه (لصق قيم في العمود B مثلاً) أو تسجل موديول كما يلي لمسح كلمات (رقم الهوية:) والإبقاء على الرقم في العمود ذاته: Sub ReplaceText() Cells.Replace What:="الاسم:", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Cells.Replace What:="رقم الهوية:", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub أما بقية الأسئلة ففي منتدانا من خلال البحث ستجد ضالتك إن شاء الله تعالى. إو إن شئت استخدم المعادلة التالية في العمود الثالث كما يلي: =IF($A1<>"";VLOOKUP(A1;$B$1:$B$170;1;0);"") تقبل تحياتي العطرة والسلام عليكم. ملاحظة: تمت كتابة معظم مشاركتي حسب طلبك كما جاء في الصورة التي أرفقت ....حرر للبيان. اوفسينا.xlsm

وجزاكم بمثل ما دعوتم أخي الكريم أبو عائشة @abo3aesha_2014 وفقكم الله تعالى لما يحب ويرضى آمين والسلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸

أحسنت بارك الله بك اخي الكريم @Ali Mohamed Ali جزاكم الله خيرا وأحسن إليكم آمين 👍🌺😊

وعليكم السلام ورحمة الله وبركاته يمكن ذلك كما يلي: 'بالتنسيق الشرطي نكتب هذه المعادلة =AND(A2=$E$2) 'في الخلية E2 نكتب هذه المعادلة =LARGE(A2:D2;1) والله ولي التوفيق والسلام عليكم 1.xlsx

السلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️ جزاكم الله خيرا وأحسن إليكم آمين ما شاء الله بارك الله أسأل الله تعالى أن يتقبل منا ومنكم صالح الأعمال تقبل تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🏵️🌺💐🌺

وجزاكم بمثل ما دعوتم أخي الحبيب الغالي @ابو جودي أحبك الله الذي أحببتني لأجله ما شاء الله بارك الله.... هذا هو أثر الكلمة الطيبة التي تأسر القلب وتبهج النفس أَلَمْ تَرَ كَيْفَ ضَرَبَ اللَّهُ مَثَلًا كَلِمَةً طَيِّبَةً كَشَجَرَةٍ طَيِّبَةٍ أَصْلُهَا ثَابِتٌ وَفَرْعُهَا فِي السَّمَاءِ ..... أسأل الله تعالى أن يسعدنا وإياكم في الدارين ومن يقرأ قولي هذا ... آمين يارب العالمين 🏵️ والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️

السلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸 حللت أهلاً ووطئت سهلاً أخي الحبيب الغالي @ابو جودي مرحبا بكم في منتدى الاكسيل ضيفاً كريماً ...عطرتم بمروركم الكريم أجواء منتدى الاكسيل حياكم الله وبياكم وجعل الجنة مأوانا ومأواكم تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸💐🌺

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

بالعودة إلى ملف الأخ @M.Elmahmoudy وجدت أنه يكثر من الشرطات العمودية كرمز فاصل Pipe key وذلك مما يعيق سرعة تنزيل البيانات لديه ولذلك فإنني أقترح عليه أن يكتب بياناته دونها إلا في العمود E لأنه يريد هذه الرموز ضمن المعادلة حصراً حسب ظني |||| ولذلك أقترح عليه العمل باستخدام هذه المعادلة لتسهيل عمله. =CONCATENATE(SUBSTITUTE(CONCATENATE(A7;" ";B7;" ";TEXT(C7;"yyyy/mm/dd");" ";"|";TEXT(D7;"0.000");" ");" ";"|");E7) وستكون النتائج كما هو موضح بالصورة والله أعلم والسلام عليكم Sample sheet.xlsx

السلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️ جزاكم الله خيرا أستاذنا الفاضل وأحسن إليكم آمين. تم بفضل الله ثم فضلكم إعادة الظهور وأظنني كنت أجهل هذه الخطوات التي توصلني لذلك أو لعلني نسيتها الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم آمين تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️

السلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸 أستاذتي الكرام: كنت قد سجلت الدخول متخفيا وحافظت عليه مدة طويلة ثم في الآونة الأخيرة أحببت أن يرى أصدقائي في المنتدى متابعتي لصفحاتهم ومواضيعهم فلم أفلح في ذلك. هل معنى ذلك أن ميزة الدخول متخفيا أصبحت من الماضي مع المحافظة على الحالة التي تم تسجيل الدخول بها قبل التحديث فإن كان دخل متخفيا بقي كذلك. والعكس بالعكس. راجياً من أستاذنا الفاضل أ.د. @محمد طاهر التفضل بشرح طريقة الدخول متخفيا أو إلغائها في حال لا زالت سارية المفعول مع فائق الاحترام والتقدير والامتنان. بارك الله بكم. تقبلوا تحياتي العطرة لكل من مر على مشاركتي والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️

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

السلام عليكم ورحمة الله وبركاته بعد إذن من سبقني إلى هذا الموضوع أقدم هذا الحل كرافد للعمل =CONCATENATE(IF(A2>0;A1;"");IF(AND(A2>0;B2>0);" و ";"");IF(B2>0;B1;"");IF(AND(OR(A2>0;B2>0);C2>0);" و ";"");IF(C2>0;C1;"");IF(AND(OR(A2>0;B2>0;C2>0);D2>0);" و ";"");IF(D2>0;D1;"")) أو =SUBSTITUTE(CONCATENATE(IF(A2>0;A1;"");" ";IF(B2>0;B1;"");" ";IF(C2>0;C1;"");" ";IF(D2>0;D1;""));" ";" / ") والله أعلم والسلام عليكم

أخي الكريم لإظهار الصيغ بدلاً من نتائجها من تبويب Formulas >> Show Formulas أو اضغط على مفتاحي ctrl ` اضغط عليهما معاً المفتاح الثاني هو مفتاح حرف الذال أو ّ أو ~ وللعودة إلى نتائج الصيغ اضغط على المفتاحين ذاتهما.من خلال هذا وبالنظر إلى مكونات المعادلة سيتضح لك اسم الورقة أو المصنف الخارجي الذ ترتبط به وإن كان في الورقة ذاتها من تبويب Formulas >> الضغط على Trace Precedents لتتبع السابقات بأسهم أو Trace Dependents لتتبع اللاحقات بأسهم أما Remove Arrows هو زر لإزالة الأسهم السابقة أو اللاحقة أو كليهما. والله أعلم والسلام عليكم ورحمة الله وبركاته.

من لم يشكر الناس لم يشكر الله جزاكم الله خيرا وأحسن إليكم جميعاً.. آمين تقبلوا تحياتي العطرة.. والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸

تفضل أخي الكريم new.xlsm

السلام عليكم ورحمة الله وبركاته أختي الكريمة حسب علمي الضحل الجواب ضمن الملف المرفق =ROUND(AB433*21%;2) دالة تقريب الخلية المذكورة*٢١% إلى رقمين عشريين. =ROUND(IF(CB433>500;500;CB433);2) دالة تقريب إذا كانت الخلية أكبر من 500 أعطني 500 وإن لم تكن أعطني قيمة الخلية ذاتها مقربة إلى رقمين عشريين ياسمين محمد.xlsx

السلام عليكم أخي الكريم يمكنك استخدام المعادلة التالية، أرجو أن تكون حلاً لاستفسارك =IF(COUNTIF($A$7:A7;A7)=1;SUMIF(MARCH!A7:A44;Data!A7;MARCH!I7:I114);"") تقبل تحياتي العطرة والسلام عليكم new.xlsx

ما شاء الله بارك الله كود رائع أخي الكريم @lionheart زادكم الله علماً وحلماً آمين يا ربّ العالمين.

السلام عليكم أخي الكريم يمكنك فعل ذلك بشكل آلي كلما غيرت في الشيت إلا أنه سيكون مرهقاً لك وخصوصاً حجم البيانات كبير وفق الكود ذاته تضعه في حدث ورقة البيانات ( ملف وتحريري نصف العام صف رابع) كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("ملف وتحريري نصف العام صف رابع").Range("b14").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 36, 45, 56, 65, 76, 85, 96, 105, 116, 125, 136, 145, 156, 165, 192, 193, 198, 199, 204, 205, 210, 211, 216, 217, 19, 20, 21, 28, 29, 30, 39, 40, 41, 48, 49, 50, 59, 60, 61, 68, 69, 70, 79, 80, 81, 88, 89, 90, 99, 100, 101, 108, 109, 110, 119, 120, 121, 128, 129, 130, 139, 140, 141, 148, 149, 150, 159, 160, 161, 168, 169, 170) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 109, 41, 110, 42, 111, 43, 112, 44, 113, 45, 46, 47, 77, 78, 79, 49, 50, 51, 81, 82, 83, 53, 54, 55, 85, 86, 87, 57, 58, 59, 89, 90, 91, 61, 62, 63, 93, 94, 95, 65, 66, 67, 97, 98, 99, 69, 70, 71, 101, 102, 103, 73, 74, 75, 105, 106, 107) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("سجل").Cells(14, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub ولذلك الأفضل التعديل على الموديول لديك كما يلي: Sub Test1() 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("ملف وتحريري نصف العام صف رابع").Range("b14").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 36, 45, 56, 65, 76, 85, 96, 105, 116, 125, 136, 145, 156, 165, 192, 193, 198, 199, 204, 205, 210, 211, 216, 217, 19, 20, 21, 28, 29, 30, 39, 40, 41, 48, 49, 50, 59, 60, 61, 68, 69, 70, 79, 80, 81, 88, 89, 90, 99, 100, 101, 108, 109, 110, 119, 120, 121, 128, 129, 130, 139, 140, 141, 148, 149, 150, 159, 160, 161, 168, 169, 170) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 109, 41, 110, 42, 111, 43, 112, 44, 113, 45, 46, 47, 77, 78, 79, 49, 50, 51, 81, 82, 83, 53, 54, 55, 85, 86, 87, 57, 58, 59, 89, 90, 91, 61, 62, 63, 93, 94, 95, 65, 66, 67, 97, 98, 99, 69, 70, 71, 101, 102, 103, 73, 74, 75, 105, 106, 107) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("سجل").Cells(14, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub والله أعلم والسلام عليكم

السلام عليكم أخي الكريم هذا حل يمكنك تطويره ليناسب عملك طبعاً بإضافة أعمدة مساعدة يمكنك إخفاؤها emploi 24-03-2022.xls

وعليكم السلام أرجو أن يكون الحل مناسباً المعادلة كما يلي: =LOOKUP(2;1/($C$4:$C$8=C9);$F$4:$F$8) we.rar

تفضل أخي الكريم emploi 23-03-2022.xls

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