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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





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

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



01-10-2019 07:02 صباحا
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 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



إعداد وتقديم / ياسر خليل أبو البراء
 
 
  T4031_Convert Formulas To VBA Tutorial YasserKhalil Excel-Egy.rar   تحميل rar مرات التحميل :(55)
الحجم :(16.798) KB


01-10-2019 10:43 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
أحسنت استاذ ياسر بارك الله فيك وزادك الله من فضله
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

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

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

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

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

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

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




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


 










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

الساعة الآن 04:29 صباحا