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

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


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


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

Preview




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

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



01-10-2019 07:02 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 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


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

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


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



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



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

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




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



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

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

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




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




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




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




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

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




02-10-2019 08:11 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 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
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 102
الاعجاب : 11
 offline 
look/images/icons/i1.gif تحويل المعادلات إلى أكواد Convert Formulas To VBA
لا أدري كيف اشكرك استاذنا ولا أملك إلا الدعاء لك ولوالديك بالفردوس الأعلى من الجنة اللهم آمين
 




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




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







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets YasserKhalil
11 555 YasserKhalil
كيف اصنع شيت اكسل لدرجات الطلاب بالمعادلات و يتم ربطه بشيت اخر لطباعة اكثر من شهادة تعبئة تلقائية Mostafa Adel
1 310 Mostafa Adel
تحويل المعادلات إلى قيمتها أبو سجده
8 323 أبو سجده
كتابة المعادلات بواسطة vba - application- formula احمد شريف
5 448 salim
عمل زر طباعه واخفاء المعادلات بدون حمايه الورقه ابو طيبه
5 395 YasserKhalil

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


 








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

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

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