الحضرمي2017

لو تكرم احد الاخوة في شرح كيفية اضافة مثل هذا الكود الى الاكسل

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

تفضل أخي الحبيب فقد اضفت الكود لك والعفو على التاخير 1_1.rar

خلاص بحمد لله تم حل المشكلة الثانية ولله الحمد والمنة =TEXT(NOW();"b2YYYY")&"هـ" وهذه دالة السنة الميلادية الحالية =TEXT(NOW();"YYYY")&"م"

الحمد لله لقيت دالة تقوم بادراج السنة الهجرية الحالية وهي =TEXT(NOW();"b2YYYY") بقية اشكالية وهي اضافة حرف الهاء بعد السنة هل لاهل الخبرة افادتي اريد الاكسل يعطيني 1439هـ

السلام عليكم ورحمة الله وبركاته حياكم الله وبياكم وقواكم على طاعته اخوتي في الله هل هناك دالة تضيف السنة الهجرية فقط لا أريد كامل التاريخ الهجري فقط السنة الهجرية مثل ما تفعل هذه الدالة =YEAR(NOW()) لكن هذه تضيف 2017 يعني سنة ميلادية أنا ابغا اضيف سنة هجرية

جزاك الله خير الجزاء اللهم يسر أمره ووسع رزقه واعنه على طاعتك وخدمة عبادك

استاذي الفاضل انا ابديت اعجابي بالدالة التي وضعتها وكتبت موضوع طالبا فيه المساعدة في اكمال دالة التفقيط التي كتبتها أنت وقلت فيه أني وجدتها أفضل دالة والله لتطابقها مع القواعد ولسهولة كتابتها في خلايا الاكسل فأغلب الدوال تكتب فيها عدت شروط وبالنسبة لما قمت به من جعل الدالة تقرأ من النت فهذا قمت الابداع والتألق فجزاك الله خير الجزاء لكن يعلم الله أنني بحاجة للكود لأن النت عندنا والكهرباء كذلك لا تسعفني في استخدام دالة التفقيط من الانترنت والقراءة من موقع التفقيط الذي أنشأته فهو صرح نادر خاصة إذا كان مصممه متقن لقواعد اللغة ومتقن للبرمجة بالصراحة والله أبهرني والله خاصة وأن التفقيط كان بالحركات المناسبة مثلا يقرأ العدد 33 ثلاثٌ وثلاثونَ درجةٌ فهذا قمت الابداع والله فلا حرمك الله الاجر وجعله في ميزان حسناتك

جزاك الله خير الجزاء أستاذي الفاضل هل لك أن تتكرم وتساعدني وتعدل على كود التفقيط الذي وضعتها أنت في أحد ردودك على أحد الاخوة وبالصراحة أعجبني جدا لسهولته وسهولة كتابة الدالة في خلايا الاكسل لكن المشكلة أنه لا يفقط إلا الى 999 وأنا محتاج إليه واريد التفقط لأكثر من 1200 درجة لأني استخدمه في ملف خاص بالثانوية لذا ارجو التكرم ومساعدتي بارك الله فيك وفي علمك ونفع بك الاسلام والمسلمين Function n2t(d As Double) As String m = Int(d / 100) h = Int(d / 10) - (m * 10) a = Int(d - (m * 100 + h * 10)) k = d - (m * 100 + h * 10 + a) n2t = num((m), 3) & IIf(m > 0 And (a > 0 Or h > 0), " و ", "") & num((a), 1) & IIf(a > 0 And h > 1, " و ", " ") & num((h), 2) n2t = Replace(n2t, "اثنتانِ عشرة", "اثنتا عشرة") n2t = Replace(n2t, "ثمانمائة", "ثمنمائة") n2t = Replace(n2t, "ثلاثمائة", "ثلثمائة") n2t = Replace(n2t, "و عشرة", "و عشر") n2t = IIf(n2t = " عشرة", "عشر", n2t) n2t = IIf(n2t = "مائتانِ ", "مائتا", n2t) n2t = "فقط " & n2t & IIf(h = 0 And a = 2, "درجتانِ", IIf((h = 1 And a = 0) Or ((h = 0 And a > 2)), " درجاتٍ", IIf(h = 0 And a = 0, " درجةٍ", " درجةً"))) & IIf(k > 0, " و نصفٌ", "") n2t = Replace(n2t, " ", " ") n2t = Replace(n2t, "إحدى درجةً", "درجةٌ") n2t = Replace(n2t, "اثنتانِ درجتانِ", "درجتانِ") End Function Function num(n As Integer, t As Integer) As String m = "مائة" h = "ونَ" Select Case n Case Is = 1 num = IIf(t = 3, m, IIf(t = 2, "عشرة", "إحدى")) Case Is = 2 num = IIf(t = 3, "مائتانِ", IIf(t = 2, "عشرونَ", "اثنتانِ")) Case Is >= 3 num = IIf(t = 3, nn(n) & m, IIf(t = 2, nn(n) & h, nn(n))) End Select End Function Function nn(n As Integer) As String Select Case n Case Is = 3 nn = "ثلاث" Case Is = 4 nn = "أربع" Case Is = 5 nn = "خمس" Case Is = 6 nn = "ست" Case Is = 7 nn = "سبع" Case Is = 8 nn = "ثمان" Case Is = 9 nn = "تسع" End Select End Function

لو تكرمتم ارجو المساعدة محتاجه ضروري ياريت احد يساعد لو تكرمتم

لو تكرمت اريد المساعدة

السلام عليكم ورحمة الله وبركاته ارجو التكرم ومساعدتي في زيادة تفقيط الدرجات لأكثر من الف في هذا الكود بالذات لأنه أعجبني لسهولته وسهولة كتابة الدالة أثناء التفقيط لكن ما يعيبه هو أنه لغاية 999 فقط وأنا اريد التفقيط لاكثر من 1200 درجة فياريت التكرم ومساعدتي بارك الله فيكم الملف هو هذا https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=45988

السلام عليكم ورحمة الله وبركاته كيف حالكم أخوتي الاحبة أسأل الله ان تكون بخير وعافية أنتم وجميع من تحبون لو تكرمتم اريد المساعدة في كود يعيد تسمية أي ملف اكسل الى تسمية أنا أحددها وياريت يكون ضبط مسار الملف بحيث يكون في نفس مجلد العمل نفسه سأضع صورة توضيحية لما اريد بالامس كنت أبحث في النت ووجدت هذا الكود Name "\*.xlsx" As "\1.xlsx" وهذه صورة توضيحيه لما اريده

جزاكم الله خير الجزاء إخوتي الأحبة والله استفدت منكم لا يحرمني الله منكم ومن عطائكم ورفع الله قدركم دنيا وآخرة كل شيء تمام التمام

أخي الحبيب قدرت على حل مشكلة التكرار لكن كيف لي ان ألغي رقم

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

لو تكرر يعطيني كتابة مثلا الثاني مكرر او الثالث مكرر

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