معادلات الى اكواد

[الشيباني1]

أخواني الاعزاء تحية طيبه في الملف المرفق معادلات في الخلايا (g5:j10000) اتساءل عن امكانية الغاءها والاستغناء عنها باكواد تقوم بعملها مع الامتنان

معادلات الى كود.zip

[طارق محمود]

السلام عليكم

ممكن عن طريق دبل كليك علي الرقم في عمود الكمية

تحفز الكود التالي

أو ضعه في حدث الورقة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

rr = Target.Row: cc = Target.Column

t = Target.Value: p = Target.Offset(0, -1).Value

If rr < 5 Or cc <> 6 Or t = "" Or p = "" Then Exit Sub

On Error Resume Next

Set price = Range("M7: O14")


a = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 2)

b = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 3)



Cells(rr, cc + 1).Value = a

Cells(rr, cc + 3).Value = b


Cells(rr, cc + 2).Value = a * t

Cells(rr, cc + 4).Value = t * (a - b)

End Sub

أو حمل المرفق

ثم ضع اي رقم في عمود الكمية

ثم دبل كليك علي الرقم

تركت اول صف بالمعادلات للمرجع

ويمكنك طبعا تلغيها

معادلات الى كود.rar

[aly elhedewy]

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

اخى الفاضل

اتمنى ان تساعدنى فى معرفه كيفيه عمل الاكواد وكيف اتعلمها

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

وزادك علما زنورا

ومن علمنى حرفا صرت له عبدا

وشكرا لكم

اخيك فى الله

على الحديوى

[طارق محمود]

أخي علي

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

التعلم يحتاج الصبر والممارسة

عليك بدراسة المشاكل التي يعرضها الإخوة

وخاصة تلك التي تقترب من مجال عملك

ليسهل عليك فهمها والعمل بها

أيضا لتعلم الماكرو أو الكود بطريقة سهلة

ممكن تدرس موضوع أخونا الغالي العبقري هادى محمد المامون سالم

علي الرابط التالي

http://www.officena....opic=12203&st=0

وهناك الكثير من المواضيع بالمنتدي لهذا الغرض

إبحث وتلذذ بالأكواد

وفقنا الله وإياكم لما يحب ويرضي

تم تعديل أكتوبر 21, 2010 بواسطه TareQ M

[gamalin]

السلام عليكم

ممكن عن طريق دبل كليك علي الرقم في عمود الكمية

تحفز الكود التالي

أو ضعه في حدث الورقة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

rr = Target.Row: cc = Target.Column

t = Target.Value: p = Target.Offset(0, -1).Value

If rr < 5 Or cc <> 6 Or t = "" Or p = "" Then Exit Sub

On Error Resume Next

Set price = Range("M7: O14")


a = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 2)

b = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 3)



Cells(rr, cc + 1).Value = a

Cells(rr, cc + 3).Value = b


Cells(rr, cc + 2).Value = a * t

Cells(rr, cc + 4).Value = t * (a - b)

End Sub

أو حمل المرفق

ثم ضع اي رقم في عمود الكمية

ثم دبل كليك علي الرقم

تركت اول صف بالمعادلات للمرجع

ويمكنك طبعا تلغيها

ممتع سهل وبسيط وراااااااااائع جزاك الله خيرا وزادك من علمه ونفعك بما تعلم ونفع بك

[الشيباني1]

أخي العزيز ابداع ما بعده ابداع جزاك الرحمن خير الجزاء وادامك لنا مرجعا ، استفساران متروك الرد عليهما لمجالكم ، هل يمكن انزال البيانات التي تضمنها الكود الرائع عن طريق زر ؟ وهل يمكن ادخال المعادلتين في المرفق (العمودين AوL) ضمن الكود ، مع الامتنان والتقدير

معادلات الى كود2.zip

[طارق محمود]

السلام عليكم

أخي مرفق ماطلبت

وزيادة ممكن تعمل أكثر من بيان في نفس الوقت

تظلل الخلايا في العمود المطلوب ، ثم تضغط الزر

فيجري المطلوب علي كافة الصفوف التي ظللت عمودها

ولكن يبدو أن العمود الأخير ليس مضبوطا

أرجو مراجعته

إذا فيه شيء ، فإلي لقاء السبت

الوقت عندنا متأخر

تصبح عي خير

معادلات الى كود2.rar

[الشيباني1]

استاذنا العزيز وانت بخير انشاء الله وجعل الله ايامك راحة وهناء والى يوم السبت احببت ان استفسر عن :

- المعادلتان اللتان تضمنها العمودان (AوL)، هل بالامكان تضمينهما في الكود ؟ حيث لم يجر اي اجراء بشانهما .

- زر التشغيل وكيفية نسخه الى البرنامج الذي اعمل عليه ؟

- الفائده من (macro 1 )حيث لم اجد له اي تاثير في عمل الكود .

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

[الشيباني1]

استاذنا العزيز ملاحظة انتبهت اليها متاخرا وهي ان جميع اقيام الماده (E)في العمود (I)عند استخدام زر التشغيل هي (2500) مما اوحى اليكم ان المعادلات في العمود (L) كان فيها شك ارجو المراجعه مع الامتنان

[طارق محمود]

- المعادلتان اللتان تضمنها العمودان (AوL)، هل بالامكان تضمينهما في الكود ؟ حيث لم يجر اي اجراء بشانهما .

مش مضبوط

قبل تشغيل الزر ، إمحيهما ستجد الماكرو يحسبهما

- زر التشغيل وكيفية نسخه الى البرنامج الذي اعمل عليه ؟

من قائمة

View

ثم

Toolbar

ثم علم علي Control Toolbox

ومنها أضبط وضعية التصميم ثم أنقر الزر الذي تريد ادراجه

ثم أخرج من وضعية التصميم ثم دبل كليك علي الزر سيتحول المؤشر تلقائيا إلي الفيجوال بيزيك الخاص بالزر

ضع فيها الكود الذي تريد

- الفائده من (macro 1 )حيث لم اجد له اي تاثير في عمل الكود .

ليس له فائدة ، نسخته عندك بالخطأ

[الشيباني1]

استاذنا الكبير تحية طيبه مع شكري واعتزازي بكل ما تجودون به ارفق طيا" مثالنا مع ما تم الحصول عليه من خلال زر التشغيل والذي ارجو ان يكون لخلل في اجراءاتي مع الامتنان

معادلات الى كود3.zip

[طارق محمود]

السلام عليكم

أخي الكريم

الخلل ليس من اجراءاتك

بل من عندي

تفضل المرفق ، ان شاء الله كما تحب

timon2.rar

معادلات الى كود4.rar

[الشيباني1]

استاذنا العزيز الكلمات تعجز عن الشكر والامتنان زادكم الله من علمه وفضله وجزاكم خير الجزاء وادامكم لنا مرجعا