ابو اياد ( الاسيوطى ) قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 السلام عليكم ورحمه الله وبركاته بسم الله الرحمن الرحيم وبه نستعين على كل شىء وقبل كل شىء ارجو ان يكون المطلوب واضح بالعنوان استدعاء بيانات بين تاريخين لصنف معين من شيت add الى شيت itrep شيت add يتم جلب اسم المورد من شيت vend وجلب اسم العميل من شيت cust وجلب اسم الصنف من شيت item واتمنى ان يكون الحل بالكود سهل وبسيط ومختصر حتى يسهل عليا التعلم ( اقرع ونزهى لا مؤخذه يا عم سعيد ) كما اود ان يكون الشرح بالتفصيل لما فى الكود جزء جزء زنقه زنقه والله اعلم بالخط الاخضر ولماذا يتم وضع الكود تاره فى ميدول واخرى فى ورقه لعمل واخرى فى الشيت نفسه واخرى فى فورم ما مميزات ذلك وما فائدتة وما الفرق اه نسيت طبعا بشيت itrep اسم الصنف بناء على الكود + والاهم رصيد اول المده فى المثال سيكون ان الله 1/3/2013 يعنى رصيد كل الحركات اللى حصلت خلال شهر 1 و 2 وان شاء الله دى اول مرحله من السؤال يارب يكون نفسوا طويل معايا ومحدش يزهق منى ولا ايه ياللى واعدنى كارته مخزن الكود.rar
أبو حنــــين قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 السلام عليكم اخي محمود يا ريت تعمل ارقام بلون مغاير مثلا ازرق او احمر للبيانات التي تريد ترحيلها بحيث تبين مصدرهذه البيانات و شرط اختيارها لتسهل على من اراد المبادرة بالحل
ابو اياد ( الاسيوطى ) قام بنشر ديسمبر 7, 2013 الكاتب قام بنشر ديسمبر 7, 2013 تم تعديل الملف مره اخرى وزياده توضيح المطلوب والله ما قصرت ههههههه عيونى ابو حنين مش بعاكس هى العسل اللى فى الصوره عسان لو كده ألحق اسوف سغلانه تانيه واكون نفسى كارته مخزن الكود.rar
أبو حنــــين قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 السلام عليكم تم عمل المطلوب مع بعض النقص لانني اعتقد ان البيانات غير كاملة في باقي الاوراق لذى لم اتمكن من حساب رصيد اول مدة كارته مخزن الكود.rar
mahmoud kamal قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 السلام عليكم تم عمل المطلوب مع بعض النقص لانني اعتقد ان البيانات غير كاملة في باقي الاوراق لذى لم اتمكن من حساب رصيد اول مدة ممكن الحل بالمعادلات بدل من الاكواد
mahmoud kamal قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 ممكن نشوف الحل بالمعادلات بدل من الاكواد لو سمحت
mahmoud kamal قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 السلام عليكم تم عمل المطلوب مع بعض النقص لانني اعتقد ان البيانات غير كاملة في باقي الاوراق لذى لم اتمكن من حساب رصيد اول مدة بارك الله فيك وجعل هذا العمل فى ميزان حسناتك
حمادة عمر قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 (معدل) السلام عليكم الاستاذ القدير الحبيب / أبو حنين بارك الله فيك وعدت اخي محمود فأوفيت بوعدك تقبل مرور وخالص تحياتي وبالنسبة لرصيد اول المدة اعتقد انه وعلي حسب فهمي للأمر فانه سوف يتم جلبه بنفس الطريقة التي قمتم باحضار اسم الصنف بها وبذلك سيتم زياادة الصف التالي الي الكود لاحضار وجلب رصيد اول المدة من صفحة item الي صفحة itrep Sheets("itrep").Range("K3") = Sheets("Item").Cells.Find(What:=Sheets("itrep").Range("B3")).Offset(0, 4) ارجو ان اكون قد فهمت صح !! تقبلول خالص تحياتي كارته مخزن الكود11.rar تم تعديل ديسمبر 7, 2013 بواسطه حمادة عمر 2
mahmoud kamal قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 السلام عليكم الاستاذ القدير الحبيب / أبو حنين بارك الله فيك وعدت اخي محمود فأوفيت بوعدك تقبل مرور وخالص تحياتي وبالنسبة لرصيد اول المدة اعتقد انه وعلي حسب فهمي للأمر فانه سوف يتم جلبه بنفس الطريقة التي قمتم باحضار اسم الصنف بها وبذلك سيتم زياادة الصف التالي الي الكود لاحضار وجلب رصيد اول المدة من صفحة item الي صفحة itrep Sheets("itrep").Range("K3") = Sheets("Item").Cells.Find(What:=Sheets("itrep").Range("B3")).Offset(0, 4) ارجو ان اكون قد فهمت صح !! تقبلول خالص تحياتي كارته مخزن الكود11.rar الرجاء الحل بواسطة المعادلات اذا امكن ذلك ولكم جزيل الشكر وانا سعيد بهذا المنتدى جدا ومع العلم ان هذه اول مشاركة لى
أبو حنــــين قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 جزاك الله خيرا اخي محمود كمال على مروركم ******************************************* اخي حمادة اعتقادك صحيح و الله اعلم فانا عندما وجدت اخي محمود كتب التالي : (( يتم تحديد رصيد اول المده من رصيد الصنف فى شيت item + الأضافاة - الصرف اللى فى شيت add )) لم استوعب الفكرة لنقص البيانات جزاك الله خيرا
حمادة عمر قام بنشر ديسمبر 7, 2013 قام بنشر ديسمبر 7, 2013 (معدل) السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك دائما متابع لمواضيعك وتقدم بها كل الروائع من اسلوبك الذي تتميز به ( السهل الممتنع ) جعل الله ذلك في ميزان حسناتك وسلامي الخاص جدا جدا لـ ( حنين وخديجة ) تقبل خالص تحياتي واحترامي تم تعديل ديسمبر 7, 2013 بواسطه حمادة عمر
ابو اياد ( الاسيوطى ) قام بنشر ديسمبر 7, 2013 الكاتب قام بنشر ديسمبر 7, 2013 الاساتذه الكبار معلمينى // ابو حنين // حماد عمر بارك الله فيكم وانا شاكر جدا اهتمامكم بالموضوع وبى شخصيا ولا اجد كلمات تعبر لكم عما بداخلى من سعاده وفرحه بهذا بالنسبه لما يخص الموضوع والمرفق الحمد لله الكود سهل ولكن ممتنع كما قالها استاذى حماده ولكن هو كذلك للمبتدئين مثلى ولكن ان شاء الله يتسع الوقت للفهم الجيد والتطبيق العملى الفورى على مثال اخر واتمنى من الله ان لا اخزل وان اصل بعون الله ثم عونكم الى مرادى ، فيما يخص رصيد اول المده فالموضوع سهل جدا وتم عمله من قبلى بالمعادلات بطريقتين فى موضوع كارت الصنف الذكى من توقيعى بأختصار شديد اذا كان تاريخ بدايه الفترة 1/1/2013 سيكون رصيد الصنف فى شيت ITREP مساوى لرصيد الصنف اول الفتره فى شيت ITEM اما اذا كان تاريخ بدايه الفتره مثلا 1/3/2013 اذن رصيد الصنف يساوى رصيد اول المده فى شيت ITEM ( + ) من شيت ADD الاضافه ( الوارد ومرتجع العملاء ) و ( - ) الصرف ( منصرف ومرتجع للموردين ) طبعا للتاريخ السابق لـ 1/3/2013 وعفوا أليكم الرابط للتذكره فقط مشاركه رقم 10# ( الاخ محمود كمال ) تنفيذا لطلب الاخ http://www.officena.net/ib/index.php?showtopic=49408 طلب اخر : ارجو ان يكون الترحيل مباشر بدون زر FIND اكتفى فقط بكتابه رقم كود الصنف لأحضار بياناته واذا كانت طريقه الزر اسهل من كتابه كود الصنف فمرحب بالسهل فنبقى عليها ففى الاول اريد ان اتعود على الاكواد وعلى السهل منها وفيما يخص شيت ADD هناك عده اكواد للموردين ارجو ان يتم استدعاء اسماء الموردين بناء عليها من شيت الموردين وكذلك للعملاء وكذلك للأصناف كلا من شيته المخصص له تقبلوا تحياتى
جلال الجمال_ابو أدهم قام بنشر ديسمبر 8, 2013 قام بنشر ديسمبر 8, 2013 استاذ / حماده عمر استاذ / ابو حنين اخى / محمود الاسيوطى تحياتى للجميع على الجهد المبذول _ منكم نتعلم _ بارك الله فيكم
ابو اياد ( الاسيوطى ) قام بنشر ديسمبر 8, 2013 الكاتب قام بنشر ديسمبر 8, 2013 السلام عليكم سعدت بمرورك الكريم اخى جلال اما بالنسبه لآبو كمال حبيبى من ايام الجيزه ( اعدادى وثانوى ) انت فينك يا معلم بجد واحشنى السنين فين ايامك طبعا انت عارف الدنيا خدتنا وكل واحد ملهى فى شغله وبيته وعلى العموم بنا حوار كبير بس مش دلوقتى وان شاء الله معاك فى اى حاجه قدر المستطاع عنينا ليك يابو كمال ، اعتقد ان الاعضاء مشغولين كان الله فى عونهم وهحاول على قد مقدر انى احاول تكملته بالكود من اللى تعلمته من الكود نفسه وربنا المعين وعلى فكره وبكل صرحه وطبعا لحرفيه كاتب الكود أستاذى ومعلمى // ابو حنين الكود سهل وبسيط وهناك اشياء سهله مثل i = row و x = colm متغيرات يتم تعريفها بس طبعا انا جديد ومبتدىء فى عالم الاكواد وهناك بعض الاشياء عرفتها كما هى DIM ,SH , CV اعتقد انها ثوابت الكود وبالفعل احتاج الى شرحها ايضا اوفسيت لم افهم مضونها مع 0 و 1
أبو حنــــين قام بنشر ديسمبر 8, 2013 قام بنشر ديسمبر 8, 2013 (معدل) السلام عليكم اخي محمود عندما تنظر الى الكود تجد الكلمات و الحروف التالية cv - Scv - x - L_itrep - Sh - L_add - i - Last_vend - Last_itrep - date1 - date2 - sCode و هذه كلها متغيرات يمكن تغييرها بحروف اخرى او كلمات اخرى و ليس شرطا ان تكون مكتوبة بهذه الضيغة بالذات و تعريف المتغيرات مهم في الكود ليصبح معروفا و يمكن استدعاؤه كما ان اختيار نوع المتغير مهم ايضا و لتعريف متغير ما نستعمل Dim ثم الكلمة او الحرف الذي تختارة ثم As ثم نوع المتغير مثلا : Dim r As Date اصبح الآن r متغير خاص بتاريخ معين و من غير المنطقي ان تكتب مثلا r = 1500 أو r = "Mahmoud" لان 1500 يمثل رقما من نوع Integer و ليس تاريخ ، كما ان محمود يمثل نصا من نوع String و ليس تاريخ و بالنسبة للدالة Offset عندما تكتب : Range("D10").Offset(0, 1) = 5 معنى هذا انك قلت للاكسل اكتب في الخلية E10 الرقم 5 و عندما تكتب : Range("D10").Offset(0, -1) = 5 معنى هذا انك تريد كتابة الرقم 5 في الخلية C10 و عندما تكتب : Range("D10").Offset(1, 0) = 5 معنى هذا انك تريد كتابة الرقم 5 في الخلية D11 و عندما تكتب Range("D10").Offset(-1, 0) = 5 معنى هذا انك تريد كتابة الرقم 5 في الخلية D9 هل وصلتك الفكرة الآن تقبل تحياتي تم تعديل ديسمبر 8, 2013 بواسطه أبو حنين
wahid-chaoui قام بنشر يوليو 1, 2017 قام بنشر يوليو 1, 2017 السلام عليكم ورحمة الله تعالى وبركاته ام بعد لدي ملف حملته من المنتدى واريد ان اضيف ورقة عمل خاصة بحركة الاصناف ولم اجد الحل لانني جديد في هذا المجال واليكم الملف عسى ان تنفعوني وبارك الله فيكم وجزاكم خيرا FACT.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.