اذهب الي المحتوي
أوفيسنا

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

الخبراء
  • Posts

    2,216
  • تاريخ الانضمام

  • Days Won

    30

كل منشورات العضو محمد حسن المحمد

  1. وعليكم السلام ورحمة الله وبركاته يمكن ذلك كما يلي: 'بالتنسيق الشرطي نكتب هذه المعادلة =AND(A2=$E$2) 'في الخلية E2 نكتب هذه المعادلة =LARGE(A2:D2;1) والله ولي التوفيق والسلام عليكم 1.xlsx
  2. السلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️ جزاكم الله خيرا وأحسن إليكم آمين ما شاء الله بارك الله أسأل الله تعالى أن يتقبل منا ومنكم صالح الأعمال تقبل تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🏵️🌺💐🌺
  3. وجزاكم بمثل ما دعوتم أخي الحبيب الغالي @ابو جودي أحبك الله الذي أحببتني لأجله ما شاء الله بارك الله.... هذا هو أثر الكلمة الطيبة التي تأسر القلب وتبهج النفس أَلَمْ تَرَ كَيْفَ ضَرَبَ اللَّهُ مَثَلًا كَلِمَةً طَيِّبَةً كَشَجَرَةٍ طَيِّبَةٍ أَصْلُهَا ثَابِتٌ وَفَرْعُهَا فِي السَّمَاءِ ..... أسأل الله تعالى أن يسعدنا وإياكم في الدارين ومن يقرأ قولي هذا ... آمين يارب العالمين 🏵️ والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️
  4. السلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸 حللت أهلاً ووطئت سهلاً أخي الحبيب الغالي @ابو جودي مرحبا بكم في منتدى الاكسيل ضيفاً كريماً ...عطرتم بمروركم الكريم أجواء منتدى الاكسيل حياكم الله وبياكم وجعل الجنة مأوانا ومأواكم تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸💐🌺
  5. السلام عليكم ورحمة الله وبركاته .... رمضان مبارك إن شاء الله تعالى الله ينور....بالتوفيق إن شاء الله تعالى اللهم تقبل منا صالح أعمالنا واغفر لنا ما كان منا جزاكم الله خيراً ...والسلام عليكم ورحمة الله وبركاته. بانتظـــــــــــــــــــــــــــار الملف.....
  6. بالعودة إلى ملف الأخ @M.Elmahmoudy وجدت أنه يكثر من الشرطات العمودية كرمز فاصل Pipe key وذلك مما يعيق سرعة تنزيل البيانات لديه ولذلك فإنني أقترح عليه أن يكتب بياناته دونها إلا في العمود E لأنه يريد هذه الرموز ضمن المعادلة حصراً حسب ظني |||| ولذلك أقترح عليه العمل باستخدام هذه المعادلة لتسهيل عمله. =CONCATENATE(SUBSTITUTE(CONCATENATE(A7;" ";B7;" ";TEXT(C7;"yyyy/mm/dd");" ";"|";TEXT(D7;"0.000");" ");" ";"|");E7) وستكون النتائج كما هو موضح بالصورة والله أعلم والسلام عليكم Sample sheet.xlsx
  7. السلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️ جزاكم الله خيرا أستاذنا الفاضل وأحسن إليكم آمين. تم بفضل الله ثم فضلكم إعادة الظهور وأظنني كنت أجهل هذه الخطوات التي توصلني لذلك أو لعلني نسيتها الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم آمين تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️
  8. السلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸 أستاذتي الكرام: كنت قد سجلت الدخول متخفيا وحافظت عليه مدة طويلة ثم في الآونة الأخيرة أحببت أن يرى أصدقائي في المنتدى متابعتي لصفحاتهم ومواضيعهم فلم أفلح في ذلك. هل معنى ذلك أن ميزة الدخول متخفيا أصبحت من الماضي مع المحافظة على الحالة التي تم تسجيل الدخول بها قبل التحديث فإن كان دخل متخفيا بقي كذلك. والعكس بالعكس. راجياً من أستاذنا الفاضل أ.د. @محمد طاهر التفضل بشرح طريقة الدخول متخفيا أو إلغائها في حال لا زالت سارية المفعول مع فائق الاحترام والتقدير والامتنان. بارك الله بكم. تقبلوا تحياتي العطرة لكل من مر على مشاركتي والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️
  9. أرجو أن يكون شرحاً وافياً مفيداً أخي الكريم نسألكم الدعاء. والله الموفق ...تقبل تحياتي العطرة والسلام عليكم.
  10. السلام عليكم ورحمة الله وبركاته بعد إذن من سبقني إلى هذا الموضوع أقدم هذا الحل كرافد للعمل =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;""));" ";" / ") والله أعلم والسلام عليكم
  11. أخي الكريم لإظهار الصيغ بدلاً من نتائجها من تبويب Formulas >> Show Formulas أو اضغط على مفتاحي ctrl ` اضغط عليهما معاً المفتاح الثاني هو مفتاح حرف الذال أو ّ أو ~ وللعودة إلى نتائج الصيغ اضغط على المفتاحين ذاتهما.من خلال هذا وبالنظر إلى مكونات المعادلة سيتضح لك اسم الورقة أو المصنف الخارجي الذ ترتبط به وإن كان في الورقة ذاتها من تبويب Formulas >> الضغط على Trace Precedents لتتبع السابقات بأسهم أو Trace Dependents لتتبع اللاحقات بأسهم أما Remove Arrows هو زر لإزالة الأسهم السابقة أو اللاحقة أو كليهما. والله أعلم والسلام عليكم ورحمة الله وبركاته.
  12. من لم يشكر الناس لم يشكر الله جزاكم الله خيرا وأحسن إليكم جميعاً.. آمين تقبلوا تحياتي العطرة.. والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸
  13. السلام عليكم ورحمة الله وبركاته أختي الكريمة حسب علمي الضحل الجواب ضمن الملف المرفق =ROUND(AB433*21%;2) دالة تقريب الخلية المذكورة*٢١% إلى رقمين عشريين. =ROUND(IF(CB433>500;500;CB433);2) دالة تقريب إذا كانت الخلية أكبر من 500 أعطني 500 وإن لم تكن أعطني قيمة الخلية ذاتها مقربة إلى رقمين عشريين ياسمين محمد.xlsx
  14. السلام عليكم أخي الكريم يمكنك استخدام المعادلة التالية، أرجو أن تكون حلاً لاستفسارك =IF(COUNTIF($A$7:A7;A7)=1;SUMIF(MARCH!A7:A44;Data!A7;MARCH!I7:I114);"") تقبل تحياتي العطرة والسلام عليكم new.xlsx
  15. ما شاء الله بارك الله كود رائع أخي الكريم @lionheart زادكم الله علماً وحلماً آمين يا ربّ العالمين.
  16. السلام عليكم أخي الكريم يمكنك فعل ذلك بشكل آلي كلما غيرت في الشيت إلا أنه سيكون مرهقاً لك وخصوصاً حجم البيانات كبير وفق الكود ذاته تضعه في حدث ورقة البيانات ( ملف وتحريري نصف العام صف رابع) كما يلي: 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 والله أعلم والسلام عليكم
  17. السلام عليكم أخي الكريم هذا حل يمكنك تطويره ليناسب عملك طبعاً بإضافة أعمدة مساعدة يمكنك إخفاؤها emploi 24-03-2022.xls
  18. وعليكم السلام أرجو أن يكون الحل مناسباً المعادلة كما يلي: =LOOKUP(2;1/($C$4:$C$8=C9);$F$4:$F$8) we.rar
  19. السلام عليكم ورحمة الله وبركاته قُل لَّا يَعْلَمُ مَن فِي السَّمَاوَاتِ وَالْأَرْضِ الْغَيْبَ إِلَّا اللَّهُ ۚ ولذلك لا أحد منا يستطيع أن يخمّن شكل الجدولين اللذين تريد استخراج ونقل المعطيات من أحدهما للآخر وفق الشروط التي ذكرت بانتظار إرفاق ملف يمكن العمل عليه. تقبل تحياتي العطرة أخي الكريم والسلام عليكم.
  20. حاول تعديل الإعدادات الإقليمية لديك من لوحة التحكم أو جرب هذا الكود 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
  21. السلام عليكم ورحمة الله وبركاته 💐 أرجو أن يكون الحل مناسباً =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
  22. الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيرا وأحسن إليكم آمين يرجى التفضل بتحديد أفضل إجابة لإتمام الموضوع. والسلام عليكم ورحمة الله وبركاته 💐
×
×
  • اضف...

Important Information