ياسر خليل أبو البراء

أخي الكريم أسامة يرجى تغيير اسم الظهور للغة العربية جرب الدخول لمحرر الأكواد عن طريق Alt + F11 ، وأدخل الكود التالي Sub LastAuthor() With Range("XFA1") .Value = ThisWorkbook.BuiltinDocumentProperties("Last Author") .NumberFormat = ";;;" End With End Sub ثم في ورقة العمل ستجد اسم صاحب معد العمل في الخلية XFA1 ولكنه غير ظاهر .. يمكنك وضع الاسم في أي خلية تريدها .. سيظهر معك فقط في شريط المعادلات إذا أعجبك الحل قم بدعمي من خلال تحميل الملف المرفق حمل الملف المرفق من هنا تقبل تحياتي

اخي الكريم محي الدين ارفق الملف الذي تعمل عليه لأحاول الإطلاع على الكود ..لم أرى في الكود أنك قمت بحلقة تكرارية .. إنما وضعت القيم لكل ورقة عمل بشكل منفصل وبخصوص هذا السطر myData = Sheet1.Range("A2:A" & lr1) ضع في نهايته كلمة Value مسبوقة بنقطة ويرجى عند إرفاق الكود إرفاقه بدون الشرح لتكون الأسطر أسهل في القراءة ... في انتظار ملفك المرفق لمحاولة التعديل عليه إن شاء الله تقبل تحياتي

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

جزاكم الله خيراً أخي الحبيب سليم وبارك الله فيك وننتظر حلول أخرى من الأخوة الأعضاء .. على الجميع البحث في الأمر لمزيد من الاستفادة لأن لما يكون واحد بس اللي بيبحث غير لما الكل بيبحث .. تقبلوا تحياتي

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

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

أخي الكريم ابن بنها أول سطر طويل لأنه يحتوي على اسم الإجراء الفرعي وهذا الإجراء لا يطبق بشكل مباشر بل يتم استدعائه من إجراء آخر (مثل الدوال المعرفة) ولذا تجد السطر طويل ويحتوي على بارامترات أي مدخلات يقوم المستخدم بإدخالها .. والمدخلات هي رقم الصف المراد نسخه ورقم آخر عمود تريد التعامل معه .. لاحظ الإجراء الفرعي المسمى DoIt ستجد الأسطر تعتمد على هذا الإجراء الفرعي الأول المسمى CopyRow .. بالنسبة للخاصية Resize قم بالدخول عى فهرس الموضوعات الخاصة بي وابحث عن الموضوع الذي يشرح الخاصية بالتفصيل ..ابحث عن كلمة Resize لكي تجد الموضوع بشكل أسرع رابط فهرس الموضوعات من هنا ادرس الكود بشكل جيد وإذا صادفك أي سطر غير مفهوم فلتخبرنا به وإن شاء الله نفيدك بقدر ما نستطيع تقبل تحياتي

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

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

بارك الله فيك أخي الحبيب سليم يرجى مراجعة الموضوع ..ملفك جميل جداً ولكنه ليس المطلوب بالضبط عندنا رقمين فقط 1 و 2 ..المطلوب عمل تشكيلة بكل الاحتمالات .. والنتائج المتوقعة مرفقة في المشاركة الأولى بما لا يدع مجالاً للتخمين تقبل تحياتي

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

وعليكم السلام لقد أخبرتك أن الدالة لها بارامترات ولابد من إدخال البارامترات الخاصة بها أقترح عليك عمل جدول بالشروط كلها في ورقة عمل واستخدام دالة Vlookup أو Index .. أو قم بجمع كل الشروط الممكنة في خلية لتكون جدول يمكنك الاعتماد عليه .. لابد من أن هناك لتبسيط الأمر اطرح شروطك لعلنا نجد طريقة لمساعدتك بها

أخي العزيز أحمد جزيت خيراً على محاولاتك المستمرة وهذا ما أنتظره من كل الأعضاء بالمنتدى عليك المحاولة وليس عليك إدراك النجاح

أخي الغالي عبد العزيز بارك الله فيك وجزيت خيراً .. لكم أسعدتني كلماتك ومرورك العطر بالموضوع تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله وبركاته إخواني الكرام انشغلنا قليلاً ولم يذكرني أحد بموضوع الأسبوع الخامس .. عموماً كموضوع للبحث : بفرض أن لديك الأرقام 1 ، 2 .. المطلوب عمل معادلات أو أكواد لاستخراج كل القيم المحتملة لهذين الرقمين النتائج المتوقعة ستكون كالتالي : 1111 1112 1121 1122 1211 1212 1221 1222 2111 2112 2121 2122 2211 2212 2221 2222 تقبلوا تحياتي

جزيت خيراً أخي الحبيب مهند مشكور على مرورك العطر بالموضوع وأرجو أن تكون قد استفدت منه بشكل كبير تقبل تحياتي

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

دور في الكود على +1 وشيل الجزء ده .. حاول تتبع أسطر الكود لتفهم كيف يسير الكود أخي الكريم ناصر Ws.Range("A" & sRow + 1).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents

بالنسبة للسطر الذي يظهر فيه الخطأ ألا وهو Call CalTh2 طالما أن الدالة لها بارامترات فلابد من كتابة البارامترات الخاصة بالدالة .. أقترح عليك محاولة عمل ورقة عمل تدرج فيها جدول بالشروط بدلاً من هذا الكم الهائل من الشروط ..

إذاً فلتقم بجمع الشروط في دالة واحدة .. رغم أنني جربت استخدام كلمة Call للاستدعاء .. ونجح الأمر Function Test() Call Hello Test = Application.UserName End Function Function Hello() MsgBox "Hello" End Function يبدو أن هناك تعارض في الشروط

لما لا تقوم بجمع الشروط في دالة واحدة؟! صراحة لم أجرب قبل استدعاء دالة من دالة أخرى ، رغم أنه من المنطقي أن تتم بسهولة ، ربما الخطأ يرجع إلى أنك تستخدم نفس المتغيرات في الدالتين .. طيب جرب تغير في المتغيرات في الدالة الثانية يعني بدلاً من a, x, y, d, e خليها a1,x1,y1,d1.e1

أخي الحبيب أحمد هل النسخة التي تعمل عليها هي نفس النسخة الموجودة الرابط الخاص بها في الموضوع الأصلي لأخونا ياسر العربي ..؟؟ نريد توحيد النسخة حتى نتلافى الأخطاء أو على الأقل حتى يكون الخطأ عند الجميع في حالة وجود خطأ .. ميبقاش كل واحد في حاله !! وكل واحد عنده أخطاء غير اللي عند التاني تقبل تحياتي

أخي الكريم ناصر الموضوع أبسط مما تتخيل .. يمكنك مع نهاية الكود المسمى DoIt أن تضع السطر التالي Sheets("بيانات الطلبة").Activate عند إضافة ورقة جديدة يمكنك التعديل في الكود بإضافة سطر بحيث يكون بهذا الشكل CopyRow "اسم ورقة العمل", رقم الصف المراد نسخه, رقم آخر عمود تريد التعامل معه غير ما يلزم ليعمل معك الكود بعد التعديل عليه حيث أن الإجراء المسمى CopyRow يليه "اسم ورقة العمل بين أقواس تنصيص" ثم فاصلة ثم اذكر رقم الصف المراد نسخه ، وقد تم عمل المطلوب بهذا الشكل لأن رقم الصف غير ثابت في كل أوراق العمل ثم فاصلة ثم اذكر رقم آخر عمود به بيانات وهذا أيضاً قد تم عمله بهذا الشكل نظراً لوجود خلايا مدمجة والعمود متغير من ورقة إلى أخرى .. فتم وضع الإجراء بهذا الشكل ليكون مرن مع أي ورقة عمل تقبل تحياتي

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

أخي الكريم ميدو الحمد لله أن تم المطلوب على خير .. يرجى تغيير اسم الظهور بحيث يعبر عن شخصكم الكريم ..أو استبدل الرقم 63 بلقبك .. نحب أن نتعرف على شخصكم الكريم تقبل تحياتي