عبد الفتاح كيرة قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 السلام عليكم العمود a فيه مثلا القيم 1 2 3 المطلوب ضرب a1 فى 3 ووضع الناتج فى b1 ضرب a2 فى 3 ووضع الناتج فى b2 وهكذا لنهاية المدى طبعا بالكود أيضا بدون حلقة تكرار مع الشكر رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 السلام عليكم =========== الاخ kemas شاهد المرفق الكود سيتم عن طريق كود"لدالة من النوع udf" هل تستطيع ان تصنع دالة باسمك1.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 السلام عليكم =========== اذا كنت لا تريد استخدام الدوال من اساسه شاهد المرفق كود ضرب عمود فى 3.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 أشكرك جدا على كريم عطائك وسرعة استجابتك جارى التحميل و إلى لقاء رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 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 بارك الله فيك المهم عندى ألا تظهر المعادلة عند تحديد الخلية لابد أن هناك طرقا أخرى نطمع فى كرمكم مع جزيل الشكر رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 السلام عليكم ========== فى المرفق الثانى المعادلة لا تظهر والا وضحلى اكثر ما تريده رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 أخى هشام وصل المطلوب و شكرا لك الكود الذى أرسلته أنا هو نفس الكود الذى تفضلت بإرساله فقط أنا كنت أبحث عن طرق أخرى جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 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 أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 أهلا أخانا أبا البراء أثريت الموضوع ممكن شرح الكود خاصة .End(xlDown).Select شكرا لك ولو أحد عنده طرق أخرى فلا يبخل علينا بها رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 28, 2010 مشاركة قام بنشر مايو 28, 2010 أخي كيماس .End(xlDown).Select للإشارة إلى آخر خلية بها بيانات ضمن النطاق الذي يبدأ من A1 حتى آخر خلية بها قيم مع العلم أنه لو ترك صف فارغ فإنه لن يقوم بالتنفيذ بعد الصف الفارغ رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 (معدل) وصلت المعلومة وشكرا جزيلا بهذا يكون كود الأخ هشام يضمن تحديد كل البيانات حتى لو كان بالوسط سطر فارغ أليس كذلك؟ تم تعديل مايو 28, 2010 بواسطه kemas رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 28, 2010 الكاتب مشاركة قام بنشر مايو 28, 2010 بارك الله فيكم إخوتى يا ليت استكمالا للفائدة ممكن كود جمع عمودين متجاورين و الناتج فى العمود الثالث ؟ ولو أننا أثقلنا عليكم بارك الله فيكم رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر مايو 29, 2010 مشاركة قام بنشر مايو 29, 2010 أخي العزيز / kemas بداية أشكر إخواني الأعزاء هشام شلبي وأبو البراء لما تفضلوا به من أفكار مميزة للحل ولإثراء الموضوع هذا حل إضافي بالمرفق بالورقة الأولى وبالعمود A بالنطاق (A1:A1000) أي رقم تضعه يتم ضربه × 3 ووضع الناتج بالعمود B ، وبالورقة الثانية تم تنفيذ طلبك الثاني وهو جمع العمودين A+B والناتج بالعمود C وهذا أيضاً على مستوى الصفوف من 1 إلى 1000 أرجو أن يناسب هذا طلبك . تحياتي أبو عبدالله ضرب العمود في 3 ومجموع عمودين.rar 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 29, 2010 الكاتب مشاركة قام بنشر مايو 29, 2010 أخى أبا عبد الله لقد حصلت على كل ما طلبت بهذا المنتدى الرائع من أعضاء رائعين فهمت أن offset هى أهم ما فى هذه الأكواد كما أن وضع الكود فى الحدث change هو المطلوب فعلا أطلب منكم أن تتكرموا بشرح هذا السطر If Not Intersect(Target, Range("A1:A1000")) Is Nothing _ حتى نزداد نورا ونزيدكم دعاء وهل target هو الخلية المحددة ؟ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 29, 2010 مشاركة قام بنشر مايو 29, 2010 (معدل) الأخ الغالي المقرب إلى قلوبنا جميعاً كما عودتنا لا نرى منك سوى المزيد من الإبداع..إلى الأمام دائماً أخوك أبو البراء تم تعديل مايو 29, 2010 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان