علي العابد قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 السلام عليكم ورحمة الله وبركاته : لو تكرمتم اخواني الافاضل مطلوب نسخ عمود بشرط والمثال المرفق يوضح بالمطلوب بشكل افضل نسخ بشرط.rar رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 تفضل نسخ بشرط#1.rar رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 8, 2015 الكاتب مشاركة قام بنشر يناير 8, 2015 اخي ابو العبد شكرا لك على ردك ولكنك لم تجري اي تعديل على الكود واعدت الملف كما هو الرجاء من الاخوة الافاضل المساعدة الملف مرة ثانية نسخ بشرط.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 اخى الفاضل تفضل، لعل المرفق به طلبك تحياتى نسخ بشرط.rar رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 8, 2015 الكاتب مشاركة قام بنشر يناير 8, 2015 شكرا لك اخي الحبيب ابن مصر ولكن ملاحظتان الاولى : عند وضع الكود في حدث عند التغيير للورقة يبقي يعمل دون استجابة يعني الشاسة بترمش على طول والثانية : عند مسح احد الاسماء من العمود B لا يمسح مقابلها في العمود H فان تكرمت اخي الكريم وكملت معروفك معاي وشكرا رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 شكرا لك اخي الحبيب ابن مصر ولكن ملاحظتان الاولى : عند وضع الكود في حدث عند التغيير للورقة يبقي يعمل دون استجابة يعني الشاسة بترمش على طول والثانية : عند مسح احد الاسماء من العمود B لا يمسح مقابلها في العمود H فان تكرمت اخي الكريم وكملت معروفك معاي وشكرا اخى الفاضل لعل المرفق به ما تريد تحياتى نسخ بشرط.rar رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 عفوا اخ علي فهمت طلبك بالخطا رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 شكرا لك اخي الحبيب ابن مصر ولكن ملاحظتان الاولى : عند وضع الكود في حدث عند التغيير للورقة يبقي يعمل دون استجابة يعني الشاسة بترمش على طول والثانية : عند مسح احد الاسماء من العمود B لا يمسح مقابلها في العمود H فان تكرمت اخي الكريم وكملت معروفك معاي وشكرا اخى الفاضل لعل المرفق به ما تريد تحياتى هذا هو الكود هل ممكن شرحة بالعربي لكي احاول اعمل مثله Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer If Not Intersect(Target, Range("B2:D27")) Is Nothing Then i = Target.Row Range("E" & i).Value = Range("C" & i).Value * Range("D" & i).Value If Range("B" & i).Value <> "" Then Range("H" & i).Value = Range("E" & i).Value Else Range("H" & i).Value = "" End If End If End Sub رابط هذا التعليق شارك More sharing options...
علي العابد قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 شكرا لك اخي ابن مصر الحبيبة مصر العروبة وأسأل الله ان يلم شملكم ويحفظ بلدكم لقد كفيت ووفيت فهذا هو ما اريده شكرا مررة ثانية رابط هذا التعليق شارك More sharing options...
Mahmoud Karem قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 (معدل) مع تقديرى للجميع تفضل اخى نسخ بشرط.zip تم تعديل يناير 9, 2015 بواسطه Mahmoud Karem رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 أخي الفاضل أبو سليمان يرجى بعد ذلك وضع الكود بين علامتي الكود عند وضع مشاركة من هذه العلامة <> تفضل شرح مبسط للكود / Private Sub Worksheet_Change(ByVal Target As Range) 'يوضع الكود في حدث ورقة العمل ، كليك يمين على اسم الورقة ثم الأمر View Code. 'تعريف المتغير Dim I As Integer 'النطاق الذي سيتم فيه تنفيذ الكود في حالة التعديل في أي خلية من خلاياه If Not Intersect(Target, Range("B2:D27")) Is Nothing Then 'المتغير الذي تم الإعلان عنه يساوي رقم صف الخلية الهدف أي الخلية التي يت التعديل فيها I = Target.Row 'الخلية في العمود الخامس تساوي حاصل ضرب الخلية في العمود الثالث في الخلية في العمود الرابع Range("E" & I).Value = Range("C" & I).Value * Range("D" & I).Value 'إذا كانت الخلية في العمود الثاني ليست فارغة If Range("B" & I).Value <> "" Then 'فإن قيمة الخلية في العمودالثامن تساوي قيمة الخلية في العمود الخامس Range("H" & I).Value = Range("E" & I).Value 'أما إذا كانت فارغة Else 'فإن قيمة الخلية في العمود الثامن تساوي فراغ أي تترك فارغة Range("H" & I).Value = "" End If End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 أخي الفاضل أبو سليمان يرجى بعد ذلك وضع الكود بين علامتي الكود عند وضع مشاركة من هذه العلامة <> تفضل شرح مبسط للكود / Private Sub Worksheet_Change(ByVal Target As Range) 'يوضع الكود في حدث ورقة العمل ، كليك يمين على اسم الورقة ثم الأمر View Code. 'تعريف المتغير Dim I As Integer 'النطاق الذي سيتم فيه تنفيذ الكود في حالة التعديل في أي خلية من خلاياه If Not Intersect(Target, Range("B2:D27")) Is Nothing Then 'المتغير الذي تم الإعلان عنه يساوي رقم صف الخلية الهدف أي الخلية التي يت التعديل فيها I = Target.Row 'الخلية في العمود الخامس تساوي حاصل ضرب الخلية في العمود الثالث في الخلية في العمود الرابع Range("E" & I).Value = Range("C" & I).Value * Range("D" & I).Value 'إذا كانت الخلية في العمود الثاني ليست فارغة If Range("B" & I).Value <> "" Then 'فإن قيمة الخلية في العمودالثامن تساوي قيمة الخلية في العمود الخامس Range("H" & I).Value = Range("E" & I).Value 'أما إذا كانت فارغة Else 'فإن قيمة الخلية في العمود الثامن تساوي فراغ أي تترك فارغة Range("H" & I).Value = "" End If End If End Sub بارك الله فيك ورفع قدرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان