-
Posts
2,216 -
تاريخ الانضمام
-
Days Won
30
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد حسن المحمد
-
تلوين الخلية صاحبة الرقم الأكبر
محمد حسن المحمد replied to abo3aesha_2014's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته يمكن ذلك كما يلي: 'بالتنسيق الشرطي نكتب هذه المعادلة =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
-
السلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️ جزاكم الله خيرا أستاذنا الفاضل وأحسن إليكم آمين. تم بفضل الله ثم فضلكم إعادة الظهور وأظنني كنت أجهل هذه الخطوات التي توصلني لذلك أو لعلني نسيتها الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم آمين تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️
-
السلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸 أستاذتي الكرام: كنت قد سجلت الدخول متخفيا وحافظت عليه مدة طويلة ثم في الآونة الأخيرة أحببت أن يرى أصدقائي في المنتدى متابعتي لصفحاتهم ومواضيعهم فلم أفلح في ذلك. هل معنى ذلك أن ميزة الدخول متخفيا أصبحت من الماضي مع المحافظة على الحالة التي تم تسجيل الدخول بها قبل التحديث فإن كان دخل متخفيا بقي كذلك. والعكس بالعكس. راجياً من أستاذنا الفاضل أ.د. @محمد طاهر التفضل بشرح طريقة الدخول متخفيا أو إلغائها في حال لا زالت سارية المفعول مع فائق الاحترام والتقدير والامتنان. بارك الله بكم. تقبلوا تحياتي العطرة لكل من مر على مشاركتي والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️
-
معادلة جلب اسم الخلية التى بها أرقام بنفس الصف
محمد حسن المحمد replied to ياسمين محمد's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته بعد إذن من سبقني إلى هذا الموضوع أقدم هذا الحل كرافد للعمل =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 هو زر لإزالة الأسهم السابقة أو اللاحقة أو كليهما. والله أعلم والسلام عليكم ورحمة الله وبركاته.
-
من لم يشكر الناس لم يشكر الله جزاكم الله خيرا وأحسن إليكم جميعاً.. آمين تقبلوا تحياتي العطرة.. والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸
-
استفسار عن معادلة سحب البيانات بدون تكرار مع جمع القيم
محمد حسن المحمد replied to Bu7arbi's topic in منتدى الاكسيل Excel
تفضل أخي الكريم new.xlsm -
رجاء من الساده المهندسين شرح هذه المعادلات
محمد حسن المحمد replied to ياسمين محمد's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته أختي الكريمة حسب علمي الضحل الجواب ضمن الملف المرفق =ROUND(AB433*21%;2) دالة تقريب الخلية المذكورة*٢١% إلى رقمين عشريين. =ROUND(IF(CB433>500;500;CB433);2) دالة تقريب إذا كانت الخلية أكبر من 500 أعطني 500 وإن لم تكن أعطني قيمة الخلية ذاتها مقربة إلى رقمين عشريين ياسمين محمد.xlsx -
استفسار عن معادلة سحب البيانات بدون تكرار مع جمع القيم
محمد حسن المحمد replied to Bu7arbi's topic in منتدى الاكسيل Excel
السلام عليكم أخي الكريم يمكنك استخدام المعادلة التالية، أرجو أن تكون حلاً لاستفسارك =IF(COUNTIF($A$7:A7;A7)=1;SUMIF(MARCH!A7:A44;Data!A7;MARCH!I7:I114);"") تقبل تحياتي العطرة والسلام عليكم new.xlsx -
السلام عليكم أخي الكريم يمكنك فعل ذلك بشكل آلي كلما غيرت في الشيت إلا أنه سيكون مرهقاً لك وخصوصاً حجم البيانات كبير وفق الكود ذاته تضعه في حدث ورقة البيانات ( ملف وتحريري نصف العام صف رابع) كما يلي: 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 والله أعلم والسلام عليكم
-
استخراج و نقل معطيات باستعمال التاريخ و الاسم من جدول
محمد حسن المحمد replied to seddiki_adz's topic in منتدى الاكسيل Excel
السلام عليكم أخي الكريم هذا حل يمكنك تطويره ليناسب عملك طبعاً بإضافة أعمدة مساعدة يمكنك إخفاؤها emploi 24-03-2022.xls -
معادله تجيب اخر رقم فى العمود لنفس الكود
محمد حسن المحمد replied to Mohamed Elsheikh2's topic in منتدى الاكسيل Excel
وعليكم السلام أرجو أن يكون الحل مناسباً المعادلة كما يلي: =LOOKUP(2;1/($C$4:$C$8=C9);$F$4:$F$8) we.rar -
استخراج و نقل معطيات باستعمال التاريخ و الاسم من جدول
محمد حسن المحمد replied to seddiki_adz's topic in منتدى الاكسيل Excel
-
استخراج و نقل معطيات باستعمال التاريخ و الاسم من جدول
محمد حسن المحمد replied to seddiki_adz's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته قُل لَّا يَعْلَمُ مَن فِي السَّمَاوَاتِ وَالْأَرْضِ الْغَيْبَ إِلَّا اللَّهُ ۚ ولذلك لا أحد منا يستطيع أن يخمّن شكل الجدولين اللذين تريد استخراج ونقل المعطيات من أحدهما للآخر وفق الشروط التي ذكرت بانتظار إرفاق ملف يمكن العمل عليه. تقبل تحياتي العطرة أخي الكريم والسلام عليكم. -
حاول تعديل الإعدادات الإقليمية لديك من لوحة التحكم أو جرب هذا الكود NoToText Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then Myno = Mid$(GetNo, i + 1, 3) Else Myno = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur + " " + "لا غير" Else NoToTxt = ReMark + MyFraction + " " + MySubCur + " " + "لا غير" End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " " + "لا غير" End If End Function
-
السلام عليكم ورحمة الله وبركاته 💐 أرجو أن يكون الحل مناسباً =IF(A2=4;B2*11.11;IF(A2=3;B2*10;IF(A2=2;B2*9.09;IF(A2=1;B2*8.33)))) وفاء 2021.xlsx
-
الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم آمين يرجى التفضل بتحديد أفضل إجابة لإتمام الموضوع. والسلام عليكم ورحمة الله وبركاته 💐
-
Sample sheet.xlsx