اذهب الي المحتوي
أوفيسنا

أبو العاصم

03 عضو مميز
  • Posts

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

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

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

  1. السلام عليكم ورحمة الله وبركاته
    الملف المرفق عبارة عن دليل للحسابات ومرفق معه نموذج قيد يومية
    وهذا النموذج به كود لجلب البيانات من الدليل حسب الرمز الموجود فى الدليل
    ولى عليه عدة طلبات إن إتسع وقت المساعدين المتطوعين فى هذا الصرح وهى
    1- فى العامود F أطلب كود يقوم بعمل ترقيم تسلسلى كلما قمت بعمل فلتر حسب رقم القيد لترتيب الحركات دخل القيد
    كود يحل محل المعادلة الموجودة فى العامود
    2- فىالعامود E عامود الرمز لا يستجيب إلا عند كتابة الرمز أما عند النسخ بـ (paste values ) أو ( ctrl +d)
    لا يقوم بالبحث عن الحساب إلا بعد عمل F2+enter للخلية والمطلوب تعديل ذلك بحيث يقرأ بمجرد لصق الاختصار
    وهناك بعض الأسئلة بعد إنجاز المطلوب بارك الله فيكم
    كلمة سر الـ VBA 123
    والسلام عليكم ورحمة الله وبركاته

    نموذج قيد يومية.rar

  2. السلام عليكم ورحمة الله

    أخى العزيز ياسر

    جزاك الله خيرا

    والله إنى لأعتذر عن عدم توضيح المطلوب السابق وكبدتك مزيدا من الوقت 

    إقبل أسفى على ذلك

    المطلوب ليس فى صفحات الاكسيل وانما فى صفحات الطباعة

    فإذا كان محتوى الخلية الأولى A1 = on

    يكون نطاق الطباعة هو A3:M15 فى صفحة طباعة رقم 1

    فإذا كان محتوى الخلية الأولى A1 = off يكون نطاق الطباعة هو A3:M30

    بحيث المدى  A3:M15 فى صفحة الطباعة رقم 1 

    والمــــــــدى A16:M30 فى صفحة الطباعة رقم 2

    تقبل إعتذارى ثانيا وجزاك الله خيرا على ما تقدم

  3. لا يا سيد هانى

    مفى للتسجيل

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

    وفى المنصرف كميات واسعار

    واطلب الرصيد كميات واسعار

    انا دخلت 3 حركات وارد و 3 منصرف 

    الرجاء التعديل ليشمل حركات الاصناف

    اذا وضعت صنف يعطينى رصيده فاذا ادخلت وارد او منصرف يحرك رصيده 

    mwa 

  4. السلام عليكم ورحمة الله
    فى الملف المرفق ( خزينة ) كود مركب يقوم بعمل تسلسل تلقائى مع الفلتر 
    ويقوم أيضا بعمل ترصيد المطلوب تعديله أو الاستفسار عن الخلل به
    هو جزء التسلسل فى العمود A حيث يقوم بعمل التسلسل مع الفلتر 
    فأحيانيا يعطى التسلسل تلقائى وأحيانا يضع معادلة للتسلسل
    ومع الكود فى حدث الصفحة يوجد الموديل التالى  
     
    Sub Macro1()
    '
    ' Macro1 ãÇßÑæ
    '
     
    '
        ActiveCell.FormulaR1C1 = _
            "=IF(AND(RC[-2]="""",RC[-1]=""""),"""",SUM(R9C[-2]:RC[-2])-SUM(R9C[-1]:RC[-1]))"
    End Sub
    فهل هو المسؤل عن إدراج المعادلة
    الذى أتمناه هو تعديل على الكود ليقوم بالتسلسل مع الفلتر بدون هذا الخلل
    ويضع أرقاما وليس معادلات 
    وأحيانا أخرى تؤثر تلك المشكلة على الجزء الخاص بالرصيد
    لذلك قمت بإرفاق ملف أخر( ترصيد )  به كود الترصيد بتسلسل تلقائى لكنه بحاجة لتعديل ليسلسل مع الفلترة
    فإما تعديل الخلل فى الملف الاول
    أو تعديل جزء تسلسل مع الفلتر فى الملف الثانى
    وبوركتم جميعا على غرة رجب

    خزينة.rar

    ترصيد#1.rar

  5. الأخ العزيز ياسرخليل

    جزاك الله خيرا

    تفضل الأخ الكريم أبو عيد بتعديل كود الرصيد ( اللى هو رصيد سابق + مدين - دائن )

    وهذه الخطوة قد انتهينا منها والحمد لله

    المطلوب الثانى اريد إضافة كود فى حدث الصفحة مع كود الرصيد

    يقوم بعمل تسلسل تلقائى للعمود A كلما قمت بالتصفية يقوم بتغيير التسلسل

    كود التسلسل مرفق فى الصفحة الثانية

    المطلوب تعديل الكود الأول ودمج معه الكود الثانى

    أو ما يقوم بنفس غرضه من أكواد الفيجوال

    وجزاك الله خيرا أخ ياسر خليل

     

     

    ترصيد#1_4.rar

×
×
  • اضف...

Important Information