كيف يمكنني التعامل مع قيمة الخليه عند تغيير قيمتها,

[alaned2004]

السلام عليكم ورحمة الله وبركاته ... وبعد

اخواني الاعزاء ....

انني اواجه مشكله ما ، اتمنى ان القى الاجابه في منتداي المفضل والذي احببت ان تشاركوني فيها وهي كالتالي :

لدي خليه مثلاً A1 توجد بها القيمة التاليه مثلاً 10

كيف يمكنني وضع كود داخل الخليه عندما تتغير قيمتها في كل مره

يعني لما تتغير قيمة الخليه A1 وتصبح 11 يتم تنفيذ امر معين ....

المطلوب هوه يكيفة التعامل مع التغيرات التي تطرأ على الخليه في كل مره ...

وتقبلوا خالص تحياتي

[علي السحيب]

الكود التالي يعمل على كتابة عبارة معينة في الخلية C1 عند تغير قيمة الخلية A1 .. ثم يقوم بزيادة أو إنقاص عرض العمود A والعمود C .. لكي يتم إحتواء البيانات الجديدة التي تم إدخالها في الخلية A1 و C1.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1] = "تم تغيير قيمة الخلية A1 إلى " & [A1]
Columns("A:C").EntireColumn.AutoFit
End Sub

شاهد المرفق،

AutoFit.rar

تم تعديل أغسطس 26, 2006 بواسطه علي السحيب

[alaned2004]

جزاك الله كل خير ورحم الله والديك

نعم هذا هوه المطلوب

الله ينور عليك دنيا وآخره ...

ان شاء الله

وتقبل خالص تحياتي

[alaned2004]

ملاحظة :

استاذي الفاضل

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

جمع قيم الخليه F1 + الخليه H1 ووضع الناتج في الخليه G1

طبعاً يكون بالكود

وجزاك الله عني كل خير ورحم الله والديك

وتقبل خالص تحياتي

تم تعديل أغسطس 31, 2006 بواسطه alaned2004

[علي السحيب]

أستخدم الكود التالي في الصفحة المعنية:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Or Target.Address = "$H$1" Then [G1] = [F1] + [H1]
End Sub

_______________________________.rar

[alaned2004]

جزاك الله عني كل خير ورحم الله والديك

جاري التحميل

وتقبل خالص تحياتي