إنتقال للمحتوى

ابحث فى الموقع مع جوجل

بحث مخصص

تأكد من صحة الحديث قبل نشره



بحث عن:

جديــــــد New

شبكة محترفى أوراكل

<




صورة

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


أفضل إجابة محمد أبو البراء , 10 April 2014 - 06:50 PM

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

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

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

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

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

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

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

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

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

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

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

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

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

الذهاب إلى المشاركة الكاملة


  • من فضلك قم بتسجيل الدخول للرد
11 رد (ردود) على هذا الموضوع

#1 محمد أبو البراء

محمد أبو البراء
  • EMembers-1
  • 1461 مشاركة
  • Gender:Male
  • Location:مصر _ اسيوط
  • Interests:الحمد لله على نعمة الإسلام

تاريخ المشاركة 28 May 2013 - 03:33 PM

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

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

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

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


NukN5d.jpg


#2 احمد فضيله

احمد فضيله

    مراقب عام

  • مراقب عام
  • 3122 مشاركة
  • Gender:Male
  • Location:EGYPT

تاريخ المشاركة 28 May 2013 - 04:13 PM

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

اضغط alt + f 11

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

 

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

 

http://www.officena....ic=39323&page=1

 

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


{ إِنَّهُ مَن يَتَّقِ وَيِصْبِرْ فَإِنَّ اللّهَ لاَ يُضِيعُ أَجْرَ الْمُحْسِنِينَ } يوسف90

#3 حمادة عمر

حمادة عمر

    مشرف

  • مشرف
  • 5834 مشاركة
  • Gender:Male
  • Location:المنوفية - جمهورية مصر العربية
  • Interests:اعشق الاكسيل والتعامل مع الهارد وير وكل ما يتعلق بالكمبيوتر
    والشطرنج

تاريخ المشاركة 29 May 2013 - 12:07 AM

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

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


اللهم صلي علي سيدنا ((( محمد saws.gif ))) وعلي آله وصحبه اجمعين

 

اسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله )


************************************************************************************

UFK8d.gif

************************************************************************************
uFowm.jpg
************************************************************************************


كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت


لا تنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !!

علي الاكسيل ........... علي الباوربوينت


فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة ...


العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !!


هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل


طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة


( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات


طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة


طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة


طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة

طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة


استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013)

هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع


( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال


قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر في القائمة للعلامة القدير / Jaafar Tribak


قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة وسهله


************************************

****************************

****************

AYPxv.jpg


#4 حمادة عمر

حمادة عمر

    مشرف

  • مشرف
  • 5834 مشاركة
  • Gender:Male
  • Location:المنوفية - جمهورية مصر العربية
  • Interests:اعشق الاكسيل والتعامل مع الهارد وير وكل ما يتعلق بالكمبيوتر
    والشطرنج

تاريخ المشاركة 29 May 2013 - 12:07 AM

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

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


اللهم صلي علي سيدنا ((( محمد saws.gif ))) وعلي آله وصحبه اجمعين

 

اسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله )


************************************************************************************

UFK8d.gif

************************************************************************************
uFowm.jpg
************************************************************************************


كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت


لا تنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !!

علي الاكسيل ........... علي الباوربوينت


فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة ...


العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !!


هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل


طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة


( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات


طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة


طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة


طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة

طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة


استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013)

هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع


( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال


قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر في القائمة للعلامة القدير / Jaafar Tribak


قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة وسهله


************************************

****************************

****************

AYPxv.jpg


#5 محمد أبو البراء

محمد أبو البراء
  • EMembers-1
  • 1461 مشاركة
  • Gender:Male
  • Location:مصر _ اسيوط
  • Interests:الحمد لله على نعمة الإسلام

تاريخ المشاركة 03 June 2013 - 01:49 AM

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

اضغط alt + f 11

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

 

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

 

http://www.officena....ic=39323&page=1

 

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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


NukN5d.jpg


#6 ضاحي الغريب

ضاحي الغريب
  • مشرف
  • 1563 مشاركة
  • Gender:Male
  • Location:Egypt *&* KSA
  • Interests:((( إن لم تكن لك حسنة جارية فاعمل على ألا تكون لك سيئة جارية !!)))

تاريخ المشاركة 03 June 2013 - 03:17 AM

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

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

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

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

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   9.35كيلو   23 عدد مرات التحميل

  • محمد لطفى معجب بهذا

7ltw.png

images.jpg

 

 

8iC0Dd.jpg

 

 

 

 

RDyixh.png

 


#7 محمد أبو البراء

محمد أبو البراء
  • EMembers-1
  • 1461 مشاركة
  • Gender:Male
  • Location:مصر _ اسيوط
  • Interests:الحمد لله على نعمة الإسلام

تاريخ المشاركة 03 June 2013 - 10:13 AM

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

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

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

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

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)

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

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

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

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

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

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

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

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

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

بارك الله فيك


NukN5d.jpg


#8 ضاحي الغريب

ضاحي الغريب
  • مشرف
  • 1563 مشاركة
  • Gender:Male
  • Location:Egypt *&* KSA
  • Interests:((( إن لم تكن لك حسنة جارية فاعمل على ألا تكون لك سيئة جارية !!)))

تاريخ المشاركة 03 June 2013 - 10:27 AM

 

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

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

بارك الله فيك

 

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

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

 

 

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

 

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

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

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

 

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

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

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

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

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

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

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

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

 

http://www.officena....showtopic=39323

 

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

تقبل تحياتي


7ltw.png

images.jpg

 

 

8iC0Dd.jpg

 

 

 

 

RDyixh.png

 


#9 محمد أبو البراء

محمد أبو البراء
  • EMembers-1
  • 1461 مشاركة
  • Gender:Male
  • Location:مصر _ اسيوط
  • Interests:الحمد لله على نعمة الإسلام

تاريخ المشاركة 03 June 2013 - 12:14 PM

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

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

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

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

وملاحظاتي هي

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

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


NukN5d.jpg


#10 ضاحي الغريب

ضاحي الغريب
  • مشرف
  • 1563 مشاركة
  • Gender:Male
  • Location:Egypt *&* KSA
  • Interests:((( إن لم تكن لك حسنة جارية فاعمل على ألا تكون لك سيئة جارية !!)))

تاريخ المشاركة 03 June 2013 - 05:21 PM

 

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

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

 

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

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   9.88كيلو   19 عدد مرات التحميل

7ltw.png

images.jpg

 

 

8iC0Dd.jpg

 

 

 

 

RDyixh.png

 


#11 محمد أبو البراء

محمد أبو البراء
  • EMembers-1
  • 1461 مشاركة
  • Gender:Male
  • Location:مصر _ اسيوط
  • Interests:الحمد لله على نعمة الإسلام

تاريخ المشاركة 03 June 2013 - 11:16 PM

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

 

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

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

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

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

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

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

ملفات مرفقة


تم التعديل بواسطة محمد 28, 03 June 2013 - 11:16 PM.

NukN5d.jpg


#12 محمد أبو البراء

محمد أبو البراء
  • EMembers-1
  • 1461 مشاركة
  • Gender:Male
  • Location:مصر _ اسيوط
  • Interests:الحمد لله على نعمة الإسلام

تاريخ المشاركة 10 April 2014 - 06:50 PM   أفضل إجابة

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

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

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

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

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

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

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

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

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

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

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

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

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


  • أحمد أيمن معجب بهذا

NukN5d.jpg





0 عضو (أعضاء) يشاهدون هذا الموضوع

0 الأعضاء, 0 الزوار, 0 مجهولين