طلب تحويل معادله لكود

[طالب مدرسة أوفيسنا]

السلام عليكم

ان شاء الله بصحه وعافيه

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

تعمل المعادله لدي بشكل ممتاز ولكن تسبب بطء في الفتح والحفظ لذا قررت اتجه للاكواد

اذا كانت اخف بانتظار ارائكم

هذه معادلة التجميع

=W8&" "&V8&" "&U8&" "&R8&" "&Q8&" "&N8&""&B8&""

تم تعديل يوليو 12, 2010 بواسطه TareQ M

[طارق محمود]

السلام عليكم

أخي العزيز

يبدو ان عندك أخطاء في نقل المعادلة

فالأفضل إرفاق الملف

تم تعديل يوليو 12, 2010 بواسطه TareQ M

[بن علية حاجي]

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

أخي الكريم طارف، الصيغة التي وضعها الأخ .X8 هي كما يلي:

=W8&" "&V8&" "&U8&" "&R8&" "&Q8&" "&N8&""&B8&""

والسؤال الذي أطرحه لصاحب الموضوع هو: أين تريد وضع هذا الكود؟ وهل سيوضع في كل الخلايا من العمود؟؟

أخوك بن علية

[الحسامي]

السلام عليكم

اخي العزيز حسب ما فهمت من المعادلة من اخي الحبيب ابن علية

وعلى فرض وضع المطلوب في الخلية a1

الكود هو

[a1] = [W8] & " " & [V8] & " " & [U8] & " " & [R8] & " " & [Q8] & " " & [N8] & " " & [B8] & ""

والله أعلم

[طالب مدرسة أوفيسنا]

اعتذر على الخطأ في المعادله وهذا المرفق به المعادله

اخوي بن علية صحيح هذه هي المعادله

استاذي الكريم الحسامي

كيف يتم ضافة مثل هذا الكود

مع الشكر للجميع

تجميع.rar

تم تعديل يوليو 13, 2010 بواسطه x8.

[طالب مدرسة أوفيسنا]

بنتظار المساعده لا ستطيع ربطه بجمله شرطيه

بمعنى اداتوفر الشرط يعطيني تجميع مثل المعادله السابقه وفي حال عدم التوفر يعمل تجميع اخر

وشكرا

[الحسامي]

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

أخي الكريم أنت لم توضع ما هو الشرط الذي ذكرته

ولم تذكر جواب الشرط فيما لو لم يتحقق الشرط

هنا الملف لأضافة الكود السابق

وأرجو توضيح المطلوب بعمل المطلوب

تجميع.rar

[طالب مدرسة أوفيسنا]

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

الان اريد تطبيق الكود على جميع الصفوف بنفس الترتيب ايضا اريده الجمله الشرطيه بهذا الشكل الخليه h اذا كانت بهذا الشكل # يقرأها مع التجميعه ويكون ترتيبها في اول التجميعه من اليسار

واذاكانت اي رقم اخر يتم تجهلها بحيث يبقى التجميع كما هو ولا يضاف به اي شي

شكرا ومقدر لمجهودك وزادك الله من علمه

[الحسامي]

السلام عليكم

اخي الكريم

شاهد المرفق على حسب ما فهمت

الكود ينفذ على 100 سطر

تجميع معدل.rar

[طالب مدرسة أوفيسنا]

نعم هذا هو المطلوب وعمل احترافي ورائع

اريد منك شرح ولو موجز للكود اراء انك لم تستخدم اسماء الاعمده a,b,c وهذا مايجعل الامر صعب علي في حال اضفت عمود جديد او غيرت الترتيب لاعمده اخرى

ارجوا الشرح لكي استطيع تعريف عمد جديد على الكود في حال اضافه

اشكرك على هذا العمل يدل على الاحتراف في تصميم الاكواد

تم تعديل يوليو 18, 2010 بواسطه x8.

[طالب مدرسة أوفيسنا]

لازلة في انتظار المساعده وايضا اريد التحويل لاعمده بدلا من الصفوف

شكر ومقدر

[الحسامي]

السلام عليكم

اخي الكريم

وبدون زعل ... لكن انت في بداية الموضوع طلبك كان بناءاً على صف واحد

ثم تغير الطلب ليشمل كل الصفوف والآن تريد التغيير الى أعمدة

وكل حالة من الحالات لها برنامجها الخاص

مع العلم ان الكود بسيط ويشمل ثلاثة امور في الفيجول بيسك وهي

الجمل الشرطية

واستخدام الخلايا

وجملة الدوران for next

وهذه الامور تم شرحها بالتفصيل

ولو انت قمت بدراستها لما طرحت الموضوع اساسا ولحللت مشكلتك بنفسك

والمواضيع تجدها في التوقيع لدي

ويا اخي من اجل أن تستفيد راجع هذه الروابط مع القليل من الاجتهاد منك

ستلاقي أن طلبك بسيط

وعذرا اخي الكريم من طرح وجهة نظري

اخوك عماد الحسامي

[طالب مدرسة أوفيسنا]

السلام عليكم

اخي الكريم

وبدون زعل ... لكن انت في بداية الموضوع طلبك كان بناءاً على صف واحد

ثم تغير الطلب ليشمل كل الصفوف والآن تريد التغيير الى أعمدة

وكل حالة من الحالات لها برنامجها الخاص

مع العلم ان الكود بسيط ويشمل ثلاثة امور في الفيجول بيسك وهي

الجمل الشرطية

واستخدام الخلايا

وجملة الدوران for next

وهذه الامور تم شرحها بالتفصيل

ولو انت قمت بدراستها لما طرحت الموضوع اساسا ولحللت مشكلتك بنفسك

والمواضيع تجدها في التوقيع لدي

ويا اخي من اجل أن تستفيد راجع هذه الروابط مع القليل من الاجتهاد منك

ستلاقي أن طلبك بسيط

وعذرا اخي الكريم من طرح وجهة نظري

اخوك عماد الحسامي

اخوي عماد صحيح كلامك وانا لا اخذ الموضوع من هذه الزويه اطلقا ولا اخوفي اعجابي بموضيعك

انا وبصرح انا لاافقه شي في الاكواد وارها وكأنها طلاسم واعلم انا هذا قديضايقك اتجنب البحث متعمدا

تستغرب لماذا لانه وبصراح هذا المتندى بالمثابة مرجع للاكسل لا يوجد مثله بالوطن العربي ولما استعرض البحث اجد جميع او اغلب المواضيح تستوقفني

وارائ انها مهمه وهي كذلك وبصراحه انشغل عن ماانا بصدده هذا والله الصحيح خصوصا ان لدي برنامج 100 m حجمه بالمعادلات وتمام والفضل يعود لهذا المنتدى خلال عامين كاملين وانا استفيد منه في البدايه لا اعرف ماهو اكسل والان لدي برنامج واموري تمام

اردت التعويض بالاكواد من اهل الخبره كونها سوف تجنبني التخبيص بالبرنامج

اعطيتك السالفه من اولها ويمكن دوشت راسك بس هذا احترامي لك ولجميع القائمين على هذا المنتدى

ولا يوجد زعل كوني اعلم يقينا انها متعبه

[الحسامي]

السلام عليكم ....اخي الكريم

العذر ... فأنى لم أقصد بكلامي ما قد فهمته انت

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

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

الموضوع والتي قد يستفيد منها اخرين أو قد أشارك بفكرة جديدة قد تفيد

وكما ترى اخي الكريم فتراني أركز على المواضيع التعليمية بشكل خاص سواء هنا

في هذا المنتدى او غيره من المنتديات وذلك للنقص الحاد في هذا الجانب وبالذات

جانب ال VBA .

نعم موضوع الاكواد ليس سهل وكبير بالمقارنة مع الاكسل العادي ولكن مع القليل من

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

انا في يوم من الأيام من أجل فهم جزئية معينة أخذت مني ما يعادل 16 ساعة مستمرة أمام

جهاز الحاسوب حتى استطيع فهمها وفي النهاية فهمتها وتبين مدى سخافتها في الأخر .

والحمدلله هذا المندى يضم نخبة متميزة من المتميزيين خلقاً وعلماً وهدفهم واعمالهم واضحة

ولم أعهد أحداً منهم يتأخر في أي طلب سواء بحل مشكلة أو إيصال معلومة وكلا حسب أسلوبه

وهم ما يميزون هذا المنتدى ...

وعذراً مرة أخرى

[طالب مدرسة أوفيسنا]

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

فهمت من الشرح ان الحرف M يعني متغير واضح

وجدت في المثال لدي عدت حروف لم افهم ماذا تعني مثل

j , s , i

البافي تقريبا واضح

[الحسامي]

السلام عليكم

اخي الحبيب

For i = 1 To 100

هذ تعبير لاستخدام الاسطر حيث افترضنا ان الكود سيعمل على الصفوف من 1 وحتى 100

For j = 6 To 1 Step -1

هذ تعبير لاستخدام الاعمدة حيث البيانات لديك في الاعمدة الستة الاولى والترتيب المطلوب يبدأ من السطر السادس وحتى الاول ولذلك بدأت من 6 وانتهت ب 6 بتنقيص الرقم 1

s = s & "  " & Cells(i, j) & "  "

هنا يتم تجميع البيانات في الخلايا من 1 الى 6 مع اضافة المسافة بينهم

  If Cells(i, "h").NumberFormat = "0" Then

Cells(i, 7) = Cells(i, "h") & "  " & s

Else

Cells(i, 7) = s

End If

هنا الشرط اذا كان تنسيق الخلية في العمود h يتم اضافتها الى المجمع s

واذا كان التنسيق ليس المطلوب يتم طباعة المجمع بدون اضافة الخلية h

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

اخوك عماد الحسامي

[طالب مدرسة أوفيسنا]

واضح جزاك الله خير