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

حاول تعديل الإعدادات الإقليمية لديك من لوحة التحكم أو جرب هذا الكود 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

=A2&""&B2&""&C2&""&TEXT(D2;"0.000")&""&E2 جرب هذه المعادلة أخي الكريم

آمين يا ربّ العالمين ...ولكم بمثل ما دعوتم أخي الكريم جزاكم الله خيراً وأحسن إليكم. والسلام عليكم

أحسنت أخي الكريم @Mohamed_Fouad بارك الله بكم

walaa1.xls

كيف تحسب النقاط أخي الكريم؟

السلام عليكم أختي الكريمة عملت هذا الملف المرفق حسبما طلبتِ أرجو أن يكون مناسباً والسلام عليكم سعر الصرف.xlsx

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

السلام عليكم تفضل أخي الكريم TEST.xlsx

السلام عليكم أخي الكريم @mahmood-alemrany أولاً: يرجى التقيد بالتعليمات التي ذكرها أخونا @مهند محسن بإضافة ملف يستطيع الإخوة الكرام من خلاله الاطلاع على طلبك والاستجابة له وقد يكون لطلبك هذا أمثلة عديدة تستطيع حل سؤالك بالبحث عنها، وقد يكون ملفك الذي تدرجه مثالاً لطلبات أخرى لاحقة بعد أن يصار إلى الحل من خلاله. ثانياً: الإجابة بشكل عام من خلال الدالة Sumif أو Sumifs حسب المطلوب وهنا من خلال سؤالك أرى أن الإجابة من خلال الدالة Sumif أقرب مثال: =SUMIF($B$2:$D$16;B2;$D$2:$D$16) والله أعلم والسلام عليكم.

السلام عليكم أخي الكريم هذه معادلة بحث تقوم بالبحث من خلالها عن قيمة أو مجموعة من القيم في نطاق معين بدلالة ما يقابلها على أن تكون نتيجة تدل دلالة واضحة لا لبس فيها على المطلوب مثلاً: =IF(C10<>"";VLOOKUP(C10;ورقة1!$C$9:$F$39;4;0);"") أقول هنا إن لم تكن الخلية C10 فارغة ابحث لي بدلالة C10 والتي هنا هي اسم العميل ضمن النطاق المحدد والمثبت في الورقة 1 من الخلية C9 حتى الخلية F39 عن القيمة في العمود 4 ضمن الصف المطلوب وهنا أبحث عن رصيد سابق لهذا العميل بالذات أما إن كانت الخلية C10 المذكورة أعلاه فارغة أعطني فراغ . هذا والله أعلى وأعلم ... والسلام عليكم ورحمة الله وبركاته.

السلام عليكم تفضل أخي الكريم Private Sub CommandButton1_Click() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" ActiveCell = TextBox4.Value End Sub Private Sub CommandButton2_Click() For i = 1 To 3 Me("textbox" & i) = "" Next i End Sub Private Sub TextBox1_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub Private Sub TextBox2_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub Private Sub TextBox3_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub active cell.xlsm

السلام عليكم أخي الكريم يمكنك إضافة عمودين لكل جدول رصيد سايق المحموع بعد الحالي تضع بدءاً من الشهر الثاني في الورقة 2 في عمود الرصيد السابق المعادلة التالية: =IF(C10<>"";VLOOKUP(C10;ورقة1!$C$9:$F$39;4;0);"") وفي عمود المجموع: =SUM(D10:E10) وعند انتقالك لشهر جديد نغير بالمعادلات حسب رقم الورقة السابقة والله أعلم .. والسلام عليكم 1.xlsx

للأسف النت ضعيف جداً لدي أرجو أن تجدي من يجيب عن أسئلتكِ

أو تابعي الموضوع التالي: من هنا

السلام عليكم أختي الكريمة أعتقد أتك بحاجة لتحرير الارتباطات مع مصنف أخر كما يلي: من تبويب بيانات..الاتصالات.. نحرير الارتباطات اختاري الخيار الملائم للمصنف لديكِ و الله أعلم

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

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

أحسنت أخي الكريم @Ali Mohamed Ali جز اكم الله خيراً على هذه المعادلة الرائعة وألفت نظر أختنا الكريمة إلى أن هذه المعادلة التي استخدمها الأستاذ علي هي معادلة صفيف تحتاج في النسخ 2016 وما قبل إلى الضغط على Alt+Shift+Enter أما عن التغيير على المعادلة لتشمل صفوف عديدة فهي تحتاج تغيير ما بعد النقطتين : مثل تغيير من $C$17 إلى $C$100 أو أكثر والله أعلم .... كتبت هذا الرد ريثما تتلقين إجابة من أخينا علي على سؤالكِ الكريم والسلام عليكم.

الحمد لله الذي بنعمته تتم الصالحات

وجزاكم بمثل ما دعوتم أخي الكريم يرجى التفضل بالإشارة إلى أفضل إجابة لإتمام الموضوع والسلام عليكم

السلام عليكم ...إليك الحل أخي الكريم =CONCATENATE(TEXT(A2;"yyy/mm/dd");" ";TEXT(B2;"hh:mm am/pm")) New XLS Worksheet.xls