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

أبو العاصم

03 عضو مميز
  • Posts

    474
  • تاريخ الانضمام

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

مشاركات المكتوبه بواسطه أبو العاصم

  1. أخى الكريم جزاك الله خيرا
    الكود يعمل وجيد جدا
    هل بالامكان تطبيق الكود على ملفى المرفق
    ولو تكرم وتدمج معه الكود الذي أرفقته أنا للقيام بالتسلسل
    ولو رأيت تعديلا علي كود التسلسل
    فلتتفضل انت وتضعه
  2. أخى الكريم جزاك الله خيرا
    الكود يعمل وجيد جدا
    هل بالامكان تطبيق الكود على ملفى المرفق
    ولو تكرم وتدمج معه الكود الذي أرفقته أنا للقيام بالتسلسل
    ولو رأيت تعديلا علي كود التسلسل
    فلتتفضل انت وتضعه

    ترصيد.rar

  3. أخى الكريم جزاك الله خيرا

    الكود يعمل وجيد جدا

    هل بالامكان تطبيق الكود على ملفى المرفق

    ولو تكرم وتدمج معه الكود الذي أرفقته أنا للقيام بالتسلسل

    ولو رأيت تعديلا علي كود التسلسل

    فلتتفضل انت وتضعه

  4. أخ عمرو طلبة

    جزيت خيرا 

    الكود يقوم بالمطلوب الاول

    وهو الترصيد فى عمود واحد

    لكنه لا يقوم بالمطلوب الثانى

    وهو إذا غيرت قيمة إدخال سابقة

    لايتغير كل الترصيد 

    بل تعطى نتائج مغلوطة

    وهذا يمثل خلل فى الكود

    لانه من طبيعة كشف حساب الخزينة وجود مبالغ معلقه وكذلك وجود أخطاء إدخال

    الرجاء التعاون للوصول للمطلوب 

  5. يا سيدى الفاضل

    المعادلة المطلوبة لحساب بطبيعته مدين

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

    وعلى فرضما تفضلت أنت به  فالترصيد يكون بالسالب لو الحساب قلب 

    ما هى دى طبيعة المعالجة

    ولكن أود إضافة الكود فى حدث الصفحة

    أى بمجرد تغيير قيمة قديمة يتغير معها القيم التى تليها فى خانة الرصيد بمجرد التعديل 

    بمجرد تعديل مدين أو دائن سابق يتغير كل خانات الرصيد 

    وأبحث عن هذا الكود منذ شهر 

    جزاك الله خيرا على التعاون

  6. السلام عليكم ورحمة الله الكود المرفق هو الكود الوحيد الذى إهتديت اليه لعمل الترصيد أطلب تعديل عليه بحيث يكون الرصيد فى عمود واحد فقط بحيث لو الصيد قلب سالب يدرج الرصيد بالسالب ولو فى الإمكان الوصول الى كود جديد يقوم بنفس الفكرة يغير كل أرقامه أتوماتيك بمجرد تغيير أى عمليه سابقه أكون شاكر جدا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E9:E20")) Is Nothing Then '--------------------------- If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False aa = Application.Sum(Range("E9:E20")) bb = Application.Sum(Range("F9:F20")) If aa - bb + [A9] > 0 Then Target.Offset(0, 2) = aa - bb + [A9] If aa - bb + [A9] < 0 Then Target.Offset(0, 3) = aa - bb + [A9] If aa - bb + [A9] = 0 Then Target.Offset(0, 2) = 0 Target.Offset(0, 3) = 0 End If End If If Not Intersect(Target, Range("F9:F20")) Is Nothing Then '--------------------------- If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False aa = Application.Sum(Range("E9:E20")) bb = Application.Sum(Range("F9:F20")) If aa - bb + [A9] > 0 Then Target.Offset(0, 1) = aa - bb + [A9] If aa - bb + [A9] < 0 Then Target.Offset(0, 2) = aa - bb + [A9] If aa - bb + [A9] = 0 Then Target.Offset(0, 1) = 0 Target.Offset(0, 2) = 0 End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub المرفق به الكود القديم وتعديلى عليه

    ترصيد.rar

  7. طلب كود فيجول فى حدث الصفحة يقوم بعملية الترصيد 

    فى العمود مثلا G

    كود يقوم بعملية ترصيد للعمودين E وهو الوارد F وهو النصرف

    يجمع الرصيد السابق فى الخلية مثلا G10 + الخلية E 11 - الخلية F11

    الرجاء المساعدة

     

×
×
  • اضف...

Important Information