MOHAMED_ZZ2000 قام بنشر يناير 14, 2005 مشاركة قام بنشر يناير 14, 2005 (معدل) الى السادة الخبراء تحية طيبة و بعد انا مشترك جديد فى المنتدى و اواجة مشكلة كبيرة ارجو منكم التكرم بالمساعدة أنا مبتدئ فى الاكسيل و طلب منى ان اصمم برنامج فى عملى أرجو المساعدة فى تنفيذ الاتى عندي ورقة رقم 1 و ورقة رقم 2 و ورقة رقم 3 توجد بيانات فى الورقة الاولى عبارة عن 8 اعمدة و عدد لا نهائى من الصفوف توجد بيانات فى كل الأعمدة ماعدا العامود السادس و السابع و الثامن أرجو المساعدة فى عند إدخال البيانات فى العامود السادس و السابع يتم قص للصف الذى ادخل فية البيانات بالكامل و لصقة فى الورقة الثانية و حذف الصف بالكامل من الصفحة الاولى وعند ادخال البيانات فى العامود الثامن فى الصفحة الثانية للخلية المنقولة من الصفحة الأولى يتم نقل الصف بالكامل الى الصفحة الثالثة و خذفها من الورقة الثانية ارجو الا اكون أثقلت عليكم و لكن ليس امامى خيار سواكم و مساعدتكم أرجو الرد لان الموضوع فى غاية الأهمية تم تعديل يناير 19, 2005 بواسطه محمد حجازي رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يناير 15, 2005 مشاركة قام بنشر يناير 15, 2005 (معدل) السلام عليكم ... ضع الكود التالي في الورقة الأولى : Private Sub Worksheet_Change(ByVal Target As Range) Dim TargetR_C(2) As Long TargetR_C(1) = Target.Row TargetR_C(2) = Target.Column If TargetR_C(2) = 6 Or TargetR_C(2) = 7 Then Sheets(1).Rows(TargetR_C(1)).Cut EndRow = Sheets(2).Range("A1").CurrentRegion.Rows.Count Sheets(2).Rows(EndRow + 1).Insert Shift:=xlDown Sheets(1).Rows(TargetR_C(1)).Delete Shift:=xlUp Sheets(1).Range("A2").Select End If End Sub تم تعديل يناير 19, 2005 بواسطه محمد حجازي رابط هذا التعليق شارك More sharing options...
MOHAMED_ZZ2000 قام بنشر يناير 18, 2005 الكاتب مشاركة قام بنشر يناير 18, 2005 الاخ العزيز محمد حجازى اشكرك جدا للاهتمام و ارجو ان تكون هذة المعرفة بداية صداقة و لكن اخى العزيز الملف لا يعمل و سوف ارسل لك على الاميل الخاص بك yahoo الملف الخاص بى و ارجو ان تضيف فية المعادلات ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يناير 19, 2005 مشاركة قام بنشر يناير 19, 2005 السلام عليكم ... الملف يعمل عندي بشكل جيد يمكن أن تكون المشكلة في أن وحدات الماكرو عندك معطلة ، ولتفعيلها اتبع الخطوات التالية : حدد مستوى الأمان منخفض Low من علامة التبويب مستوى التأمين Security Level في مربع الحوار تأمين Security (القائمة أدوات Tools، القائمة الفرعية ماكرو Macro) رابط هذا التعليق شارك More sharing options...
MOHAMED_ZZ2000 قام بنشر يناير 19, 2005 الكاتب مشاركة قام بنشر يناير 19, 2005 الاخ العزيز محمد حجازى لك الف شكر على اهتمامك و كل عام وانت بخير لكن استفسار عندما اكتب البيانات فى العمود السادس ينتقل الصف الى الورقة الثانية ممكن نعمل تعديل وهو انتقال الصف الى الورقة الثانية عند الكتابة فى العمود السادس و السابع معا ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يناير 20, 2005 مشاركة قام بنشر يناير 20, 2005 (معدل) السلام عليكم ... يمكنك ذلك عن طريق تخزين معلومات الخلايا المعدلة في مصفوفة ، و البحث عند كل عملية تعديل عما إذا كانت الخلية المناظرة للخلية المعدلة قد تم تعديلها سابقاً استبدل الكود الموجود في الورقة الأولى بالتالي : Dim ChangeCells(2) As Long Private Sub Worksheet_Change(ByVal Target As Range) Dim TargetR_C(2) As Long TargetR_C(1) = Target.Row TargetR_C(2) = Target.Column If TargetR_C(2) = 6 Or TargetR_C(2) = 7 Then If ChangeCells(2) = TargetR_C(2) Then GoTo 1 Else Select Case ChangeCells(1) Case 0 GoTo 1 Case TargetR_C(1) Sheets(1).Rows(TargetR_C(1)).Cut EndRow = Sheets(2).Range("A1").CurrentRegion.Rows.Count Sheets(2).Rows(EndRow + 1).Insert Shift:=xlDown Sheets(1).Rows(TargetR_C(1)).Delete Shift:=xlUp Sheets(1).Range("A2").Select ChangeCells(1) = 0 ChangeCells(2) = 0 Case Else 1 ChangeCells(1) = TargetR_C(1) ChangeCells(2) = TargetR_C(2) End Select End If End If ويجب الانتباه إلى أن الكود غير فعال إلا إذا كان التعديل في الخليتين بشكل متتالي ، أي أنه إذا قمت بتعديل الخلية F2 ومن ثم F3 ومن ثم G2 فإن الكود لن يقوم بنقل السطر الثاني إلى الورقة الثانية DataMove.zip تم تعديل يناير 20, 2005 بواسطه محمد حجازي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها