طالب مدرسة أوفيسنا قام بنشر يوليو 12, 2010 مشاركة قام بنشر يوليو 12, 2010 (معدل) السلام عليكم ان شاء الله بصحه وعافيه اريد تحويل معادلة تجميع الخلايا بان تكون كود واحد استخدمه لجميع الاعمده تعمل المعادله لدي بشكل ممتاز ولكن تسبب بطء في الفتح والحفظ لذا قررت اتجه للاكواد اذا كانت اخف بانتظار ارائكم هذه معادلة التجميع =W8&" "&V8&" "&U8&" "&R8&" "&Q8&" "&N8&""&B8&"" تم تعديل يوليو 12, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 12, 2010 مشاركة قام بنشر يوليو 12, 2010 (معدل) السلام عليكم أخي العزيز يبدو ان عندك أخطاء في نقل المعادلة فالأفضل إرفاق الملف تم تعديل يوليو 12, 2010 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 12, 2010 مشاركة قام بنشر يوليو 12, 2010 السلام عليكم ورحمة الله أخي الكريم طارف، الصيغة التي وضعها الأخ .X8 هي كما يلي: =W8&" "&V8&" "&U8&" "&R8&" "&Q8&" "&N8&""&B8&"" والسؤال الذي أطرحه لصاحب الموضوع هو: أين تريد وضع هذا الكود؟ وهل سيوضع في كل الخلايا من العمود؟؟ أخوك بن علية رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 12, 2010 مشاركة قام بنشر يوليو 12, 2010 السلام عليكم اخي العزيز حسب ما فهمت من المعادلة من اخي الحبيب ابن علية وعلى فرض وضع المطلوب في الخلية a1 الكود هو [a1] = [W8] & " " & [V8] & " " & [U8] & " " & [R8] & " " & [Q8] & " " & [N8] & " " & [B8] & "" والله أعلم رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 13, 2010 الكاتب مشاركة قام بنشر يوليو 13, 2010 (معدل) اعتذر على الخطأ في المعادله وهذا المرفق به المعادله اخوي بن علية صحيح هذه هي المعادله استاذي الكريم الحسامي كيف يتم ضافة مثل هذا الكود مع الشكر للجميع تجميع.rar تم تعديل يوليو 13, 2010 بواسطه x8. رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 14, 2010 الكاتب مشاركة قام بنشر يوليو 14, 2010 بنتظار المساعده لا ستطيع ربطه بجمله شرطيه بمعنى اداتوفر الشرط يعطيني تجميع مثل المعادله السابقه وفي حال عدم التوفر يعمل تجميع اخر وشكرا رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 14, 2010 مشاركة قام بنشر يوليو 14, 2010 السلام عليكم ورحمة الله وبركاته أخي الكريم أنت لم توضع ما هو الشرط الذي ذكرته ولم تذكر جواب الشرط فيما لو لم يتحقق الشرط هنا الملف لأضافة الكود السابق وأرجو توضيح المطلوب بعمل المطلوب تجميع.rar رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 18, 2010 الكاتب مشاركة قام بنشر يوليو 18, 2010 اخوي الحسامي جزاك الله خير نعم هذا هو المطلوب وراح يوفر علي حجم كبير جدا لكوني اعيد كتابة المعادله في كل مره الان اريد تطبيق الكود على جميع الصفوف بنفس الترتيب ايضا اريده الجمله الشرطيه بهذا الشكل الخليه h اذا كانت بهذا الشكل # يقرأها مع التجميعه ويكون ترتيبها في اول التجميعه من اليسار واذاكانت اي رقم اخر يتم تجهلها بحيث يبقى التجميع كما هو ولا يضاف به اي شي شكرا ومقدر لمجهودك وزادك الله من علمه رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 18, 2010 مشاركة قام بنشر يوليو 18, 2010 السلام عليكم اخي الكريم شاهد المرفق على حسب ما فهمت الكود ينفذ على 100 سطر تجميع معدل.rar رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 18, 2010 الكاتب مشاركة قام بنشر يوليو 18, 2010 (معدل) نعم هذا هو المطلوب وعمل احترافي ورائع اريد منك شرح ولو موجز للكود اراء انك لم تستخدم اسماء الاعمده a,b,c وهذا مايجعل الامر صعب علي في حال اضفت عمود جديد او غيرت الترتيب لاعمده اخرى ارجوا الشرح لكي استطيع تعريف عمد جديد على الكود في حال اضافه اشكرك على هذا العمل يدل على الاحتراف في تصميم الاكواد تم تعديل يوليو 18, 2010 بواسطه x8. رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 20, 2010 الكاتب مشاركة قام بنشر يوليو 20, 2010 لازلة في انتظار المساعده وايضا اريد التحويل لاعمده بدلا من الصفوف شكر ومقدر رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم اخي الكريم وبدون زعل ... لكن انت في بداية الموضوع طلبك كان بناءاً على صف واحد ثم تغير الطلب ليشمل كل الصفوف والآن تريد التغيير الى أعمدة وكل حالة من الحالات لها برنامجها الخاص مع العلم ان الكود بسيط ويشمل ثلاثة امور في الفيجول بيسك وهي الجمل الشرطية واستخدام الخلايا وجملة الدوران for next وهذه الامور تم شرحها بالتفصيل ولو انت قمت بدراستها لما طرحت الموضوع اساسا ولحللت مشكلتك بنفسك والمواضيع تجدها في التوقيع لدي ويا اخي من اجل أن تستفيد راجع هذه الروابط مع القليل من الاجتهاد منك ستلاقي أن طلبك بسيط وعذرا اخي الكريم من طرح وجهة نظري اخوك عماد الحسامي رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 20, 2010 الكاتب مشاركة قام بنشر يوليو 20, 2010 السلام عليكم اخي الكريم وبدون زعل ... لكن انت في بداية الموضوع طلبك كان بناءاً على صف واحد ثم تغير الطلب ليشمل كل الصفوف والآن تريد التغيير الى أعمدة وكل حالة من الحالات لها برنامجها الخاص مع العلم ان الكود بسيط ويشمل ثلاثة امور في الفيجول بيسك وهي الجمل الشرطية واستخدام الخلايا وجملة الدوران for next وهذه الامور تم شرحها بالتفصيل ولو انت قمت بدراستها لما طرحت الموضوع اساسا ولحللت مشكلتك بنفسك والمواضيع تجدها في التوقيع لدي ويا اخي من اجل أن تستفيد راجع هذه الروابط مع القليل من الاجتهاد منك ستلاقي أن طلبك بسيط وعذرا اخي الكريم من طرح وجهة نظري اخوك عماد الحسامي اخوي عماد صحيح كلامك وانا لا اخذ الموضوع من هذه الزويه اطلقا ولا اخوفي اعجابي بموضيعك انا وبصرح انا لاافقه شي في الاكواد وارها وكأنها طلاسم واعلم انا هذا قديضايقك اتجنب البحث متعمدا تستغرب لماذا لانه وبصراح هذا المتندى بالمثابة مرجع للاكسل لا يوجد مثله بالوطن العربي ولما استعرض البحث اجد جميع او اغلب المواضيح تستوقفني وارائ انها مهمه وهي كذلك وبصراحه انشغل عن ماانا بصدده هذا والله الصحيح خصوصا ان لدي برنامج 100 m حجمه بالمعادلات وتمام والفضل يعود لهذا المنتدى خلال عامين كاملين وانا استفيد منه في البدايه لا اعرف ماهو اكسل والان لدي برنامج واموري تمام اردت التعويض بالاكواد من اهل الخبره كونها سوف تجنبني التخبيص بالبرنامج اعطيتك السالفه من اولها ويمكن دوشت راسك بس هذا احترامي لك ولجميع القائمين على هذا المنتدى ولا يوجد زعل كوني اعلم يقينا انها متعبه رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم ....اخي الكريم العذر ... فأنى لم أقصد بكلامي ما قد فهمته انت لكن بصراحة أنا عندي مشارك أوصل له معلومة قد يستفيد منها أفضل عندي من حل مئة مشكلة لذلك تجدني أهتم كثير بالمواضيع التي قد يستفيد منها صاحب الموضوع والتي قد يستفيد منها اخرين أو قد أشارك بفكرة جديدة قد تفيد وكما ترى اخي الكريم فتراني أركز على المواضيع التعليمية بشكل خاص سواء هنا في هذا المنتدى او غيره من المنتديات وذلك للنقص الحاد في هذا الجانب وبالذات جانب ال VBA . نعم موضوع الاكواد ليس سهل وكبير بالمقارنة مع الاكسل العادي ولكن مع القليل من الاجتهاد والصبر والتصميم والارادة وقبل كل شئ الاستعانة بالله ستتم الاستفادة بإذن الله انا في يوم من الأيام من أجل فهم جزئية معينة أخذت مني ما يعادل 16 ساعة مستمرة أمام جهاز الحاسوب حتى استطيع فهمها وفي النهاية فهمتها وتبين مدى سخافتها في الأخر . والحمدلله هذا المندى يضم نخبة متميزة من المتميزيين خلقاً وعلماً وهدفهم واعمالهم واضحة ولم أعهد أحداً منهم يتأخر في أي طلب سواء بحل مشكلة أو إيصال معلومة وكلا حسب أسلوبه وهم ما يميزون هذا المنتدى ... وعذراً مرة أخرى رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 20, 2010 الكاتب مشاركة قام بنشر يوليو 20, 2010 اخوي الحسامي اخذت بنصيحتك وراجعت الشرح الخاص بجملة الدوران فهمت من الشرح ان الحرف M يعني متغير واضح وجدت في المثال لدي عدت حروف لم افهم ماذا تعني مثل j , s , i البافي تقريبا واضح رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 20, 2010 مشاركة قام بنشر يوليو 20, 2010 السلام عليكم اخي الحبيب 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 ارجو ان اكون قد اوصلت المطلوب واي شئ اخر انا في الخدمة اخوك عماد الحسامي رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر يوليو 20, 2010 الكاتب مشاركة قام بنشر يوليو 20, 2010 واضح جزاك الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.