علي العابد قام بنشر يناير 8, 2015 قام بنشر يناير 8, 2015 السلام عليكم ورحمة الله وبركاته : لو تكرمتم اخواني الافاضل مطلوب نسخ عمود بشرط والمثال المرفق يوضح بالمطلوب بشكل افضل نسخ بشرط.rar
علي العابد قام بنشر يناير 8, 2015 الكاتب قام بنشر يناير 8, 2015 اخي ابو العبد شكرا لك على ردك ولكنك لم تجري اي تعديل على الكود واعدت الملف كما هو الرجاء من الاخوة الافاضل المساعدة الملف مرة ثانية نسخ بشرط.rar
ibn_egypt قام بنشر يناير 8, 2015 قام بنشر يناير 8, 2015 اخى الفاضل تفضل، لعل المرفق به طلبك تحياتى نسخ بشرط.rar
علي العابد قام بنشر يناير 8, 2015 الكاتب قام بنشر يناير 8, 2015 شكرا لك اخي الحبيب ابن مصر ولكن ملاحظتان الاولى : عند وضع الكود في حدث عند التغيير للورقة يبقي يعمل دون استجابة يعني الشاسة بترمش على طول والثانية : عند مسح احد الاسماء من العمود B لا يمسح مقابلها في العمود H فان تكرمت اخي الكريم وكملت معروفك معاي وشكرا
ibn_egypt قام بنشر يناير 8, 2015 قام بنشر يناير 8, 2015 شكرا لك اخي الحبيب ابن مصر ولكن ملاحظتان الاولى : عند وضع الكود في حدث عند التغيير للورقة يبقي يعمل دون استجابة يعني الشاسة بترمش على طول والثانية : عند مسح احد الاسماء من العمود B لا يمسح مقابلها في العمود H فان تكرمت اخي الكريم وكملت معروفك معاي وشكرا اخى الفاضل لعل المرفق به ما تريد تحياتى نسخ بشرط.rar
ا بو سليمان قام بنشر يناير 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
علي العابد قام بنشر يناير 9, 2015 الكاتب قام بنشر يناير 9, 2015 شكرا لك اخي ابن مصر الحبيبة مصر العروبة وأسأل الله ان يلم شملكم ويحفظ بلدكم لقد كفيت ووفيت فهذا هو ما اريده شكرا مررة ثانية
Mahmoud Karem قام بنشر يناير 9, 2015 قام بنشر يناير 9, 2015 (معدل) مع تقديرى للجميع تفضل اخى نسخ بشرط.zip تم تعديل يناير 9, 2015 بواسطه Mahmoud Karem
ياسر خليل أبو البراء قام بنشر يناير 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
ا بو سليمان قام بنشر يناير 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 بارك الله فيك ورفع قدرك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.