[mrastra]

السلام عليكم ورحمة الله
مرفق مثال للتعديل علية والمطلوب هو حاصل ضرa × b والتكرار لكل الخلايا
اللى حاصل انة بيجيب حاصل ضرب الخليتين لكن بدون تكرار لباقى الخلايا
السؤال الثانى : ازاى الكود يشتغل بمجرد فتح ملف الاكسل وليس بالنقر فوق ماكرو

المرفقات :

•  Book1.rar (6.41K)
  عدد مرات التحميل : 6

[AHMADHAMOOR]

اخي العزيز

تفضل المرفق

عساه ان يكون طلبك

المرفقات :

•  Book1.rar (7.25K)
  عدد مرات التحميل : 11

[TareQ M]

السلام عليكم

إستبدل الـ 1 في الكود بالـ i
في المواضع التالية بالأحمر
وإحفظ الكود في حدث الملف وليس الورقة
وغير إسم الكود ليكون Auto_open()

أنظر المرفق
إمسح البيانات في العمود C
ثم إحفظه وإعد فتحه ، سيعمل الكود أوتوماتيكيا

المرفقات :

•  Book1_2.rar (7.02K)
  عدد مرات التحميل : 14

This post has been edited by TareQ M: 31 July 2010 - 10:39 PM

[mrastra]

السلام عليكم ورحمة الله
اخى الكريم "ahmadhamooor" الف الف شكر على كجهزدك وحلك الرائع ولكن الكود صراحة جميل لكنة صعب على المبتدئين امثالى

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b1:b5000")) Is Nothing Then
On Error Resume Next
Target.Offset(0, 1).Value = Target.Offset(0, -1).Value * Target.Value

End If
End Sub

يحتاج الى شرح من حضرتك
اخى الكريم "tareqm"حل ولا اسهل منه لكن لو تكرمت علية وتقولى ازاى احفظ الكود فى حدث الملف وليس الورقة

[AHMADHAMOOR]

الاخ mrastra

عذرا لم انتبه انه يوجد كود بالملف

لذلك اعتقدت انك تريد طريقه للضرب في حاله الملف يكون شغال

فوضعت لك الكود

شكرا لك استاذ طارق على مرورك الجميل

[AHMADHAMOOR]

اخي الكريم

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

وما وضعته اخي العزيز طارق موجود في حدث الملف ، وهو باختصار في المكان الفارغ في VBE تحت مسميات SHEETS كليك يمين وتختار INSERT MODUELS
وتكتب به الكود، ولا يعمل الا اذا اغلقت الملف وفتحته مره اخرى( واقصد هنا الكود المرسل من اخي طارق)

اما ما ارسلته انا فهو في حدث الصفحه حيث انه يعمل والملف مفتوح حيث ان النتيجه تتغير تلقائيا بمجرد وضع القيمه في عمود A و عمود B

اما الشق الاول من السؤال فهو باختصار
المدى المختار هو في العمود B
TARGET.OFFSET(0,1).VALUE والمقصود هنا ازاحة سطر واحد الى اليمين ( والقصود هنا العمود C)
TARGET.OFFSET(0,-1).VALUE والمقصود هنا ازاحة سطر واحد الى اليسار( والمقصود هنا العود A)
TARGET.VALUE والمقصود هنا البقاء في نفس العمود ( والمقصود هنا العمود B)


TARGET.OFFSET(0,1).VALUE=TARGET.OFFSET(0,-1).VALUE*TARGET.VALUE


اعتذر منك ممكن شرحي ما يكون واضح كثيرا
ولكن الموضوع يحتاج منك مزيد من الجهد
والمنتدى ملئ بالشروحات الخاصه بالاكواد والمعادلات وغيرها الكثير

حياك الله

This post has been edited by AHMADHAMOOR: 31 July 2010 - 11:38 PM

[mrastra]

السلام عليكم ورحمة الله
جزاك الله خير وجعلة فى ميزان حسناتك