اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

تحية طيبة

يرجى العلم ان العمود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

رابط هذا التعليق
شارك

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

تحية طيبة

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

مع خالص الشكر

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information