skyblue قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 السلام عليكم ورحمة اله وبركاته الاساتذة المشرفين والاعضاء الافاضل المحترمين في الملف لمرفق لدي في حدث الورقة كودين بمسمى واحد : Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If [e2].Value > 0 Then ActiveSheet.Shapes("button 1").Visible = True Else ActiveSheet.Shapes("button 1").Visible = False End If End Sub Private Const Ali_Sta As String = "-" Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Range("E7:E13"), Target) Is Nothing Then If Target.Value > 0 Then Target.Font.Color = RGB(255, 0, 0) Target.Value = Ali_Sta & Target.Value Exit Sub End If End If End Sub فما الحل في هذا التعارض ؟؟؟ book12.rar
أبو أنس حاجب قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله جرب وضع الكودين مع بعض بهذا الترتيب طبعاً أستبدلت هنا كودك الخاص بالتحسس بين الدائن والمدين (والذي هو على ما أظن للأستاذ الفاضل عباد العيدروس حفظه الله فقط هنا للتنوع) بكود الأستاذ الفاضل عبد الحافظ الخالدي حفظه الله. أو انسخ كودك بالترتيب الآخر بعد هذا الكود أتمنى أن يضبط معك Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [D7:E13]) Is Nothing Then For Each cl In Intersect(Intersect(Target, [D7:E13]).EntireRow, [D7:E13]).Columns(2).Cells If CStr(cl.Offset(0, -1)) = "مدين" Then If IsNumeric(cl) Then If cl <> Abs(cl) Then cl.Value = Abs(cl) ElseIf CStr(cl.Offset(0, -1)) = "دائن" Then If IsNumeric(cl) Then If cl <> (Abs(cl) * -1) Then cl.Value = (Abs(cl) * -1) Target.Font.Color = RGB(255, 0, 0) End If Next End If On Error Resume Next If [e2].Value > 0 Then ActiveSheet.Shapes("button 1").Visible = True Else ActiveSheet.Shapes("button 1").Visible = False End If End Sub هنا كودك: Private Const Ali_Sta As String = "-" Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Range("E7:E13"), Target) Is Nothing Then If Target.Value > 0 Then Target.Font.Color = RGB(255, 0, 0) Target.Value = Ali_Sta & Target.Value Exit Sub End If End If On Error Resume Next If [e2].Value > 0 Then ActiveSheet.Shapes("button 1").Visible = True Else ActiveSheet.Shapes("button 1").Visible = False End If End Sub أذا لم يضبط معك فقد حاولت فقط المساعدة أبو أنس
skyblue قام بنشر نوفمبر 10, 2012 الكاتب قام بنشر نوفمبر 10, 2012 الفكرة جميلة وحبك للمساعدة كان هو الاجمل اخي ابو انس . ولقد جربت الطريقة ولكن الاكواد لم تعمل .
خالد الشاعر قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 استاذ سكاى جرب الملف بعد دمج الكود ارجو ان يعمل معك book12.rar
skyblue قام بنشر نوفمبر 10, 2012 الكاتب قام بنشر نوفمبر 10, 2012 الاستاذ khhanna شكرا على الحل استفدت من اختصارك للكودين مع الشكر . ايضا اعتذر للاستاذ ابو انس فعندما طبقت التعديل الذي قام به اصبح الملف يعمل بكفاءة لكن الغلط كان مني عند نسخي للكود . المهم الشكر موصول للاستاذين فقد استفدت من الطريقتين التي بهما قاما بتخطي تلك المشكلة حفظكما الله من كل شر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.