alaned2004 قام بنشر أغسطس 25, 2006 قام بنشر أغسطس 25, 2006 السلام عليكم ورحمة الله وبركاته ... وبعد اخواني الاعزاء .... انني اواجه مشكله ما ، اتمنى ان القى الاجابه في منتداي المفضل والذي احببت ان تشاركوني فيها وهي كالتالي : لدي خليه مثلاً A1 توجد بها القيمة التاليه مثلاً 10 كيف يمكنني وضع كود داخل الخليه عندما تتغير قيمتها في كل مره يعني لما تتغير قيمة الخليه A1 وتصبح 11 يتم تنفيذ امر معين .... المطلوب هوه يكيفة التعامل مع التغيرات التي تطرأ على الخليه في كل مره ... وتقبلوا خالص تحياتي
علي السحيب قام بنشر أغسطس 26, 2006 قام بنشر أغسطس 26, 2006 (معدل) الكود التالي يعمل على كتابة عبارة معينة في الخلية 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 بواسطه علي السحيب 1
alaned2004 قام بنشر أغسطس 26, 2006 الكاتب قام بنشر أغسطس 26, 2006 جزاك الله كل خير ورحم الله والديك نعم هذا هوه المطلوب الله ينور عليك دنيا وآخره ... ان شاء الله وتقبل خالص تحياتي
alaned2004 قام بنشر أغسطس 31, 2006 الكاتب قام بنشر أغسطس 31, 2006 (معدل) ملاحظة : استاذي الفاضل كيف يمكنني اضافة الكود التالي وهوه عباره عن داخل الكود السابق جمع قيم الخليه F1 + الخليه H1 ووضع الناتج في الخليه G1 طبعاً يكون بالكود وجزاك الله عني كل خير ورحم الله والديك وتقبل خالص تحياتي تم تعديل أغسطس 31, 2006 بواسطه alaned2004
علي السحيب قام بنشر سبتمبر 2, 2006 قام بنشر سبتمبر 2, 2006 أستخدم الكود التالي في الصفحة المعنية: 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 قام بنشر سبتمبر 4, 2006 الكاتب قام بنشر سبتمبر 4, 2006 جزاك الله عني كل خير ورحم الله والديك جاري التحميل وتقبل خالص تحياتي
الردود الموصى بها