اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by محمد ابو البـراء,

الردود الموصى بها

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

اضغط 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

 

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

20130603030126.png

 

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

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

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

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

20130603032012.png

 

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

20130603032109.png

 

 

لاحظ الفرق 

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

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

=sum(a2,b2)

لكن بالكود

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

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

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

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

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

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

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

الجمع.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

20130603030126.png

 

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

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

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

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

20130603032012.png

 

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

20130603032109.png

 

 

لاحظ الفرق 

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

في النطاق من "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: :fff: :fff:

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

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

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

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

الجمع-.rar

تم تعديل بواسطه محمد ابو البـراء
رابط هذا التعليق
شارك

  • 10 months later...
  • أفضل إجابة

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

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

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

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information