زياد عبد الجليل قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 السلام على جميع الاساتذة الافاضل اما بعد عندي استفسار حول كيفية كتابة معادلة في حدث الورقة تقوم بعمل ترقيم تلقائي حيث بمجرد كتابة اي شيء في خلية Bمثلا تترقم الخلية A بالرقم 1 و بمجرد الكتابة في الخلية التي تليها تترقم الخلية الموالية و هكذا، هاهي المعادلة ارديها في حدث الورقة و ليس في الخلية مع الترقيم مثلا من الخلية A9الى غاية A40 و لكم مني كل الشكر و التقدير ((SI(C9="";"";SOUS.TOTAL(3;C$6:C9= رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 وعليكم السلام أخي الكريم زياد أفضل إرفاق ملف للعمل عليه وتوفيراً للوقت ولتتضح الصورة أكثر .. رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 14, 2016 الكاتب مشاركة قام بنشر أغسطس 14, 2016 شكرا لك استاذ ياسر اليك الملف فيه المطلوب بالضبط تحياتي الخالصة للجميع معادلة في حدث الورقة للترقيم التسلسلي.rar رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 السلام عليكم جرب هذا في حدث Change الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B9:B50"), Target) Is Nothing Then If Range("a" & Target.Row - 1) <> "" Then Range("a" & Target.Row) = Target.Row - 8 End If End Sub معادلة في حدث الورقة للترقيم التسلسلي.rar 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 جرب الكود التالي عله يفي بالغرض Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Column = 3 Then LR = Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Range(Cells(9, 1), Cells(LR, 1)) Rng.Formula = "=IF(C9="""","""",SUBTOTAL(3,C$9:C9))" Rng.Value = Rng.Value End If End Sub بما أن النسخة لديك على ما يبدو أنها فرنسية فقم باستخدام معادلتك في الكود مع مراعاة وضع النصوص بين أقواس تنصيص .. تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 14, 2016 الكاتب مشاركة قام بنشر أغسطس 14, 2016 انا جد مسرور على مرور عملاقين من عمالقة الاكسيل على موضوعي واشكر الاستاذين ربيع و ياسر على ايجابتهما الشافية الكافية ولكن يبقى خلل فقط عند ازالة سطر اود ان يعاد الترتيب اليا مثلا اذا كان هناك قيم من 1 الى 50 عند ازالة السطر 30 مثلا يعاد الترقيم اليا من 1 الى 49 ...حتى وان لم تجدو حل لهذا الاشكال فتبقى هذه لاكواد والله غاية في الدقة و الروعة وفرحتي بمروركم تكفيني 2 رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 دائما هناك حل مع الاكسل Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long: Lr = Cells(Rows.Count, "B").End(xlUp).Row Dim myRange As Range Dim cell As Range Set myRange = Range("B9:B" & Lr) If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 8 Next cell End If End Sub 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 أخي الكريم زياد يكفي أن تضيف سطر يمسح النطاق بدايةً من الخلية A9 وإلى نهاية النطاق بهذا الشكل Rng.ClearContents قبل سطر وضع المعادلة 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 14, 2016 الكاتب مشاركة قام بنشر أغسطس 14, 2016 شكرا اخوتي ولكن استاذ ربيع بعد عمل delet-supprimer لكل الخلايا تظهر قيم بالناقص في اعلى العمود هل يمكن ازالتها مثلا -1 -2 -3 وشكرا اساتذتي رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 افتقدناك استاذ ياسر .. اليوم دبت الحياة في المنتدى من جديد ^_^ كود اخر لاثراء الموضوع Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer For i = 9 To 1000 If Cells(i, 2) & "" = "" Then Exit For Cells(i, 1) = i - 8 Next End Sub 2 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أغسطس 14, 2016 مشاركة قام بنشر أغسطس 14, 2016 الاخ زياد777 حسما للموضوع شاهد المرفق Omar_1.rar 2 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 14, 2016 الكاتب مشاركة قام بنشر أغسطس 14, 2016 شكرا اخي عمر تسلم الايادي رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 15, 2016 الكاتب مشاركة قام بنشر أغسطس 15, 2016 (معدل) السلام على جميع لاخوة الافاضل ان امكن اخوتي لقد وجدت حل لها الاشكال من خلالكم و من خلال اكوادكم الرائعة واعمالكم الممتازة ولكن عندي طلب فيما يخص هذا الموضوع وهو تعديل على هذه الاكواد وجعلها مثلا بمجرد الكتابة في خلية c9 ترقم الخلية a9 وفي نفس الوقت تكتب عبارة في الخليةf9 مثلا :منتدى العمالقة- اوفيسنا وهكذا مع باقي الخلايا يعني ليس فقط f9 ...اعلم ان لا صعب يصعب على العمالقة . و الشكر موصول الى كل من ساهم معنا في هذا الموضوع.تقبلو مني اصدق مشاعر الحب تم تعديل أغسطس 15, 2016 بواسطه زياد777 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 15, 2016 مشاركة قام بنشر أغسطس 15, 2016 جرب التعديل التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Column = 3 And Target.Row > 8 Then Application.EnableEvents = False If Not IsEmpty(Target) Then LR = Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Range(Cells(9, 1), Cells(LR, 1)) With Rng .ClearContents .Formula = "=IF(C9="""","""",SUBTOTAL(3,C$9:C9))" .Value = Rng.Value End With Target.Offset(, 3).Value = "زياد777" End If Application.EnableEvents = True End If End Sub تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 15, 2016 الكاتب مشاركة قام بنشر أغسطس 15, 2016 شكرا يا استاذ ياسر عظمة على عظمة شكرا جزيلا اخي 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 السلام عليكم استاذ ياسر ولكن عند عمل delet لاي سطر يبقى اختلال التسلسل فيجب الذهاب عند الخلية التي يبدأ من اختلال التسلسل و عمل عليها كليك حتى يعاد التسلسل في الارقام كيف اجعل هذا الكود اكثر خفة اي يعمل بدون ان نلمس الورقة او عمل كليك عليها ....انا اقصد الكود الاخير في هذا الموضوع للاستاذ القدير ياسر...ولكم مني خاص عبارات الشكر و الامتنان. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 لإحداث تغيير بشكل تلقائي يلزم حدث .. والحدث المشهور في أوراق العمل إما حدث تغيير في الخلايا أو تحديد الخلايا .. لا يمكن أن يتم التنفيذ وتفعيل الحدث بشكل مباشر .. لابد من وجود قرينة للحدث حتى ينفذ الكود رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 استاذ ياسر هذا الكود للاستاذ ربيع شوقي يعمل بشكل جيد و يقوم بالمطلوب لو تفضلت و اضفت فقط شرط وضغ العبارة في الخلية f ...ولك مني جزيل الشكر (Private Sub Worksheet_Change(ByVal Target As Range Dim Lr As Long: Lr = Cells(Rows.Count, "c").End(xlUp).Row Dim myRange As Range Dim cell As Range (Set myRange = Range("c9:c" & Lr If Not Intersect(myRange, Target) Is Nothing Then For Each cell In myRange Range("a" & cell.Row) = cell.Row - 8 Next cell End If End Sub هاهي العبارة Target.Offset(, 3).Value = "زياد777" رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 ضع العبارة بعد الحلقة التكرارية وجرب بنفسك ..!! 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 شكرا استاذ ياسر العملية ناجحة 100/100 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 4 ساعات مضت, زياد777 said: شكرا استاذ ياسر العملية ناجحة 100/100 مين الجراح اللي عمل العملية ؟؟ أكيد إنت !! أنا عطيتك المشرط وإنت قمت بالعملية .. تسلم يا دكتور زيزو 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان