عبد الفتاح كيرة قام بنشر مايو 28, 2010 قام بنشر مايو 28, 2010 السلام عليكم العمود a فيه مثلا القيم 1 2 3 المطلوب ضرب a1 فى 3 ووضع الناتج فى b1 ضرب a2 فى 3 ووضع الناتج فى b2 وهكذا لنهاية المدى طبعا بالكود أيضا بدون حلقة تكرار مع الشكر
هشام شلبى قام بنشر مايو 28, 2010 قام بنشر مايو 28, 2010 السلام عليكم =========== الاخ kemas شاهد المرفق الكود سيتم عن طريق كود"لدالة من النوع udf" هل تستطيع ان تصنع دالة باسمك1.rar
هشام شلبى قام بنشر مايو 28, 2010 قام بنشر مايو 28, 2010 السلام عليكم =========== اذا كنت لا تريد استخدام الدوال من اساسه شاهد المرفق كود ضرب عمود فى 3.rar
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب قام بنشر مايو 28, 2010 أشكرك جدا على كريم عطائك وسرعة استجابتك جارى التحميل و إلى لقاء
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب قام بنشر مايو 28, 2010 رائع جدا أخى هشام 4 أسطر من ذهب Sub HH() Dim XYZ As Range For Each XYZ In Range("a1:a100") XYZ.Offset(0, 1).Value = XYZ.Value * 3 Next End Sub بارك الله فيك المهم عندى ألا تظهر المعادلة عند تحديد الخلية لابد أن هناك طرقا أخرى نطمع فى كرمكم مع جزيل الشكر
هشام شلبى قام بنشر مايو 28, 2010 قام بنشر مايو 28, 2010 السلام عليكم ========== فى المرفق الثانى المعادلة لا تظهر والا وضحلى اكثر ما تريده
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب قام بنشر مايو 28, 2010 أخى هشام وصل المطلوب و شكرا لك الكود الذى أرسلته أنا هو نفس الكود الذى تفضلت بإرساله فقط أنا كنت أبحث عن طرق أخرى جزاك الله خيرا
ياسر خليل أبو البراء قام بنشر مايو 28, 2010 قام بنشر مايو 28, 2010 بارك الله فيك أخ هشام ممكن أعدل تعديل بسيط جداً على كودك Dim XYZ As Range Range("A1").End(xlDown).Select For Each XYZ In Range(Range("A1"), Selection) XYZ.Offset(0, 1).Value = XYZ.Value * 3 Next أخوك أبو البراء
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب قام بنشر مايو 28, 2010 أهلا أخانا أبا البراء أثريت الموضوع ممكن شرح الكود خاصة .End(xlDown).Select شكرا لك ولو أحد عنده طرق أخرى فلا يبخل علينا بها
ياسر خليل أبو البراء قام بنشر مايو 28, 2010 قام بنشر مايو 28, 2010 أخي كيماس .End(xlDown).Select للإشارة إلى آخر خلية بها بيانات ضمن النطاق الذي يبدأ من A1 حتى آخر خلية بها قيم مع العلم أنه لو ترك صف فارغ فإنه لن يقوم بالتنفيذ بعد الصف الفارغ
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب قام بنشر مايو 28, 2010 (معدل) وصلت المعلومة وشكرا جزيلا بهذا يكون كود الأخ هشام يضمن تحديد كل البيانات حتى لو كان بالوسط سطر فارغ أليس كذلك؟ تم تعديل مايو 28, 2010 بواسطه kemas
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب قام بنشر مايو 28, 2010 بارك الله فيكم إخوتى يا ليت استكمالا للفائدة ممكن كود جمع عمودين متجاورين و الناتج فى العمود الثالث ؟ ولو أننا أثقلنا عليكم بارك الله فيكم
أبوعبد الله قام بنشر مايو 29, 2010 قام بنشر مايو 29, 2010 أخي العزيز / kemas بداية أشكر إخواني الأعزاء هشام شلبي وأبو البراء لما تفضلوا به من أفكار مميزة للحل ولإثراء الموضوع هذا حل إضافي بالمرفق بالورقة الأولى وبالعمود A بالنطاق (A1:A1000) أي رقم تضعه يتم ضربه × 3 ووضع الناتج بالعمود B ، وبالورقة الثانية تم تنفيذ طلبك الثاني وهو جمع العمودين A+B والناتج بالعمود C وهذا أيضاً على مستوى الصفوف من 1 إلى 1000 أرجو أن يناسب هذا طلبك . تحياتي أبو عبدالله ضرب العمود في 3 ومجموع عمودين.rar 1
عبد الفتاح كيرة قام بنشر مايو 29, 2010 الكاتب قام بنشر مايو 29, 2010 أخى أبا عبد الله لقد حصلت على كل ما طلبت بهذا المنتدى الرائع من أعضاء رائعين فهمت أن offset هى أهم ما فى هذه الأكواد كما أن وضع الكود فى الحدث change هو المطلوب فعلا أطلب منكم أن تتكرموا بشرح هذا السطر If Not Intersect(Target, Range("A1:A1000")) Is Nothing _ حتى نزداد نورا ونزيدكم دعاء وهل target هو الخلية المحددة ؟
ياسر خليل أبو البراء قام بنشر مايو 29, 2010 قام بنشر مايو 29, 2010 (معدل) الأخ الغالي المقرب إلى قلوبنا جميعاً كما عودتنا لا نرى منك سوى المزيد من الإبداع..إلى الأمام دائماً أخوك أبو البراء تم تعديل مايو 29, 2010 بواسطه YasserKhalil
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.