amenbkr

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

السلام عليكم شكرا لك اخ ياسر وهذا الملف مرفق معدل التسمية وشكرا لكم على المساعدة لك ولكل اعضاء هذا المندى الرائع Revenues and Expenses.rar

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

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

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

الرجاء من الاخوة المساعدة

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

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

المساعدة ياشباب

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

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

اخي الكريم هذا كود للتفقيط بالعربي Function tafket(Number, Curncey, txtdec) Dim dec As Currency If Not IsNumeric(Number) Or Number = "" Or Len(Int(Number)) > 10 Then Exit Function 'If Len(Int(Number)) > 10 Then MsgBox "max 10 numbers": Exit Function dec = Number - Int(Val(Number)) ST = Trim(Str(Int(Number))) xol = Len(ST) wa = " و " vn = Val(ST) Select Case xol Case 1 ct = AHAD(vn) Case 2 ct = ASHRAT(vn) Case 3 ct = MIAT(vn) Case 4 vn4 = Val(Mid(ST, 1, 1)) Select Case vn4 Case 1 ct = "ألف" Case 2 ct = "ألفين" Case Else ct = AHAD(vn4) & " آلاف " End Select vn4 = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn4 > 99, wa, "") & MIAT(vn4) Case 5 vn5 = Val(Mid(ST, 1, 2)) ct = IIf(vn5 = 10, ASHRAT(vn5) & " آلاف ", ASHRAT(vn5) & " ألف") vn5 = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn5 > 99, wa, "") & MIAT(vn5) Case 6 VN6 = Val(Mid(ST, 1, 3)) ct = MIAT(VN6) VN6 = Val(Mid(ST, 4, 3)) ct = ct & " ألف " & IIf(VN6 > 99, wa, "") & MIAT(VN6) Case 7 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "مليون " Case 2 ct = "مليونين " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " ملايين " End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ألف ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, "و", "") & MIAT(vn) Case 8 vn = Val(Mid(ST, 1, 2)) ct = ASHRAT(vn) & " مليون " ct = IIf(vn = 10, ASHRAT(vn) & " ملايين ", ct) vn = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ألف ", "") vn = Val(Mid(ST, 6, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 9 vn = Val(Mid(ST, 1, 3)) ct = MIAT(vn) & " مليون " vn = Val(Mid(ST, 4, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " الف ", "") vn = Val(Mid(ST, 7, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 10 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "مليار " Case 2 ct = "مليارين " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " مليار" End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " مليون ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " الف ", "") vn = Val(Mid(ST, 8, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) End Select ct = " فقط " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & txtdec, "") & " لاغير" If Val(Number) = 0 Then ct = "صفر" 'ct = "فقط " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & " " & CRNCY2, "") & " لاغير" tafket = ct End Function Function MIAT(NUM3) vn3 = Int(NUM3 / 100) Select Case vn3 Case 1 HARF3 = "مائة" Case 2 HARF3 = "مئتان" Case 3 To 9 HARF3 = AHAD(vn3) F = "ة" B = "" D = "ية" If vn3 = 8 Then HARF3 = Left(HARF3, Len(HARF3) - 2) & "مائة" Else HARF3 = Left(HARF3, Len(HARF3) - 1) & "مائة" End If Case Else HARF3 = "" End Select vn3 = NUM3 - vn3 * 100 If Val(Right(vn3, 1)) = 0 Then wa = " " Else: wa = " و " HARF3 = HARF3 & IIf(vn3 > 0, wa & IIf(vn3 < 10, AHAD(vn3), ASHRAT(vn3)), "") MIAT = HARF3 End Function Function ASHRAT(NUM2) wa = " و " vn2 = Int(NUM2 / 10) Select Case NUM2 Case 10 HARF2 = "عشرة" Case 11 HARF2 = "إحدى عشر" Case 12 HARF2 = "إثنى عشر" Case 13 To 19 HARF2 = IIf(NUM2 * (10 / 100) <> 0, AHAD(Right(NUM2, 1)) & " ", "") & " عشر" End Select Select Case vn2 Case 2 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)) & wa, "") & " عشرون" Case 3 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)) & wa, "") & " ثلاثون" Case 4 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " أربعون" Case 5 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " خمسون" Case 6 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " ستون" Case 7 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " سبعون" Case 8 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " ثمانون" Case 9 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " تسعون" End Select ASHRAT = HARF2 End Function Function AHAD(num1) Select Case num1 Case 0 harf1 = "" Case 1 harf1 = "واحد" Case 2 harf1 = "إثنان" Case 3 harf1 = "ثلاثة" Case 4 harf1 = "أربعة" Case 5 harf1 = "خمسة" Case 6 harf1 = "ستة" Case 7 harf1 = "سبعة" Case 8 harf1 = "ثمانية" Case 9 harf1 = "تسعة" End Select AHAD = harf1 End Function

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

شكرا لك اخي الكريك ولكن هل هناك طريقة اخرة بان عدد الزبائن تظهر على الشاشة فقط ولا يتم طباعتها بدون تحديد الطباعة

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

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

شكرا اخي على هذا البرنامج ولكن لم يفتح عندي يطلب تديث الى 64 بت ما الحل اخي خطا1.rar

الاخ صلاح الدين الايصالات المطلوب طباعتها عدد كبير وانا ارفقت بالمرفق ثلاثة اسماء والملف الحقيقي يصل العدد الى اكثر من مائة ايصال المطلوب هو طباعة الايصالات بالقيم المتغيرة لكل ايصال والطباعة بدلا من طباعتها بالطابعة تكون ملف pdf

شكرا لك اخي الكريم ولكن الذي احتاجه انا هو ان لدي نموذج ايصالات وتغير البيانات بالايصال وفق الجدول المرفق بحيث اقوم بطباعة كل الايصالات الشهرية دفعة واحدة بصيغة pdf صفحة واحدة ، انا حاليا احدد بيانات كل ايصال واقوم بطباعتها بصيغة pdf ليتم الحفظ وبعد الانتهاء من كافة الايصالات اقوم بتجميع كافة الايصالات بملف واحد المطلوب اجراء يحفظ كل الايصالات بملف pdf واحد أرجو ان يكون شرحي معبرا عن مشكلتي ولكم جزيل الشكر

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

شكرا اخي على المساعدة وجزاكم الله خيرا

شكرا اخي على المساعدة

الاخ ياسر لك كل الشكر على المساعدة وللاخوة بالمنتدى وللقائمين على المنتدى الرائع ولكن عندما طبقت التعديلات على ملف اخر لم ينجح ارجو المساعدة PV EXECEL ok.rar

اخواني الكرام لدي ايصال دفع عند تحديد اسم المستلم من القائمة يكون مربوط مع رقم الايصال والمبلغ والمذكورين في الجدول المرفق ارجو المساعدة ايصال دفع.rar

الاخوة الكرام لدي الدالة التالية =IF(TEXT($C15,"[$-809]ddd;@")="fri","0:00","17:00") وهي ان كان اليوم في الجدول هو يوم الجمعة فستكون ساعة انتهاء الدوام 00.00 بدلا من 17.00 ولكن ان اردنا ان يكرر هذه العملية ليومين عطلة في الاسبوع كيف الحل الرجاء من الاخوة المساعدة ولكم جزيل الشكر