mk_mk_79

السلام عليكم ورحمة الله وبركات لدى ملف اكسل يحتوى على أعمدة من ضمنها عامود يحتوى على ارقام هذا العامود به ارقام مكررة بس متفرقة . عايز كود يظلل المكرر وكمان يرتب المكرر تحت بعضها . يعنى مثلا رقم 101 ده مكرر مرتين ثلاثة . عايزه الكود يظللها وكمان يحطهم تحت بعض

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 عايز اعكس الكود ده

السادة أعضاء المنتدى الكرام كنت عايز كود يقوم بتحويل المبالغ المفقطه بحروف الى ارقام مثل الخلية A1 تحتوى على قيمة خمسة آلاف ومائتان جنيها وخمسة وعشرون قرشا المطلوب انه يظهر فى الخلية A2 قيمة 5200.25

اخى العزيز محمد هشام . دائما تبهرنى باكوادك هو هذا الذى اريده تماما . بس فى تعديل بسيط عايزه فى الزراعة يكتب الفدان الاول والقيراط ثانيا والسهم ثالثا لتصبح 3 فدان و21 قيراط و 3 سهم

لا حضرتك مش هو المطلوب المطلوب ان فى خانة المبانى لو مكتوب قيمة فى عمود المبانى مثلا 420.5 تكتب فى عامود المساحة 420.50 م2 ولو فى عامود الزراعة مكتوب فى خانة الفدان 6 وخانة القيراط 3 وخانة السهم 2 تكتب فى المساحة 6 فدان و3قيراط و2سهم

السلام عليكم جميعا اعضاء المنتدى الرجاء تفريغ المساحة كما موضح بالخلية المظللة باللون الاصفر كما هو موضح بالملف المرفق علما بأن الملف يحتوى على 40000 خلية مساحة.xlsx

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

كود ترحيل مراكز وترحيل كل مركز الى شيت منفصل مع ترحيل الجدول بالكامل ترحيل 1 الى شيتات منفصلة.xlsx

استاذ / محمد هشام . الف مليون شكر على تعب حضرتك

الاستاذ / محمد هشام اولا انا بشكر حضرتك على مساعدتك ليا . وربنا يجعله فى ميزان حسناتك . هو ده فعلا اللى انا عاوزة . بس كنت عايز تعديل بسيط فى الكود عشان يكمل فى باقى الصفوف . انا عايزه يبقى قدام كل صف مش الصف الاول بس من كل جدول . الملف المرفق يمكن يوضح كلامى وشاكر مقدما تعب حضرتك . ومهما قولت من كلام شكر مش ممكن يوفيك حقك طلبات.xls

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

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

أ / محمد صالح يا ريت توضيح لأنى مش فاهم تعليق حضرتك

مساعدة فى عمل كود VBA أو معادلة لتفقيط مساحات زراعية طبقا للملف المرفق وكذلك التفقيط المذكور بملف الاكسيل تفقط مساحات زراعية.xlsx

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

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

تفقيط-مساحة.xlsxالرجاء المساعدة فى عمل كود vba للمطلوب بالملف المرفق

الاستاذ العزيز Ali Mohamed Ali اولا شكرا لحضرتك على سرعة الرد . بس حضرتك ليس هذا ما اريد . يا ريت حضرتك تحمل الملف وانا شارح فيه انا عايز ايه بالظبط

السلام عليكم اخوتى الكرام مبدعين الاكسيل الرجاء المساعدة فى كود لتفقيط المساحات كما بالملف المرفق وشكرا لكم تفقيط مساحة.xlsx

الرجاء من خبراء الاكسيل بالمنتدي حل مشكلة الكود . انا محتاجه ضروري

اولا اشكرك علي الرد . الملف ممتاز وهذا ما اريده بالضبط . بس لو ممكن نشيل ( 5 ) اللي بتتكتب دي . انا عايز الرقم زي المثل الده بالضبط عند كتابة 150.5 تكتب مائة وخمسون درجة ونصف في الملف اللي حضرتك بعته عند كتابة 150.5 تكتب هكذا فقط مائة وخمسون درجةاً و (5) نصف درجة تفقيط درجات .rar

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

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

الرابط الموجود بالاعلي لا يعمل الرجاء اعادة رفع البرنامج

الأخوة الاعضاء الكرام السلام عليكم ورحمة الله وبركاته أرجو من حضراتكم الساعدة في كيقية الجمع بين دالة if ودالة round في معادلة واحدة فمثلاً أريد أن أضرب عدد معين في نسبة معينة اذا توافر شرط النسبة مع تفريب الناتج لأقرب جزء من مائة مثال معلم = 75% معلم أول = 50 % الأساسي = 323.56 اريد ضرب الأساسي في أي نسبة طبقاً للمسمي فاذا كان معلم أضرب الاساسي في 75 % وإذا كان معلم أول أضرب الاساسي في 50 % مع تقريب الناتج باستخدام دالة round