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

الردود الموصى بها

قام بنشر

السلام عليكم

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

 

وأيضاً لو يتم تصنيف الشيت حسب نوع السند (حسب العمود G) فقط

 

مودتي ...

سندات الصرف.rar

قام بنشر

وعليكم السلام

الرجاء التوضيح أكثر يعني

لو أنك تقوم بإضافة الشيت الجديد وتقوم بتنسيقه وتضع فيه النتائج المتوقعة فيكون هذا أقرب لتوصيل مطلوبك

ثم بعد ذلك سيتم عمل الكود بناء على ما عملته

 

تحياتي

  • Like 1
  • 2 weeks later...
قام بنشر

أخي الكريم موريادي

صراحة ما زال المطلوب غير واضح حتى بعد إرفاق شكل التقرير المطلوب

ارفق ملف وضع به بعض البيانات في ورقة العمل Data و في ورقة التقرير اكتب النتائج المتوقعة ..

وهل الورقة المسماة Report هي مجرد Template يمكن العمل عليها أم أنها موجودة بالفعل وتريد فقط أن تغير البيانات فيها

وإذا كان الأمر تغيير البياانات فيها فيرجى ذكر الخلايا المطلوب تغييرها والنتائج المتوقعة في هذه الخلايا ..

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

وضح الأمر كما ينبغي لتجد الاستجابة الصحيحة كما ينبغي

تقبل تحياتي

 

قام بنشر

@ياسر خليل أبو البراء

الملف بشكل عام استخدمه لطباعة السندات المصروف بشكل يومي يتم ادخال البيانات في الشيت Data ويتم الترحيل البيانات المطلوبة في الشيت Recepit  عند اختيار رقم البند في الخلية C6 ويتم الطباعة !

 

الان اريد اضافة شيت حيث يتم كل شهر هجري عمل قائمة بالمصاريف المدخلة حسب الشهر وفيها المبلغ والتاريخ والبيان فقط بتوضيح آخر اريد نقل محتويات الشيت Data ذات الخلايا D,E,H الى الشيت Report ذات الخلايا A,B,C فقط

D=>A

E=>B

H=>C

الشيت Report هو الشكل الذي اريده وليس مجرد تصميم

قام بنشر

أكرر أخي الكريم ضع بعض البيانات في الورقة Data .. مع وضع مثال لنتيجة متوقعة في الورقة Report

الأمر ملتبس عليا في نقطة واحدة الآن : قلت في مشاركتك الأصلية أنك تريد إنشاء ورقة عمل جديدة لعمل التقرير ، والآن تقول أن الشيت Report هو الشكل الذي أريده أي أن الورقة موجودة .. حدد بالضبط هل ورقة العمل Report موجودة أم أنك تريد إنشاء ورقة عمل جديدة مثلها ، وفي تلك الحالة ما هي مواصفات ورقة العمل ما اسمها مثلاً (الورقة الجديدة المضافة)

 

أم أن العمل مجرد ترحيل للبيانات من ورقة Data إلى ورقة Report لخلايا محددة ... وأكرر في هذه الحالة نريد بعض النتائج المتوقعة حيث أن البيانات غير واضحة المعالم

أعتذر عن الإلحاح في توضيح الأمر ، لكن لابد لحل أي مشكلة أن تكون الأمور واضحة وضوح الشمس في كبد السماء

 

لم أرى مشاركتك إلا الآن ..يبدو أنك قمت بالمشاركة أثناء كتابة الرد من قبلي ..سأقوم بالإطلاع على المرفق وموافاتك بالنتيجة إن أمكن ..

قام بنشر

لا خلاص تم انشاء الورقة من قبلي واسمها Report في المشاركة 

2 دقائق مضت, موريادي said:

نسيت ارفق الملف بعد كتابة بعض البيانات

سندات الصرف.rar

تم اضافة البيانات وما اريد فقط المبلغ والتاريخ والبيان

قام بنشر

جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim Ws As Worksheet, Sh As Worksheet
    Dim Rng As Range, Lr As Long, Last As Long

    Set Ws = Sheets("Data"): Set Sh = Sheets("Report")
    Lr = WorksheetFunction.CountA(Ws.Columns(2))
    Last = Sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
        Set Rng = Union(Ws.Range("D2:E" & Lr), Ws.Range("H2:H" & Lr))
        Rng.Copy
        Sh.Range("A" & Last).PasteSpecial xlPasteValues
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

 

قام بنشر

أخي الكريم لابد من معرفة الأساسيات في التعامل مع محرر الأكواد ..اطلع على الموضوع التالي ستجد فيه الأساسيات والتي لابد من معرفتها وستجد الإجابة على تساؤلك

من هنا

  • Like 1
قام بنشر
32 دقائق مضت, موريادي said:

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

من أي خلية تقوم بتحديد الشهر المطلوب؟ وهل البيانات في الورقة Data ستكون جامعة لعدة شهور

أرجو وضع بيانات كافية لتوضيح المطلوب وللعمل على الملف ولتجربة الأكواد عليه

قام بنشر

اريد خلية منبثقة في شيت Data فيها الاشهر الهجربة والسنة بحيث الشهر الذي اختار فقط يتم ترحيله الى شيت Report

 

لان كما انت ذكرت شيت Data سيكون جامع لعدة شهور وتم ارفاق النسخة الي اعمل بها مع البيانات

سندات الصرف معدل.rar

قام بنشر

أخي الكريم موريادي

قمت بعمل أعمدة مساعدة في الورقة المسماة Report

عمود لإدراج الشهور الهجرية فيه .. وعمود لإدراج السنوات .. وفي الخلية I1 معادلة لمعرفة رقم الشهر الهجري ومقارنته أثناء عمل الكود

تقوم بالاختيار من القائمة المنسدلة الشهر المطلوب وليكن "شعبان" ثم تختار السنة الهجرية من الخلية المجاورة F2 .. ثم أخيراً انقر على زر الأمر لجلب البيانات من ورقة العمل Data

تم استخدام المصفوفات في الأكواد لسرعتها في التعامل مع البيانات الكبيرة

Sub Test()
'Author : YasserKhalil
'Release : 29 - 08 - 2016
'------------------------
    Dim Ws As Worksheet, Sh As Worksheet
    Dim Arr, Temp
    Dim Lr As Long, I As Long, P As Long
    Dim lMonth As Integer, lYear As Integer

    Set Ws = Sheets("Data"): Set Sh = Sheets("Report")
    Lr = WorksheetFunction.CountA(Ws.Columns(2))
    lMonth = Sh.Range("I1").Value
    lYear = Sh.Range("F2").Value
    Arr = Ws.Range("A2:H" & Lr).Value
    ReDim Temp(1 To UBound(Arr, 1), 1 To 3)

    For I = 1 To UBound(Arr, 1)
        If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then
            Temp(P + 1, 1) = Arr(I, 4)
            Temp(P + 1, 2) = Arr(I, 5)
            Temp(P + 1, 3) = Arr(I, 8)
            P = P + 1
        End If
    Next I

    Sh.Range("A6:C10000").ClearContents
    If P > 0 Then
        Sh.Range("A6").Resize(P, UBound(Temp, 2)).Value = Temp
        MsgBox "Done...", 64
    Else
        MsgBox "No Data For This Month And This Year", vbExclamation
    End If
End Sub

Function DHijri(dtGegDate As Date) As String
    VBA.Calendar = vbCalHijri
    DHijri = dtGegDate
    VBA.Calendar = vbCalGreg
End Function

أرجو أن يفي هذا بالغرض إن شاء الله

تقبل تحياتي

Grab Data By Hijri Dates Using Arrays YasserKhalil.rar

  • Like 3
قام بنشر

يعطيك العافية استاذي ياسر

شيء بسيط اريد عمله في الورقة Report وهي الطباعة وتحديد الجدول فقط لطباعته وعدم طباعة اي شيء آخر لاني عملت تعيين ناحية الطباعة فلم أفلح !

كيف ازيد عدد السنوات من القائمة ؟

يوجد لدي نوعين من البيانات في الورقة Data في العمود G حيث لها قسمين اريد تحديد نوع معين ليتم ترحيله الى الورقة Report ...

يعني زي مااحنا سوينا ترحيل حسب الشهور اريد ايضاً ان تكون حسب النوع في العمود G 

قام بنشر
5 ساعات مضت, موريادي said:

يعطيك العافية استاذي ياسر

شيء بسيط اريد عمله في الورقة Report وهي الطباعة وتحديد الجدول فقط لطباعته وعدم طباعة اي شيء آخر لاني عملت تعيين ناحية الطباعة فلم أفلح !

كيف ازيد عدد السنوات من القائمة ؟

يوجد لدي نوعين من البيانات في الورقة Data في العمود G حيث لها قسمين اريد تحديد نوع معين ليتم ترحيله الى الورقة Report ...

يعني زي مااحنا سوينا ترحيل حسب الشهور اريد ايضاً ان تكون حسب النوع في العمود G 

@ياسر خليل أبو البراء

قام بنشر

يوجد أعمدة مخفية في ورقة العمل "Report" أظهرها وزيد عدد السنوات كما تحب .. وقف في الخلية التي بها السنوات وادخل على الـ Data Validation وعدل المدى بحيث يشمل السنوات الجديدة

اقتباس

يوجد لدي نوعين من البيانات في الورقة Data في العمود G حيث لها قسمين اريد تحديد نوع معين ليتم ترحيله الى الورقة Report ...

يعني زي مااحنا سوينا ترحيل حسب الشهور اريد ايضاً ان تكون حسب النوع في العمود G 

لم أفهم هذه الجزئية .. يا ريت توضحها بالصور لو أمكن

 

حاول لو الطلب مختلف عن الموضوع أن تطرح موضوع جديد ...

تقبل تحياتي

قام بنشر
17 ساعات مضت, ياسر خليل أبو البراء said:

يوجد أعمدة مخفية في ورقة العمل "Report" أظهرها وزيد عدد السنوات كما تحب .. وقف في الخلية التي بها السنوات وادخل على الـ Data Validation وعدل المدى بحيث يشمل السنوات الجديدة

لم أفهم هذه الجزئية .. يا ريت توضحها بالصور لو أمكن

 

حاول لو الطلب مختلف عن الموضوع أن تطرح موضوع جديد ...

تقبل تحياتي

بخصوص السنوات فهمتها

والجزئية الثانية اريد ان يتم الترحيل فقط لرقم 2 وهو (الوقف) وليس كل الادخال 1و2 كما هو موضح بالصورة يعني امكانية تحديد مايتم ترحيله الى ورقة Report

2016-08-31_133515.png

قام بنشر

أضف شرط للكود في هذا السطر لتحصل على المراد

If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then

ستضيف كلمة And قبل كلمة Then وتضيف الشرط ..

ولكن يجب أن تكون هناك خلية تحتوي على المؤسسة والوقف للاعتما عليها

ارفع الملف بدون كود تماماً كما أرفقته لك مع وضع خلية بها المعطيات ..

قام بنشر
3 دقائق مضت, ياسر خليل أبو البراء said:

أضف شرط للكود في هذا السطر لتحصل على المراد


If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then

ستضيف كلمة And قبل كلمة Then وتضيف الشرط ..

ولكن يجب أن تكون هناك خلية تحتوي على المؤسسة والوقف للاعتما عليها

ارفع الملف بدون كود تماماً كما أرفقته لك مع وضع خلية بها المعطيات ..

الخليتين موجودة وهي K2 , K3 في ورقة Data ام تقصد خلية في ورقة Report

وهذا الملف بدون اي تعديلات واكواد ان شاء الله اكون فهمتك وافدتك بالي تحتاجه 

سندات الصرف معدل.rar

قام بنشر

أعتذر أخي عن التأخر في الرد

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

أرجو أن يفي بالغرض إن شاء الله

Grab Data By Hijri Dates Using Arrays YasserKhalil V2.rar

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information