bin7shr

اللي حصل معاك في التقويم الميلادي اعتقد لانه يعتمد علي المكتبه لذالك وضعت عدة نسخ ولك انا الان خلصت من عمل التقويم الميلادي ولا يحتاج لمكتبة سوفا رفق الملف بعد قليل مرفق الملف تم إضافة التقويم الميلادي لا يحتاج لمكتبة الوندوز التقويم الهجري2.rar

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

طريقة ممتازة أزادك الله من فضلة

عمل مميز بارك الله في علمك

بارك الله فيك أخي أنس مجعود تشكر عليه جعله الله في ميزان حسناتك

أحذف الافيس ونصبة من جديد بعد إعادة التشغيل

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

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

تفضل أخي الملف جرب واعطي ردك طلب صرف2.rar

شاكر لك مرورك أخي مصطفى وإن شاء الله الفور يلبي احتياجاتك انت صاحب الفكرة فلك الشكر والتقدير

عزيزي استخدم الدالة ROUND في ناتج او الخلية الهدف =ROUND(I6;0)

أرفق المثال أخي حتى نتمكن من حل المشكله

عزيزي مصطفى لقد تم إظافة تعديل على اليوزرفورم وإظافة إظهار حسب التحديد من الكمبو بكس تجده على الرابط التالي

اقدم لكم اليوم يوزرفورم إخفاء وإظهار الأعمدة من خلال كمبوبكس أرجو أن ينال إعجابكم فورم أخفاء وإظهار الأعمدة.rar

أخي العزيز من الافضل لك أن تحذف نسخة الافس 64 بت وتنصيب آخرى 32بت قد ممرت بهذي التجربة قبل عامين ووجت أن يلزمك تعديل في الكود لكل عمل قمت به سابقا غير أن نظام 64بت لا يدعم كثير من المكتبات والاضافات الآخرى وقد لا تعمل معضمها نظام الـ 64 بت للافس لا يتميز الا بأستخدام الذاكرة بشكل اكبر وغير محدود وهذا سلاح ذو حدين لان يجب تحديد استخدام الذاكرة في الملفات الكبيره لكي لا يحصل تجمد نظام الوندوز في حالة تجاوزت الذاكرة المدعومه في جهازك وانا لا اشجع استخدام نظام الافس 64بت خلال السنوات الثلاث القادمة حتى يتم دعمه بشكل كامل من منتجي الاضافات والمكتبات المختلفه هذا مجرد راي ولست مجبر عليه Declare Function يمكنك إضافة PtrSafe لحل المشكلة Declare PtrSafe Function كما يمكنك زيارة الموقع هذا امزيد من المعلومات https://msdn.microsoft.com/en-us/library/ee691831(office.14).aspx Declare PtrSafe Function

حرك الصفحة بتجاه اليسار سوف تجد عمود به محتويات الكمبوبكس يمكنك التعديل والاضافه وسوف يظهر التعديل في الكمبوبكس فورا

تفضل أخي الملف بعد التعديل فورم إخفاء وإظهار الاعمدة حسب طلبك جدول الدروس.rar

تفضل أخي الملف بعد التعديل جدول الدروس.rar

اقدم لكم اليوم مديول أو دالة التفقيط تحويل الارقام لـ نص بالسالب والموجب (مدين - دائن) استخدام الدالة بالتنسيق التالي: صورة: =NoToTxt(O279;"ريالاً لاغير";"هللة") Option Explicit 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 NoToTxt.rar

صورة الفورم

السلام عليكم ورحمة الله بركاته اقدم لكم اليوم مشاركة متواضعة عبارة عن يوزر فور لتحويل التاريخ من ميلادي لهجري والعكس مع امكانية إدارج التاريخ في الخلية النشطة أرجو أن ينال هذا العمل أستحسانكم محول التاريخ.rar