كيف يمكن كتابة معادلة فى خلية معينة بواسطة الكود

[hsa100]

اخوانى الاعزاء

كيف يمكن كتابة معادلة فى خلية معينة بواسطة الكود.

واشكر لكم اهتمامكم.

[Almohajeer_2004]

السلام عليكم

اخواني كذلك انا بحاجه لجواب عن نفس السؤال

وجزاكم الله كل خير

[علي السحيب]

هل تقصد أن يتم كتابة الصيغة نفسها داخل الخلية .. أو نتيجة الصيغة فقط.

إذا كانت لديك صيغة جاهزة .. ضعها هنا .. وإن شاء الله نزودك بما تريد

[hsa100]

اخى الكريم علي السحيب

كل عام وانتم بخير .. اشكر لك اهتمامك ومرفق لكم مثال يعبر عن المشكلة

حقيقة كنت اقصد كتابة الصيغة فى الخلية ..

لكن اخى الكريم لو تكرمت بعرض الفكرتين للاستفادة اكون ممتن لكم كثيرا.. و بارك الله فيك .

example1.rar

تم تعديل أكتوبر 13, 2006 بواسطه hsa100

[علي السحيب]

تم التعديل على المرفق بما يتناسب مع إحتياجاتك،

__________________________________________.rar

[hsa100]

Private Sub Worksheet_Change(ByVal Target As Range)
TA = Target.Address
If [A6] <> "" And TA = "$B$6" Or TA = "$C$6" Then
With ورقة2.Columns(1).Rows(65536).End(xlUp)
            .Offset(1, 0) = ورقة1.[A6]
            .Offset(1, 1) = ورقة1.[B6]
            .Offset(1, 2) = ورقة1.[C6]
End With
    [A6:C6].ClearContents
 End If
End Sub

اخى الكريم على السحيب

بصراحة .. اكثر من رائع

لكنى اريد ان افهم ما دور كل دالة فى هذا الكود.

بالاضافة الى اننى اريد اسماء بعض المواقع التى يمكن ان اجد فيها جميع الدوال الخاصة بالـ vba

هذا اذا لم اثقل عليك .. واشكر لكم اهتمامكم .. بارك الله فيكم.

تم تعديل أكتوبر 14, 2006 بواسطه hsa100