المساعده فى تحويل معادله الى كود

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

ارجو تحويل المعادله الى كود

تحويل معاده الى كود.rar

[أبو ردينة]

أخي الكريم

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

http://www.officena.net/ib/index.php?showtopic=41437&hl=&fromsearch=1

تم تعديل يونيو 13, 2012 بواسطه أبو ردينة

[عبدالله المجرب]

احي ابراهيم

ما هو سبب عدم كتابة عنوان مناسب ارجو منك الاجابة

==============================

الحل لسوالك

ضع هذا الكود في حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [C46:C66]) Is Nothing Then

For Each cl In [B3:B38]

If cl = Target Then Target.Offset(0, 1) = cl.Offset(0, 1): Exit Sub

Next

End If

End Sub

[إبراهيم ابوليله]

الاخ عبد الله

بارك الله فيك

ولكنى والله اعتقدت ان هذا هو العنوان المناسب

والاخطاء التى تظهر من تكون بدون قصد

ولذلك ارجو التماس العزر لى

وفعلا هذا الكود مناسب لما طلبته

ولكنى اجد انه بعد كتابه الرقم فى الخليه B46 ثم ظهور الاسم فى الخليه C46

ثم محاولة مسح الرقم بعد ذلك يظل الاسم موجود

وانا اريد ان يتم مسح الاسم ايضا

بمعنى انه طالما الخليه الخاصه بالرقم فارغه تظل الخليه الخاصه بظهور الاسم فارغه ايضا

فهل يمكن عمل ذلك

تحويل معاده الى كود.rar

[عبدالله المجرب]

استبدل الكود السابق بهذاPrivate Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [C46:C66]) Is Nothing ThenIf Target.Value = Empty Then Target.Offset(0, 1) = ""For Each cl In [b3:B38]If cl = Target Then Target.Offset(0, 1) = cl.Offset(0, 1): Exit SubNextEnd IfEnd Sub

[عبدالله المجرب]

استبدل الكود السابق بهذا

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [C46:C66]) Is Nothing Then

If Target.Value = Empty Then Target.Offset(0, 1) = ""

For Each cl In [B3:B38]

If cl = Target Then Target.Offset(0, 1) = cl.Offset(0, 1): Exit Sub

Next

End If

End Sub

</p>

[إبراهيم ابوليله]

الاخ بارك الله فيك

عمل رائع جدا

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

وزادك من علمه

[إبراهيم ابوليله]

الاخ عبد الله تحيه طيبه وبعد

ولكن ماذا لو اردت

ايضا كتابة كود السائق فيظهر الاسم الخاص به عن طريق الكود

تحويل معاده الى كود.rar

[إبراهيم ابوليله]

الاخ عبد الله

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

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

ساحاول فيها

وان لم استطعت سوف ارفقها لك

[إبراهيم ابوليله]

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

وكيفيه تحويلها الى كود

المعادله خاصه بالاعمده التى تخص

مبلغ الايجار - مبلغ سكاى - المبلغ+10%

تحويل معاده الى كود.rar

[إبراهيم ابوليله]

ارجو المساعده من اهل الخبره

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[عبدالله المجرب]

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

وكيفيه تحويلها الى كود

المعادله خاصه بالاعمده التى تخص

مبلغ الايجار - مبلغ سكاى - المبلغ+10%

الحل طويل ومتداخل (انا جربت جملة select case) ويمكن يسبب خلل وتهنيق في الملف

[إبراهيم ابوليله]

الاخ عبد الله

بارك الله فيك

ولكننى اريد استخراج قيم كل عمود على حده

بمعنى استخراج قيم العمود الخاص بمبلغ الايجار على حده

وايضا استخراج قيم العمود الخاص بمبلغ سكاى على حده

وايضا استخراج قيم العمود الخاص بالمبلغ +10% على حده

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

حيث اننى اتصور ان على الاقل استخراج قيمة العمود الخاص بمبلغ الايجار والعمود الخاص ب المبلغ +10% ليست

بالاكواد الصعبه على خبراء المنتدى انشاء الله

[إبراهيم ابوليله]

ارجو من الاخ عبد الله

الرد عليا فيما اذا كنت استطعت التوضيح

ما اريد ام لا

[إبراهيم ابوليله]

ارجو من الاخ عبد الله

الا ينسانى فى الرد

وكان الله فى عونك

لعلمنا جميعا بانك دائما تكون مشغولا