مهند محسن

على الرغم انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب ... وكما تعلم والجميع يعلم ان هذا بدوره يؤدى الى اهدار وقت كل من يطلع على مشاركتك دون جدوى ,, فسأجيبك أيضا بدون ملف .. هذا هو الكود المطلوب
Function NumberToText(Number As Double, MainCurrency As String, SubCurrency As String) Dim Array1(0 To 9) As String Dim Array2(0 To 9) As String Dim Array3(0 To 9) As String Dim MyNumber As String Dim GetNumber As String Dim ReadNumber As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetText As String Dim Billion As String Dim Million As String Dim Thousand As String Dim Hundred As String Dim Fraction As String Dim MyAnd As String Dim I As Integer Dim ReMark As String If Number > 999999999999.99 Then Exit Function If Number < 0 Then Number = Number * -1 ReMark = "سالب " End If If Number = 0 Then NumberToText = "صفر" Exit Function End If MyAnd = " و" Array1(0) = "" Array1(1) = "مائة" Array1(2) = "مائتان" Array1(3) = "ثلاثمائة" Array1(4) = "أربعمائة" Array1(5) = "خمسمائة" Array1(6) = "ستمائة" Array1(7) = "سبعمائة" Array1(8) = "ثمانمائة" Array1(9) = "تسعمائة" Array2(0) = "" Array2(1) = " عشر" Array2(2) = "عشرون" Array2(3) = "ثلاثون" Array2(4) = "أربعون" Array2(5) = "خمسون" Array2(6) = "ستون" Array2(7) = "سبعون" Array2(8) = "ثمانون" Array2(9) = "تسعون" Array3(0) = "" Array3(1) = "واحد" Array3(2) = "اثنان" Array3(3) = "ثلاثة" Array3(4) = "أربعة" Array3(5) = "خمسة" Array3(6) = "ستة" Array3(7) = "سبعة" Array3(8) = "ثمانية" Array3(9) = "تسعة" GetNumber = Format(Number, "000000000000.00") I = 0 Do While I < 15 If I < 12 Then MyNumber = Mid$(GetNumber, I + 1, 3) Else MyNumber = "0" + Mid$(GetNumber, I + 2, 2) End If If (Mid$(MyNumber, 1, 3)) > 0 Then ReadNumber = Mid$(MyNumber, 1, 1) My100 = Array1(ReadNumber) ReadNumber = Mid$(MyNumber, 3, 1) My1 = Array3(ReadNumber) ReadNumber = Mid$(MyNumber, 2, 1) My10 = Array2(ReadNumber) If Mid$(MyNumber, 2, 2) = 11 Then My11 = "إحدى عشرة" If Mid$(MyNumber, 2, 2) = 12 Then My12 = "إثنى عشرة" If Mid$(MyNumber, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNumber, 1, 1)) > 0) And ((Mid$(MyNumber, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNumber, 3, 1)) > 0) And ((Mid$(MyNumber, 2, 1)) > 1) Then My1 = My1 + MyAnd GetText = My100 + My1 + My10 If ((Mid$(MyNumber, 3, 1)) = 1) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My11 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My11 End If If ((Mid$(MyNumber, 3, 1)) = 2) And ((Mid$(MyNumber, 2, 1)) = 1) Then GetText = My100 + My12 If ((Mid$(MyNumber, 1, 1)) = 0) Then GetText = My12 End If If (I = 0) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Billion = GetText + " مليار" Else Billion = GetText + " مليارات" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليار" If ((Mid$(MyNumber, 1, 3)) = 2) Then Billion = " مليارن" End If End If If (I = 3) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Million = GetText + " مليون" Else Million = GetText + " ملايين" If ((Mid$(MyNumber, 1, 3)) = 1) Then Million = " مليون" If ((Mid$(MyNumber, 1, 3)) = 2) Then Million = " مليونان" End If End If If (I = 6) And (GetText <> "") Then If ((Mid$(MyNumber, 1, 3)) > 10) Then Thousand = GetText + " ألف" Else Thousand = GetText + " ألاف" If ((Mid$(MyNumber, 3, 1)) = 1) Then Thousand = " ألف" If ((Mid$(MyNumber, 3, 1)) = 2) Then Thousand = " ألفان" End If End If If (I = 9) And (GetText <> "") Then Hundred = GetText If (I = 12) And (GetText <> "") Then Fraction = GetText End If I = I + 3 Loop If (Billion <> "") Then If (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then Billion = Billion + MyAnd End If If (Million <> "") Then If (Thousand <> "") Or (Hundred <> "") Then Million = Million + MyAnd End If If (Thousand <> "") Then If (Hundred <> "") Then Thousand = Thousand + MyAnd End If If Fraction <> "" Then If (Billion <> "") Or (Million <> "") Or (Thousand <> "") Or (Hundred <> "") Then NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency + MyAnd + Fraction + " " + SubCurrency Else NumberToText = ReMark + Fraction + " " + SubCurrency End If Else NumberToText = ReMark + Billion + Million + Thousand + Hundred + " " + MainCurrency End If End Function  

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

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

انتبه من فضلك فقد نبهنا كثيراً على هذه المشكلة وتم تناولها  وشرحها بالمنتدى ... فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك ... تفضل
مشكلة في اللغة العربية

وعليكم السلام ... يعنى ايه ؟!!!
الملف مش موضح اى حاجة وفين الشهور الموجودة والنسبة المئوية من المبيعات ازاى ,, لابد من وجود طرفين لكى اتحصل على النسبة المئوية !!!
من فضلك حدد  شكل النتيجة المطلوبة فكيف يتم التوصل الى طلبك وكيف يتم المقارنة وما هى شروط وبنود المقارنة ؟!!! من فضلك طلبك ينقصه الكثير , أم هذا ما تطلبه وتريده
النسبة المئوية.xlsx

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

وعليكم السلام-جرب هذا الفيديو
أو جرب هذا الموقع
Microsoft Has Stopped Working
 

وعليكم السلام-جرب هذا الفيديو
أو جرب هذا الموقع
Microsoft Has Stopped Working
 

كان عليك استخدام خاصية البحث بالمنتدى - تفضل
كيفية كتابة الأس في إكسل
أو هذا الرابط
طريقة كتابة الأس في إكسل Excel
وهذا فيديو أيضاً للتوضيح
 
 

تفضل- هذا الفيديو به طلبك
 
 

طبعاً وبالتأكيد لا يمكن عمل هذه المعادلة فى الإصدار القديم فهى غير متوفرة الا بالإصدارات الحديثة بداية من 2016 وشكراً جزيلاً
على الرغم انك لم تقم برفع الملف تجنباص لإهدار الوقت وحيث انه لا يمكن العمل على التخمين فحاول استخدام المعادلة هكذا
=IFERROR(VLOOKUP($A1040;القسم!$A$4:$N$1200;6;0);VLOOKUP($C1040;بيانات!$A$2:$I$990;7;0))  

وعليكم السلام وبما انك لم تقم برفع ملف موضح به كل المطلوب فبذلك يمكنك استخدام وطلب البرنامج المشروح بالفيديو بمقابل مادى
 
 

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

وعليكم السلام-تفضل كل هذه برامج مهمة جداً وستفيدك
مخازن وبيع.xls 1067967013_.xls.xlsx sales المشتريات و المبيعات.xls

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

على الرغم اننى غير مقتنع بالنتيجة التى تريدها فهى منطقياً وعقلياً غير صحيحة نهائياً ... ولكن كما تريد يمكنك جعل المعادلة هكذا
=DATEDIF(C2,C3,"d")+1 الفرق بين تاريخين.xlsx

أخى الكريم هذه ليست مشكلة وبما انك لم تقم برفع ملف للمطلوب ... فيمكنك حلها ببساطة بنفسك , فعليك اولاً بالضغط على Update من الرسالة الأولى والضغط على Contine من الرسالة الثانية وشكراً

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

وعليكم السلام ... لا يمكن العمل على التخمين !!!!!!!
من فضلك ارفع ما توصلت اليه من الملفات
أو عليك بتحميل هذا البرنامج .... بمقابل مادى
SysTools Excel to vCard Converter
وهذا فيديو لشرح الموضوع بطريقة أخرى وهناك برنامج أيضاً أسفل الفيديو يمكنك تحميله
تحويل إكسل إلى جهات الاتصال
 

وعليكم السلام-اجعل دائما تنسيق الخلايا كنص أى Text ..... حتى تستطيع كتابة ما تريد

وعليكم السلام-طبعاً لا يمكن ذلك

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

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

تفضل -تم فتح الملف لكنه فارغ وخالى تماماً من البيانات
 
أرصدة العملاء.xls

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