القيم السالبة

[osama.eassa]

السادة الاعزاء

تحية طيبة

يرجى العلم ان العمودa يحتوى على الحروف c ثم d ثم d على الترتيب والعمود b يحتوى على االارقام الاتية 10 ثم 100 ثم 1000 والمطلوب ان الارقام التى امامها حرف d تكون بالسالب اى تكون الارقام 100 تظهر فى نفس الخانة -100 و1000 تظهر فى نفس الخانة - 1000

مع خالص الشكر لاعضاء المنتدى

[طارق محمود]

السلام عليكم

أخي الكريم

أضف الكود التالي (في حدث الصفحة)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Column > 2 Then Exit Sub

LR = [A10000].End(xlUp).Row

    For i = 1 To LR

        If Cells(i, 1) = "d" Then

            Cells(i, 2) = -Abs(Cells(i, 2))

        Else

            Cells(i, 2) = Abs(Cells(i, 2))

        End If


    Next i


End Sub

فكرة الكود

في كل مرة ـ تأتي علي أي من خلايا العمود الأول أو الثاني (بالماوس أو بأزرار الكيبورد)

في كل مرة ، سيتم تشغيل برنامج فحص لخلايا العمود الأول ويضع أمام كل c موجب وأمام كل d سالب

تفضل المرفق وبه الكود

القيم السالبة.rar

[Ahmed Elbhiry]

احسنت باشمهندس طارق

[osama.eassa]

السيد المهندس / طارق محمود

تحية طيبة

يرجى العلم باننى مبتدى فى الاكسل وصعب على فهم الاكواد فهل من الممكن حلها بدوال الاكسل كما يرجى وضع اشارة سالب فقط بدون اقواس حيث ان هذا العمود سوف يجمع

مع خالص الشكر

[عبدالله المجرب]

السلام عليكم

للحل بالمعادلات ستحتاج عمود إضافي

[osama.eassa]

السيد المهندس / عبداللة المجرب

تحية طيبة

اشكرك على اهتمامك بالموضوع والرد فى الموضوع وارجو ان يكون الحل باستخدام دوال الاكسل بدون اضافة اعمدة

مع الشكر

[عبدالله المجرب]

وارجو ان يكون الحل باستخدام دوال الاكسل بدون اضافة اعمدة

عن نفسي انا اسف لا استطيع اضافة حل بالمعادلات دون عمود مساعد