مهند محسن

كان عليك استخدام خاصية البحث بالمنتدى , فطلبك تكرر كثيراً هنا وشوف بنفسك : مساعدة في طباعة ملف اتوماتيكي كود طباعة

بسيطة وسهلة طبعاً غير بناءاً على الخلايا الموجود بالفعل البيانات بها وشكراً !!!! بمعنى ستصبح المعادلة هكذا , طبعاً بعد اذن استاذنا الكبير ابراهيم الحداد له منا كل الإحترام وبارك الله فىه =IF(COUNTIF($B2:$L2,"دون المستوي")=0,"منقول للصف السادس ",IF(B2="دون المستوي",$B$1&" - "&IF(E2="دون المستوي",$E$1&" - "&IF(G2="دون المستوي",$G$1&" - "&IF(J2="دون المستوي",$J$1&" - "&IF(K2="دون المستوي",$K$1&" - "&IF(L2="دون المستوي",$L$1,""))))))) test1.xlsx

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

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

لا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة !!!! عليك برفع الملف على موقع خارجى طالما حجمه كبير .. مثل https://www.mediafire.com/ فلا يمكن العمل على التخمين ولا على الصورة وتجنباً لإهدار وقت الأساتذة دون جدوى او أهمية !!!

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

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

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

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

أخى الكريم المعادلة عادية وليست مصفوفة أى معادلة بسيطة وخفيفة ولا ترهقك .. فبالتالى ليس هناك داعى لعمل كود لها وهذا غير مهم.. ولكن اذا كنت تريد الكود فيجب استخدام هذا وتطويعه لما تريد Sub Ceiling() Range("B1") = Application.WorksheetFunction.Ceiling(Range("A1"), 1) End Sub ceiling 1.xlsm

بسيطة جداً a.kawkab .. كل ما عليك تغيير Private Declare Function بهذا الموديول ModuleRibbon الى Private Declare PtrSafe Function Ahmed Saad 2017 .. المشكلة من عندك انت فالكود يعمل تمام وليس به أى مشكلة The-Magic-Form.rar

وعليكم السلام .. هذا ممنوع بمنتدانا فهذا يعتبر حق ملكية فكرية لصاحبه فقط ... فعليك بالإتصال مباشرة بصاحب ومؤلف هذا العمل .. وشكراً جزيلاً !!!

وكيف تستعجلين الرد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ... وهذا أدنى شيء بالمنتدى لنجاح أى مشاركة ؟!!!

اخى الكريم هذه هى المعادلة بالفعل الصحيحة فغير منطقى ان يصل بها الشهور الى 12 شهر لأنه سيتحول تلقائى الى السنة ونفس الحال بالنسبى لعدد الأيام فلا يصل أبداً الى 30 يوم لأنه سيتحول تلقائياً الى الشهر ... وشكراًُ =(YEAR(C3)-YEAR(B3))+(MONTH(C3)-MONTH(B3))/12+(DAY(C3)-DAY(B3))/365 تحليل1.xlsx

انتبه من فضلك استاذ بلانك .... فالكود يعمل بكل كفاءة أعتقد المشكلة عندك انت ... بارك الله فيك استاذ عمر الحسينى كود رائع جعله الله فى ميزان حسناتك

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

وعليكم السلام-انتبه من فضلك فقد تكرر طلبك كثيراً بالمنتدى , وكان عليك استخدام خاصية البحث بالمنتدى تفضل : كود ارسال رسائل من اكسل الى الواتس للمجموعات

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

بارك الله فيك استاذ ابراهيم معادلة ممتازة جعله الله فى ميزان حسناتك anatshih .... انتبه من فضلك فهذه ليست معادلة عادية ولكنها معادلة مصفوفة فلابد الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات .. وشكرا

وعليكم السلام ... لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ... وذلك تجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية !!!

مشاركة غير مكتملة نهائيا ... لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ... وذلك تجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية !!!

على الرغم انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب ... وكما تعلم والجميع يعلم ان هذا بدوره يؤدى الى اهدار وقت كل من يطلع على مشاركتك دون جدوى ,, فسأجيبك أيضا بدون ملف .. هذا هو الكود المطلوب 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

بسيطة وذلك لأن نظام الكمبيوتر لديك 64بت وهذا الكود لا يعمل الا على 32 بت .... وشكراً

لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!

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