إخراج مخزني بالكود

[غسان العبيدي]

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

هذه مشاركة أسأل الله أن تنال رضاكم، وينتفع بها بعض الاخوة.

في الخلية G1 لدي القيمة 10  [حاول تطبيق المثال يدوياً]

إذا أدخلت في الخلية H1 القيمة 5

وأردنا بصيغة معينة إجراء عملية طرح، هكذا (القيمة في الخلية G1 - القيمة في الخلية H1)

ينبغي أن تكون الخلية H1 فارغة

ولو أردنا مرة أخرى وضع القيمة 4 في الخلية H1 يجب أن تحدث عملية الطرح نفسها

لتصبح قيمة الخلية G1 تحتوى القيمة 1 أي (5 - 4)

وحتما تصبح الخلية H1 فارغة

عملياً، لا يمكن حل مثل هذه الادخالات من خلال صيغة أكسل..

ولكن تكون ممكنة بالكود في الملف المرفق.

تحياتي.                

إخراج مخزني بالكود.rar

2003إخراج مخزني بالكود.rar

تم تعديل أبريل 23, 2015 بواسطه GhassanFd

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب غسان وجزاك الله خير الجزاء

هو دا الشغل .. طلع المستخبي يا كبير

 

ممكن نختصر الكود الرائع اللي قدمته بالشكل ده

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim I As Long
    If IsNumeric(Range("C2,C3,C4,C5,C6,C7,C8,C9,C10").Value) Then
        For I = 2 To 10
            Range("B" & I).Value = Range("B" & I).Value - Range("C" & I).Value
        Next I
        Range("C2:C10").Value = ""
    End If
End Sub

تقبل تحياتي

[غسان العبيدي]

الأخ الحبيب الأستاذ: ياسر

جزاك الله خيراً.. يا مُعَلّمي

بوركت لاختصارك الكود

..تعرفني.. دائماً أختار الطريق الصعب..

......سلمت يداك......

[ياسر خليل أبو البراء]

الكسول دائماً هو الذي يختار الطريق السهل .. ولذا تجدني أختاره

أما أنت أخي غسان فيبدو أنك نشيط وتحب الطرق الوعرة ، وهذا يدل على قوة تحمل ومثابرة وهذا أمر مرغوب فيه

تقبل تحياتي

[غسان العبيدي]

حبيبي ( أبو البراء)

والعكس صحيح.. ولا مزيد..

لأني لا أستطيع مجاراتك.

دمت بخير، ومحبة.