اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

قام بنشر

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

تحية طيبة

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

مع خالص الشكر

قام بنشر

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

تحية طيبة

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

مع الشكر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information