amenbkr

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

اخي سليم في العمود a لاضافة البيانات جميعها ولكل المراكز حسب وردوها ويمكن ان تتكرر عمليات التسجيل للمركز بكثرة في الشهر منهم فواتير ومنها رواتب ثم تاتي عملية الفرز لكل مركز على حدا ويمكن ان تفرز ايضا بالاضافة للمراكز وفق نوعها ( رواتب - فواتير ) أو بحسب الشهر

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

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

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

السلام عليكم اخواني الكرام لدي جدول لمراكز صحية المطلوب فيه 1- عندما اسجل اسم المركز تظهر باقي البيانات بشكل تلقائي من رمزالمشروع واسم الداعم وموقع المشروع 2- عند طلب كشف عن مركز معين تظهر كافة بياناته وكافة العمليات المتعلقة به ولكم جزيل الشكر اخوتي expenses.rar

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

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

السلام عليكم شكرا لك اخ ياسر وهذا الملف مرفق معدل التسمية وشكرا لكم على المساعدة لك ولكل اعضاء هذا المندى الرائع 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