أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحويل المعادلات إلى أكواد Convert Formulas To VBA

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله كيف يمكن تحويل المعادلات إلى أكواد؟ كثيراً ما يطرح هذا التساؤل ..



01-10-2019 07:02 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 

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

إخواني وأحبابي في الله


كيف يمكن تحويل المعادلات إلى أكواد؟

كثيراً ما يطرح هذا التساؤل خصوصاً إذا كان الملف يحتوي على الكثير من المعادلات ، ويبدأ المستخدم يعاني من بطء وثقل الملف بسبب المعادلات الكثيرة ، ويبدأ في البحث عن الأكواد كبديل للمعادلات ، ولذا آثرت أن أقدم طريقة بدائية جداً وهي ليست طريقة احترافية ، ولكنها تؤدي الغرض لهذا الموضوع.

سنقوم بضرب مثال لمعادلة ترقيم في العمود الأول اعتماداً على المدخلات في العمود الثاني ، حيث يحتوي العمود الأول (النطاق A2:A11 على معالة ترقيم بسيطة)

J9fiN_001

بفرض أن لديك في ورقة العمل Sheet1 ، النطاق B2:B11 فيه مجموعة أسماء ، ولديك في النطاق A2:A11 معادلة تقوم بعملية الترقيم والمعادلة بهذا الشكل :

=IF(B2="","",SUBTOTAL(103,$B$2:B2))


والمطلوب تحويل المعادلة إلى كود والحصول على القيم فقط دون المعادلة ، أي يتم الحصول على نفس النتيجة وبنفس المعادلة دون الاحتفاظ بالمعادلة نفسها

الكود في الملف المرفق وتم شرح لأسطر الكود في الفيديو لكي يتبين لكم طريقة التعديل على الكود بما يتناسب معكم

شرح الكود كتابة لمن يتعثر عليه مشاهدة الفيديو
----------------------------------------------

السطر الأول تعريف المتغير lr لمعرفة رقم آخر صف به بيانات في العمود الثاني (عمود الأسماء)

السطر الثاني بدء التعامل مع ورقة العمل المسماة Sheet1 ونستخدم جملة With .... End With لتحقيق المطلوب وهو التعامل مع ورقة العمل Sheet1، وفائدة هذه الجملة أنها تختصر التعامل مع الجمل البرمجية حيث أنه بدلاً من أن تكتب في كل الأسطر Sheets("Sheet1")  في كل سطر للإشارة إلى ورقة العمل ، باستخدام جملة With ... End With ستقوم باستبدال الكلمة بنقطة فقط

السطر الثالث تعيين قيمة للمتغير lr وهذا يعتمد على العمود المطلوب معرفة رقم آخر صف به وهو العمود الثاني ، ويخزن المتغير رقم آخر صف للتعامل مع النطاق بدايةً من B2 إلى آخر صف به بيانات في العمود B

السطر الرابع جملة With داخل جملة With الأولى وهو للتعامل مع النطاق بدايةً من الخلية A2 إلى آخر خلية اعتماداً على العمود الثاني كما ذكرنا

السطر الخامس استخدام كلمة Formula لوضع المعادلة وتوضع المعادلة بالكامل بما في ذلك علامة يساوي بين أقواس تنصيص ، وتتم بعض التعديلات على المعادلة بالشكل التالي : الفاصلة المنقوطة في المعادلة تستبدل بفاصلة عادية ، وأقواس التنصيص الموجودة في المعادلة توضع بين أقواس تنصيص أخرى

السطر السادس يتم تحويل المعادلات التي تم إدراجها في السطر السابق إلى قيم

السطر السابع والثامن لإغلاق جملتي With وتنتهي بكلمة End With

وأترككم مع شرح الفيديو




*** إذا أعجبكم الفيديو لا تنسوا الضغط على زر إعجاب Like وعمل اشتراك بالقناة Subscribe وتفعيل زر الجرس ليصلكم كل جديد

r5g5o_YouTube


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: abdulwahed catran، ali mohamed ali، hassona229، محمود ابو الدهب، علي بطيخ سالم، السعيد الجزائري، مالك ماريه، عصام عبد الفتاح، حسن علي، sameh_lotfy،





01-10-2019 10:43 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1379
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 56
قوة السمعة : 6262
الاعجاب : 931
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
أحسنت استاذ ياسر بارك الله فيك وزادك الله من فضله

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


01-10-2019 02:13 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
بارك الله فيك أخي العزيز علي ومشكور على مرورك العطر





01-10-2019 07:45 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 220
قوة السمعة : 4266
الاعجاب : 555
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
بجد موضوع ولا ارع بارك الله فيك استاذى العزيز وزادك الله من علمه 
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


01-10-2019 07:48 مساء
مشاهدة مشاركة منفردة [4]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 111
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 235
الاعجاب : 96
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
جزاكم الله خيرا 
موضوع ذات الاهميه 
يرزقك الله الفردوس الأعلى من الجنه
انت ووالديك وعائلتك ومن كان له فضل عليك

أثارت هذه المشاركة إعجاب: YasserKhalil،




01-10-2019 07:53 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
أخي الحبيب محمود
أخي الحبيب حسونة
مشكور على مروركما العطر بالموضوع .. بارك الله فيكما

أثارت هذه المشاركة إعجاب: Abosaged،




02-10-2019 02:35 مساء
مشاهدة مشاركة منفردة [6]
علي بطيخ سالم
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 70
الاعجاب : 29
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
يا سلام الله عليك يا استاذ ياسر كم كنت ابحث عن هذه الطريقة بارك الله فيك استاذنا

أثارت هذه المشاركة إعجاب: YasserKhalil،




02-10-2019 02:44 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
بارك الله فيك أخي علي سالم والحمد لله أن وجدت ضالتك ويا رب تستفيد وتفيد غيرك

أثارت هذه المشاركة إعجاب: علي بطيخ سالم،




02-10-2019 06:34 مساء
مشاهدة مشاركة منفردة [8]
علي بطيخ سالم
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 70
الاعجاب : 29
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي علي سالم والحمد لله أن وجدت ضالتك ويا رب تستفيد وتفيد غيرك

جزاك الله خيراً استاذنا وأنا حاسس أن الدرس دا تم إعداده خصيصاً من أجلي بارك الله لك استاذنا لكن لي سؤال بالنسبة لدوال الصفيف كيف تنفذ بهذه الطريقة (يعني معروف ان دوال الصفيف لها نظام في الإدراج يعني لازم اضغط ثلاث مفاتيح مع بعض من أجل تفعيل المعادلة) يا ريت لو شرح للطريقة وعذراً على الإطالة وجزاك الله خيراً استاذنا
 

أثارت هذه المشاركة إعجاب: YasserKhalil،




02-10-2019 08:11 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
بارك الله فيك أخي العزيز علي
لو شفت الفيديو هتلاقيني استخدمت الخاصية Formula .. لما تيجي تستخدم معادلات الصفيف هتستخدم FormulaArray .. بس خلاص
بس بالنسبة لمعادلات الصفيف بيكون فيه تحفظ إنها لا تستخدم مع النطاق بالكامل في بعض الأحيان ..
عموماً جرب ولو واجهتك أي مشكلة اطرحها في موضوع جديد

أثارت هذه المشاركة إعجاب: علي بطيخ سالم،




02-10-2019 09:10 مساء
مشاهدة مشاركة منفردة [10]
علي بطيخ سالم
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 70
الاعجاب : 29
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
لا أدري كيف اشكرك استاذنا ولا أملك إلا الدعاء لك ولوالديك بالفردوس الأعلى من الجنة اللهم آمين
 

أثارت هذه المشاركة إعجاب: YasserKhalil،




02-10-2019 09:56 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
جزاك الله خيراً أخي علي سالم ومشكور على دعائك الطيب ولك بمثل ما دعوت لي وزيادة

أثارت هذه المشاركة إعجاب: علي بطيخ سالم،




02-10-2019 10:02 مساء
مشاهدة مشاركة منفردة [12]
علي بطيخ سالم
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 70
الاعجاب : 29
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
التجربة لم تفلح استاذنا مع  FormulaArray
 
  شششششششش.png   تحميل png شششششششش.png مرات التحميل :(1)
الحجم :(87.436) KB
  شسيشسيشيشسشيشسيشيشيشس.png   تحميل png شسيشسيشيشسشيشسيشيشيشس.png مرات التحميل :(0)
الحجم :(69.734) KB
 
  دالة التوزيع بعد ضبطها بالفيجوال.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(99.885) KB



تم تحرير المشاركة بواسطة :علي بطيخ سالم
بتاريخ:02-10-2019 10:16 مساء







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية تحويل المعادلات الى قيم من داخل الكود EM_ACC
10 117 YasserKhalil
حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets YasserKhalil
12 480 YasserKhalil
إدراج التاريخ والوقت الحالي باستخدام المعادلات والأكواد Insert Date And Time Stamp YasserKhalil
2 111 YasserKhalil
اخفاء المعادلات فقط و حمايتها بشكل نهائي مع امكانية حماية باقي الخانات عند ضفط زر مخصص للقفل sedmed
13 312 محمود ابو الدهب
حساب العمر بتاريخ الميلاد بالمعادلات Calculate Age By Birth Date Using Formulas YasserKhalil
4 157 YasserKhalil

الكلمات الدلالية
تحويل ، المعادلات ، أكواد ، Convert ، Formulas ،


 







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



الساعة الآن 01:25 مساء

أعلن هنا
أعلن هنا
أعلن هنا