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

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


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

أخي الكريم

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

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

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

احي ابراهيم

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

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

الحل لسوالك

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


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

رابط هذا التعليق
شارك

قام بنشر · مخفي بواسطه عبدالله المجرب, يونيو 14, 2012 - لايوجد سبب معطي
مخفي بواسطه عبدالله المجرب, يونيو 14, 2012 - لايوجد سبب معطي

استبدل الكود السابق بهذا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% ليست

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information