أحتاج إضافة ورقة للقيود مع بعض التعديلات بالمايكرو في هذا الملف

[onlymanly]

ساعدني الأخ المبارك طارق جزاه الله خيرا .. بربط سند قبض مع ملف الحسابات ..

و أضفت عليه سند صرف .. و بقي معي ملف القيود أرجو المساعدة في ربطه ..

و أطلبه بإلحاح لأني سابدأ بإدخال بياناتي في ملف الأخ طارق بارك الله فيه .. فهو أحسن ملف يناسب حاجتي ...

Only.rar

[طارق محمود]

السلام عليكم

أخي الغالي

للأسف عندي مشكلة كبيرة مع اللغة العربية في الإكسل ولا أستطيع حلها

كنت أود المساعدة ولكني لاأستطيع فهم ماغيرته في الأكواد

أرجو إرسالها بالإنجليزية كما أرسلتها لك من قبل

مع خالص ودي

طارق

[onlymanly]

يا سعد المحتاج للإكلسل بك أستاذنا طارق...

لم افهم الحقيقة جيدا لإشكالك .. لكن أظني فهمت أن وجود كلمات عربية في صفحة المايكرو لا تتضح عندك .. لهذا ألغيتها و صارت حسب الملف في هيئته الأولى :

On.rar

[طارق محمود]

يا سعد المحتاج للإكلسل بك أستاذنا طارق...

لم افهم الحقيقة جيدا لإشكالك .. لكن أظني فهمت أن وجود كلمات عربية في صفحة المايكرو لا تتضح عندك .. لهذا ألغيتها و صارت حسب الملف في هيئته الأولى :

السلام عليكم

أخي مازلت لم أفهم

نعم استطعت قراءة الماكرو

ولكنه هو نفسه ماسويناه منذ شهر تقريبا

لم تضف شيء ، أين إضافاتك

و أضفت عليه سند صرف .. و بقي معي ملف القيود أرجو المساعدة في ربطه ..

[onlymanly]

اوووه صدقت أستاذ طارق أخطأت في رفع الملف

وألآن ارفقته من جديد

Only.rar

[طارق محمود]

يا أخي الموضوع فعلا مش بسيط عندي

وياريت أحد الإخوة يساعدنا في لغة الواجهه للفيجيوال بيزيك

أنظر الصورة

تم تعديل مارس 16, 2010 بواسطه TareQ M

[طارق محمود]

أخي الفاضل:

بالنسبة للسؤال الأول الذي تقول فيه

كيف أمنع المستخدم من عدم تجاوزالقيد إذا كان غير متساوي ؟؟

فلو أكمل إدخال العملية المسلسلة برقم 1 و 2 و لكن أدخلها بشكل خاطئ فجعل المبلغ في الصفين في جهة المدين معا أو الدائن معا .. أو أدخل المبلغ في جهة المدين مختلفا عن جهة الدائن..

سأعيد لك صياغة السؤال

تريد مثلا إذا كان

1. الرصيد صفر حتي الخطوة 4

2. وكان الدائن بمبلغ 50 في الخطوة 5

فإنه يلزم أن

1. أن يكون المبلغ في الخطوة 6 لايتعدي الـ 50

_ أي سقف المبلغ في الخطوة 6 = 50

2. وإن كان أقل منها 40 مثلا فيكون

__ سقف المبلغ في الخطوة 7 = 50 -40 = 10

تم تعديل مارس 16, 2010 بواسطه TareQ M

[onlymanly]

العفو أستاذي .. مسحت العربية حتى من اسماء الأوراق

Only.rar

[onlymanly]

بالنسبة لمسالة القيد:

القيد له جهتان دائن و مدين.... فأحيانا قد يدخل المستخدم جهة الدائن مثلا=500

و يدخل في جهة المدين =400 و يكون من باب الغلط فقط.

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

[طارق محمود]

بالنسبة لمسالة القيد:

القيد له جهتان دائن و مدين.... فأحيانا قد يدخل المستخدم جهة الدائن مثلا=500

و يدخل في جهة المدين =400 و يكون من باب الغلط فقط.

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

هل لابد أن يدخل الدائن أولا

وهل لابد أن يكون المدين عملية واحدة

ألا يجوز أن يكون الدائن 500 ويكون المدين حسابين 400+100 مثلا

أعذرني فلست محاسبا

[onlymanly]

كلامك صحيح يجوز أن يكون المبلغ في جهة المدين مجزءا400+500

و عموما المطلوب عدم السماح بترحيل القيد إلا بعد توازنه

[طارق محمود]

و عموما المطلوب عدم السماح بترحيل القيد إلا بعد توازنه

مارأيك في عمل جمع لكافة قيود الدين وكذلك المدين

وإن كانا غير متساويان فلايقبل الترحيل ويعطي رسالة أن عندك خطأ في توازن القيد

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

	r1 = Range("D6:D20")

	x1 = WorksheetFunction.Sum(r1)


	r2 = Range("E6:E20")

	x2 = WorksheetFunction.Sum(r2)


	If x1 <> x2 Then Exit Sub

[onlymanly]

يؤدي نفس الغرض استاذنا القدير....

[طارق محمود]

إسمح لي اليوم

يمكن غدا يستطيع الشباب هنا يحلوا موضوع اللغة

السلام عليكم

[onlymanly]

ربك يسهل...

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

[طارق محمود]

أنا لاحظت أنك ماشاء الله تستطيع التعديل وتطويع الملف لما يناسب إحتياجاتك

لذلك سأساعدك فقط بالفكرة وأترك العمل لك

أولا: مثلا يمكنك عمل مراجعة أوتوماتيكية قبل الترحيل

عن طريق عد البيانات في الخلايا الصفراء أو المدخلات بدون الخلايا التي بها معادلات

مثلا إسم الدائن والمدين ولاداعي لأرقام حساباتهم لأنها أوتوماتيكية

بمعني آخر البيانات في سند الصرف لابد أن تكون 6 بيانات فقط وهي

 

s_name1 = Range("E12").Value

s_name2 = Range("M15").Value

s_explain2 = Range("IV10").Value

s_amount = Range("C14").Value

s_date = Range("D9").Value

S_DUL = Range("E13").Value

ممكن تضيف في أول الكود السطر التالي

 

If WorksheetFunction.Counta("E12,M15,IV10,C14,D9,E13") <> 6 then exit sub

 

ثانيا:

وبعد عمل المراجعة السابقة تبدأ في إنجاز المطلوب خطوة بخطوة

فمثلا

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

يمكنك أن إستخدام أي خلية غير مستخدمة في الشييت ولتكن مثلا: K10

لأن الصف 10 مخفي وغير مستخدم

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

 

Range("K10").value = Range("K10").value+1

بهذا تكون الخلية K10 تحتوي علي رقم تسلسلي يزيد أوتوماتيكيا كلما تمت عملية ترحيل

ويمكنك ترحيل قيمتها حسبما تريد

تم تعديل مارس 22, 2010 بواسطه TareQ M