Ibrahim Ex

لا اله الا الله

استغفر الله العظيم واتوب اليه

سبحان الله العظيم

السلام عليكم انا طالب منكم خدمه الله يسعدكم كيف اسوي فواتير ويتم تفصيلها شهريا واتوماتيكي بالكميات الشهرية لاني تعبت وانا كل شهر افصل فاتورة فاتورة الملفات.zip

جزاك الله خير وبنسبه للبرنامج هذا نادر جدا لدرجه انو روابط التحميل مراكز الرفع قفلت :p

استاذي ابو القبطان يعني لا يوجد طريقه اخرى غير هذي الطريقه الي تعتبر بدائيه ؟َ

استاذ خالد انا اريد اضع صورة بحجم a4 كخلفية ثابتة واضع بالخلايا المتغيرة كالكمية والسعر فيها وعند الطباعة لا تظهر الصوره فقط الخلايا بدون الصورة واضحه فكرتي ولا ؟

اخي انت طريقتك تطبع لي الورقه مع الخالية التي تم اضافتها انا لا اريد كذا انا اريد اضع صورة بحجم a4 كخلفية ثابتة واضع بالخلايا المتغيرة كالكمية والسعر فيها وعند الطباعة لا تظهر الصوره فقط الخلايا بدون الصورة

ما جات على كامل الصفحه او علةى الصفحه الرئيسيه

up

السسلام عليكم اخواني الاعزاء اريد ان اضع خلفية للاكسل بحجم ورقة a4 فقط مثلا يوجد لدي ورقة عمل مروسه اريد ان اضعها خلفية لاحدد مكان الكتابه عليها ومن ثم التعديل عليها ثم اضع الورقة الرسميه بالطابعه وطباعتها بنفس الاماكن التي حددتها !! كيف :D

ابشرك زبط الله يسعدك كان عندي غلط في الكود شكرا لك مره اخرى وجزاك الله خير

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

اخى الفاضل جرب اجعل معادلتك هكذا =Horof(ROUND(J9,0)) تحياتي اخي الكريم المشكلة ما تغير شي

يا اخوان اريد التعديل على الداله بحيث انها تجبر النص مثلا يكون الرقم 54.5 تقراه خمسة واربعون ريال مو اربعة وخمسون ريال ونص واكون شاكر لكم

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

السلام عليكم عندي كود Public Function Horof(x) Ma = " ريال" Mi = " هللة" N = Int(x) B = Val(Right(Format(x, "000000000000.00"), 2)) R = SHorof(N) If R <> "" And B > 0 Then Result = "فقط" & " " & R & Ma & " و " & B & Mi & " " & "لا غير" If R <> "" And B = 0 Then Result = "فقط" & " " & R & Ma & " " & "لا غير" If R = "" And B <> 0 Then Result = "فقط" & " " & B & Mi & " " & "لا غير" Horof = Result End Function Private Function SHorof(x) N = Int(x) C = Format(N, "000000000000") c1 = Val(Mid(C, 12, 1)) Select Case c1 Case Is = 1: Letter1 = "واحد" Case Is = 2: Letter1 = "اثنان" Case Is = 3: Letter1 = "ثلاثة" Case Is = 4: Letter1 = "اربعة" Case Is = 5: Letter1 = "خمسة" Case Is = 6: Letter1 = "ستة" Case Is = 7: Letter1 = "سبعة" Case Is = 8: Letter1 = "ثمانية" Case Is = 9: Letter1 = "تسعة" End Select c2 = Val(Mid(C, 11, 1)) Select Case c2 Case Is = 1: Letter2 = "عشر" Case Is = 2: Letter2 = "عشرون" Case Is = 3: Letter2 = "ثلاثون" Case Is = 4: Letter2 = "اربعون" Case Is = 5: Letter2 = "خمسون" Case Is = 6: Letter2 = "ستون" Case Is = 7: Letter2 = "سبعون" Case Is = 8: Letter2 = "ثمانون" Case Is = 9: Letter2 = "تسعون" End Select If Letter1 <> "" And c2 > 1 Then Letter2 = Letter1 + " و" + Letter2 If Letter2 = "" Then Letter2 = Letter1 If c1 = 0 And c2 = 1 Then Letter2 = Letter2 + "ة" If c1 = 1 And c2 = 1 Then Letter2 = "احدى عشر" If c1 = 2 And c2 = 1 Then Letter2 = "اثنى عشر" If c1 > 2 And c2 = 1 Then Letter2 = Letter1 + " " + Letter2 c3 = Val(Mid(C, 10, 1)) Select Case c3 Case Is = 1: Letter3 = "مائة" Case Is = 2: Letter3 = "مئتان" Case Is > 2: Letter3 = Left(SHorof(c3), Len(SHorof(c3)) - 1) + "مائة" End Select If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2 If Letter3 = "" Then Letter3 = Letter2 C4 = Val(Mid(C, 7, 3)) Select Case C4 Case Is = 1: Letter4 = "الف" Case Is = 2: Letter4 = "الفان" Case 3 To 10: Letter4 = SHorof(C4) + " آلاف" Case Is > 10: Letter4 = SHorof(C4) + " الف" End Select If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3 If Letter4 = "" Then Letter4 = Letter3 C5 = Val(Mid(C, 4, 3)) Select Case C5 Case Is = 1: Letter5 = "مليون" Case Is = 2: Letter5 = "مليونان" Case 3 To 10: Letter5 = SHorof(C5) + " ملايين" Case Is > 10: Letter5 = SHorof(C5) + " مليون" End Select If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4 If Letter5 = "" Then Letter5 = Letter4 C6 = Val(Mid(C, 1, 3)) Select Case C6 Case Is = 1: Letter6 = "مليار" Case Is = 2: Letter6 = "ملياران" Case Is > 2: Letter6 = SHorof(C6) + " مليار" End Select If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5 If Letter6 = "" Then Letter6 = Letter5 SHorof = Letter6 End Function كيف اضيفها في جميع ملفات الاكسل لانها تشتغل بس بملف واحد ارجو مساعدتي فانا مبتدء اكسل 2013