اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو عبد الرحمن سعيد

06 عضو ماسي
  • Posts

    2,199
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    5

Community Answers

  1. أبو عبد الرحمن سعيد's post in استقطاع قيمة بشرط was marked as the answer   
    هذه المعادلة لكنها طويلة جدا
    =IF(MONTH(A2)>=MONTH($B$2);IF(C2>(DATEDIF(B2;A2;"ym")+1)*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2)>0;C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);""));"") وعليه إقترحت صياغة دالة معرفة إن أمكن ذلك **** أرجو الإفادة وجزاكم الله خيرا
  2. أبو عبد الرحمن سعيد's post in برنامج حساب ضريبة كسب العمل was marked as the answer   
    اخى العزيز الفاضل الاستاذ // مجدى 
    السلام عليكم ورحمته الله وبركاته
    والله شيىء يشرف وهذا ماعهدناه من
    المديرية الماليه بسوهاج .... لم اقم الا بتحميل البرنامج
    وقرأة المرفق فقط ولحين الاطلاع اليك اولى الملاحظات
    بشأن الفقرة الاخيرة من المادة رقم 13 تم تعديلها
    بالقانون رقم 53 لسنة 2014 اعتبارا من اول يوليو 2014 ونصها
    يشترط لتطبيق الاعفاء المنصوص عليه فى البندين 3 و 4  الا يزيد جملة مايعفى للممول
    على 15% من صافى الايراد أوعشرة ألاف جنيها  ايهما اقل " بدلا من 3000 جنيها " الى أخر نص الماده
    أرجو بأن لاأكون متطفلا ولكن أحببت التنويه
    حتى يمكن لسيادتكم التعديل بالمرفق المشفوع بالبرنامج
    جزاكم الله خير وبارك فيكم ورزقكم وايانا من حيث لانحتسب
  3. أبو عبد الرحمن سعيد's post in طلب! كيفية اضافة و اظهار صوره من الفورم was marked as the answer   
    أخى فى الله
    الاستاذ الفاضل القدير // محمود الشريف
    السلام عليكم ورحمته الله وبركاته
    بعد إذن حضرتك وإثراءا للموضوع
    المرفقين التاليين الاول يحتوى
    على ملف إكسل خارج مجلد الصور
    وهو عبارة عن استعلام من خلال الرقم القومى
    الثانى عبارة عن إدراك صورة وحذفها من خلال الجهازالخاص بكم
    والشكر موصول لاخى الفاضل الاستاذ // ايمن جبارة
    ارجو ان يكون فيه النفع
    وجزاكم الله خيراوبارك فيكم
  4. أبو عبد الرحمن سعيد's post in منع تغيير اسم الملف was marked as the answer   
    الاستاذ العزيز الفاضل // احمد ابو زيزو
    السلام عليكم ورحمته الله وبركاته
    بداية ... أسأل الله تعالى أن تكون بكامل الصحة
    ثانيا .... نرجو الافاده والتجربه
    أولاً يجب على سيادتكم تحديد أسم الملف الذي تريد تثبيت أسمه في اول الكود
    كما بالمثال   "zizo_Xl"
    تقبل وافر احترامى وتقديرى
    وجزاكم الله خيرا
    Private Const Nm_Fil As String = "zizo_Xl" Option Explicit '====================================================== Private Const Nm_Fil As String = "zizo_Xl" Sub auto_open() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ If Nm_Fil <> ThisWorkbook.Name Then '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ NewName = MyPath & Nm_Fil & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله" End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End If End Sub
  5. أبو عبد الرحمن سعيد's post in فصل الاسماء عن الارقام was marked as the answer   
    بسم الله الرحمن الرحيم
    يا أيها الناس إنا خلقناكم من ذكروأنثى وجعلناكم شعوبا وقبائل لتعارفوا إن أكرمكم عند الله أتقاكم إن الله عليم خبير
    صدق الله العظيم
    أخى الكريم
    بداية جزاكم الله خيرا
    دعوة كريمة لكل أخ فاضل ولكل أخت كريمة
    بتغيرالإسم للغة العربية
     حتى يكون هناك تواصل
    واليك أخى فى الله ماطلبت
    نسألكم الدعاء
    وجزاكم الله تعالى خيرا
×
×
  • اضف...

Important Information