اين يتم وضع الاكواد في اكسل 2007 عربي

[محمد ابو البـراء]

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

وكما موضح في العنوان اين اضع الكود

فهل هو يشبه المعادلات في وضعها ام له طريقة اخرى

بارك الله فيكم..

[احمد فضيله]

الاخ الفاضل الاستاذ / محمد

اضغط alt + f 11

سيتم فتح محرر الفيجوال بيزيك

 

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

 

http://www.officena.net/ib/index.php?showtopic=39323&page=1

 

و ستجد ايضا الكثير و الكثير من الشروحات بالمنتدى

[حمادة عمر]

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

استاذنا الغالي / احمد فضيله ( ابو يوسف )

[حمادة عمر]

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

استاذنا الغالي / احمد فضيله ( ابو يوسف )

[محمد ابو البـراء]

الاخ الفاضل الاستاذ / محمد

اضغط alt + f 11

سيتم فتح محرر الفيجوال بيزيك

 

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

 

http://www.officena.net/ib/index.php?showtopic=39323&page=1

 

و ستجد ايضا الكثير و الكثير من الشروحات بالمنتدى

السلام عليكم

أخي الفاضل الاستاذ / أحمد فضيلة

شكراً علي الرد ..

وبعتذر على تاخر شكري لك

والسبب في ذلك محاولة مني لانزال الدروس وتعلم شي

ولكن وبصراحة لم افهم شى او لم اجد ما اريد

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

وليس مقصودي الآن هو الاحتراف

فان امكن طريقة مختصرة مثلا

لو اردت  جمع خليتين كيف ادخل الكود وكيف احفظه

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

[ضاحي الغريب]

أخي الحبيب // محمد

بعد اذن أخي الحبيب الأستاذ/ أحمد فضيلة

لعملية الجمع بالكود او بكود المعادلة 

مثال بسيط كالتالي

 

وسوف اقوم  بجمع البيانات في العمود (( C )) بكود المعادلة والجمع في عمود ((D )) بالكود

ولاحظ الفرق بين الكودين

1-  الجمع بكود المعادلة 

Sub Sum_Formula()
Range("c2:c4").Formula = "=sum(a2,b2)"
End Sub

 

2- الجمع بالكود

Sub Sum_Code()
Dim myrng As Range, myc As Range
Dim i As Integer
Set myrng = Sheets(1).Range("d2:d4")
myrng.ClearContents
For Each myc In myrng
myc = Application.WorksheetFunction.Sum(Range("a" & myc.Row, Range("b" & myc.Row)))
Next myc
End Sub

 

 

لاحظ الفرق 

في الكود الأول وهو بالمعادلة 

في النطاق من "C2:C4" قم بوضع المعادلة التالية حاصل جمع العمودين A&B  

=sum(a2,b2)

لكن بالكود

الوضع مختلف حيث حددنا المتغيرات

ونطاق البيانات

والنتيجة في النطاق (D2:D4)

واتمني اكون قد وفقت في توصيل المعلومة لك

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

حاول تطبيق المثال بتغير النطاق 

والله ولي التوفيق

الجمع.rar

[محمد ابو البـراء]

أخي الحبيب // محمد

بعد اذن أخي الحبيب الأستاذ/ أحمد فضيلة

لعملية الجمع بالكود او بكود المعادلة 

مثال بسيط كالتالي

 

وسوف اقوم  بجمع البيانات في العمود (( C )) بكود المعادلة والجمع في عمود ((D )) بالكود

ولاحظ الفرق بين الكودين

1-  الجمع بكود المعادلة 

Sub Sum_Formula()
Range("c2:c4").Formula = "=sum(a2,b2)"
End Sub

 

2- الجمع بالكود

Sub Sum_Code()
Dim myrng As Range, myc As Range
Dim i As Integer
Set myrng = Sheets(1).Range("d2:d4")
myrng.ClearContents
For Each myc In myrng
myc = Application.WorksheetFunction.Sum(Range("a" & myc.Row, Range("b" & myc.Row)))
Next myc
End Sub

 

 

لاحظ الفرق 

في الكود الأول وهو بالمعادلة 

في النطاق من "C2:C4" قم بوضع المعادلة التالية حاصل جمع العمودين A&B  

=sum(a2,b2)

لكن بالكود

الوضع مختلف حيث حددنا المتغيرات

ونطاق البيانات

والنتيجة في النطاق (D2:D4)

واتمني اكون قد وفقت في توصيل المعلومة لك

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

حاول تطبيق المثال بتغير النطاق 

والله ولي التوفيق

بارك الله فيك أخي ضاحي الغريب

وشكراً على المساعدة

وشكراً على هذا الشرح المميز المدعوم بالصور

ولكن مشكلتي ليس في فائدة الكود ولكن المشكلة واضحة في العنوان

اين اضع الكود وخطوات وضعه.

بارك الله فيك

[ضاحي الغريب]

 

ولكن مشكلتي ليس في فائدة الكود ولكن المشكلة واضحة في العنوان

اين اضع الكود وخطوات وضعه.

بارك الله فيك

 

اخي الكريم // محمد

في سؤالك في المشاركة رقم (5)

 

 

وليس مقصودي الآن هو الاحتراف

 

فان امكن طريقة مختصرة مثلا

لو اردت  جمع خليتين كيف ادخل الكود وكيف احفظه

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

 

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

لكن اذا كنت تريد كيفية كتابة الكود

عليك بدورة الأستاذ / عبدالله المجرب

(بارك الله فيه وجزاه خيرا)

(( دورة شرح الفيجول بيسك للتطبيقات VBA))

فيها شرح ييسير وسلس ووافي

للفيجوال والاكواد وتسجليها

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

 

http://www.officena.net/ib/index.php?showtopic=39323

 

ومكتبة الموقع ملئية بالدورات من الصفر للاحتراف لاستاتذة الموقع ورواده

تقبل تحياتي

[محمد ابو البـراء]

بارك الله فيك استاذ/ ضاحي

وسامحني فانا مبتدي في الاكواد

ومن الغريب انني اخذت دورات في الاكسيل ولم اسمع عن الاكواد الا في منتداكم.

الامر الثاني : توصلت الى ما كنت اريده ولكن لي سوال أخر وهو قمت بعملية جمع بالطريقتين

وملاحظاتي هي

بالنسبة للمعادلة :عند تغيير اي رقم في الخليتين المراد جمعهم يتم تغيير حاصل الجمع

اما في الكود لا يتم تغيير حاصل الجمع في خلية حاصل الجمع ! لماذا ؟

[ضاحي الغريب]

 

بالنسبة للمعادلة :عند تغيير اي رقم في الخليتين المراد جمعهم يتم تغيير حاصل الجمع

اما في الكود لا يتم تغيير حاصل الجمع في خلية حاصل الجمع ! لماذا ؟

 

قم بوضع الكود في حدث الصفحة كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    Dim myrng As Range, myc As Range
Dim i As Integer
Set myrng = Sheets(1).Range("d2:d4")
myrng.ClearContents
For Each myc In myrng
myc = Application.WorksheetFunction.Sum(Range("a" & myc.Row, Range("b" & myc.Row)))
Next myc
Application.EnableEvents = True
End Sub

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

الجمع.rar

[محمد ابو البـراء]

قم بوضع الكود في حدث الصفحة كالتالي

 

 

جزاكم الله خيراً أخي الفاضل / استاذ ضاحي الغريب

وبعتذر لك على تعبك معي :fff:

اولاً : ما المقصود بحدث الصفحة

ثانيا : قمت بتغيير الارقام في العمود "a"

ولكن ما زال الوضع كما هو عليه

وهذا واضح في مرفقك الذى ارسلته بعد تعديلي للارقام ..

الجمع-.rar

تم تعديل يونيو 3, 2013 بواسطه محمد ابو البـراء

[محمد ابو البـراء]

(يا سلام لما صعيدي بيتعلم _وانا منهم طبعا _ )

( ابتسامة رقيقة )

هذا موضوع اخر ابتسمت عليه

عندما قرات المشاركات

استغربت جدا جدا على هذه العقلية

شعرت وكان في راسي حجر

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

ولكن لعل التشبيه الاول افضل

وعذراً لاخواني الصعايدة وانا منهم طبعا (اسيوطي)

وطبعا لا انسى الشكر

للاستاذ  الكريم // أحمد فضيلة

 الاستاذ والاخ الحبيب // ضاحي الغريب

والاستاذ  والاخ الحبيب// حمادة عمر