بمجر تسجيل رقم في خانة الدائن يظهر لي مسبوق بعلامة ناقص

[skyblue]

السلام عليكم ورحنة الله وبركاته

برجاء التكرم بالمساعدة وحسب المرفق

تفبلوا تحياتي

book12.rar

[جمال عبد السميع]

لايمكن عمل ذلك في نفس الخلية إلا عن طريق الكود أما بالمعادلات لايوجد غير ذلك

book12.rar

[skyblue]

انا اريد بواسطة الكود انه بمجرد ان اسجل رقم في خانة الدائن يكون الرقم مسبوق بعلامة ناقص وبشرط انه لو جمعت مبلغ المدين مع الدائن يظهر لي الفرق بين الاثنيين .

لانني عملت هه الطريقة بواسطة تنسيق خلية فاصبح عندما اسجل اي رقم في الحلية يكون مسبوق بعلامة ناقص . ولكن هذه العلامة للتمييز فقط . فعند الجمع لاينطرح الدائن من المدين

تحياتي

[skyblue]

up

[الـعيدروس]

السلام عليكم

حط هذا الكود في حدث الورقة

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

تم تعديل أكتوبر 24, 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)

End If

Next

End If

End Sub

في أمان الله

[skyblue]

اساتذتنا الافاضل شكرا على على هذه الاكواد الجميلة فعلا كل كود وله ميزة .

اشكرهم جميعا الاستاذ العيدروس والاستاذ الخالدي .

تحياتي لكم وكل عام وانتم بخير

[skyblue]

ارجوا التكرم والتفضل بالتعديل على الكود بحيث انه عند وضع رقم في الخلية d4 او الخلية f4 يظهر الرقم مسبوقا بعلامة -

تحياتي

book12.rar

[الـعيدروس]

السلام عليكم

تفضل

Private Const Ali_Sta As String = "-"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Intersect([D4:D10,F4:F10], 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