نجوم المشاركات

بسم الله الرحمن الرحيم الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم الدرس الثانى من علمنى كيف اصطاد شرح مبسط عن كيفية عمل كود ترحيل من خلايا متفرقه بورقه عمل الى ورقة عمل اخرى بناء على طلب الاخ الكريم / بيف الدين حسام يريد معرفه كيفية عمل كود ترحيل من سند قبض الى شيت الخزينة كما هو موضح بالصور المطلوب ترحيل الخلايا المظلله باللون الاصفر بورقه عمل (توريد) الى ورقة عمل حركة الخزينة اولا : الضغط على ALT+F11 لفتح محرر الاكواد ثم من قائمة insert نختار مودويل جديد سيظهر لنا شاشة بيضه هنبداء بسم الله كتابة الكود Sub ترحيل() End Sub السطر الاول هو الاعلان عن بداية الكود sub يلية اسم الكود وهو ترحيل يلية () يعنى فتح قوس ثم غلقه فبمجرد كتابة السطر الاول سوف يتم ظهور السطر الثانى وهو End sub أنا عايز كل واحد يكتب الكود بنفسة مش ينسخ / من فضلك عايزك تكتب ثانيا : كتابة هذا السطر Sub ترحيل() Application.ScreenUpdating = False End Sub هذا السطر يعنى تثبيت الشاشه عند الترحيل ( يعنى عدم اهتزاز الشاشه اثناء تطبيق الكود ) ثالثا : ايه المطلوب هو ترحيل الخلايا المظلله باللون الاصفر بورقه عمل توريد الى ورقة عمل حركة الخزينة اذن الشيت اللى هتروح له البيانات هو شيت حركة الخزينة وهو اسمه حسب الملف المرفق وكما هو موضح بالصورة Sheet4 وليس حركة الخزينة ملحوظه/عند استخدم اسم شيت باى كود يفضل كتابة اسم الشيت الثابت كما هو بمحرر الاكواد لانه احتمال تغيير اسم الشيت من (حركة الخزينة) الى (قاعدة البيانات )مثلا فى هذه الحاله لا يعمل الكود نرجع للكود بتاعنا ونضيف الاتى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 End With End Sub ما تم اضافته هو With Sheet4 كلمة With معناها الحرفى ( مع) أى مع الشيت Sheet4 لماذا استخدمنا Sheet4 وليس ( حركة الخزينة) لان لو كتبنا (حركة الخزينة With) وجيت حضرتك وغيرت اسم الشيت من حركة خزينة الى قاعدة البيانات مثلا لا يتغير اسم الشيت فى محرر الاكواد فهو هيظل ثابت باسم Sheet4 وفى هذه الحاله لا يعمل الكود لانه هيبجث عن شيت حركة الخزينة هيكون غير موجود لكن لو استخدمت With Sheet4 مهما تغير اسم الشيت هيشتغل الكود طيب اى شئ بفتحه فى الاكسيل لازم اقفله انا دلوقتى فتحت With Sheet4 اذن لا بد من قفل With بـــ End With رابعا : اضافه السطر التالى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row End With End Sub الجديد هو هذا السطر Lr = .Cells(.Rows.Count, "D").End(xlUp).Row عملنا متغير اسمه LR ويمكنك تغيير الى ما تريد من الاحرف حسب مزاجك حضرتك طيب وعرفناه انه عبارة عن اخر خليه بها بيانات فى عمود D من شيت حركة الخزينة وهى هنا كما هو بالصورة عليه الخلية D4 مكتوب فيها " رصيد افتتاحى" واحد هيقولى مش فاهم هوضح له اكتر مثلا عايز اقول ان " الاستاذ الكبير العلامه ياسر خليل العبقرى" = r فبدل كل شوية ما اكتب الجمله دى " الاستاذ الكبير العلامه ياسر خليل العبقرى " وتاخد منى وقت استعيض عنها بى r فقط / على طول الكود هيفهم معناها خامسا : اضافه السطر التالى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] End With End Sub ما هو الجديد الجديد هذا السطر [Cells(Lr + 1, "A") = [D8. ماذا يعنى الجزء الاول و هو.("Cells(Lr + 1, "A. (العمود, الصف)Cells. الصف هو Lr+1 يعنى Lr هى اخر صف فى العمود D من شيت حركة الخزينة فيه بيانات ( طيب انا عايز بقى السطر اللى بعده يبقى اقول Lr+1 طيب والعمود هو A وتم كتابته بين علمتى تنصيص "A" ( شيفت + حرف الطاء بالكيبور) طيب عمود A ده عايزين يروح له التاريخ اللى بسند القبض / والتاريخ اللى بسند القبض موجود بالخلية D8 صح اذن اقول [Cells(Lr + 1, "A") = [D8. وهكذا كما هو موضح بالكود يتم ترحيل كامل بيانات السند ثم نغلق With ب End With Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub اضغط على زر الترحيل ستجد البيانات تم ترحيلها ارجوا من الله ان اكون وفقت فى هذا الشرح ويستفيد منه الجميع ان احسنت فمن الله وما توفيقى الا بالله وان اخطأت فمن نفسى والشيطان وارجوا من الاساتذه الافاضل مراجعه الشرح وتصحيح ما به من أخطأ ولى رجاء من ادارة المنتدى جعل التعديل على الشرح متاح لى حتى يتثنى لى اضافه بعض الاشياء الاخرى تخص نفس الموضوع انا استكفيت بهذا القدر حتى يكون سهل على الاعضاء اللى عايز يطبق وان شاء الله سوف نكمل ما بدأناه تقبلوا منى وافر الاحترام والتقدير خزينة.zip

.Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" أصل المعادلة في ورقة العمل المسماة (حركة الخزينة) في الخلية E5 مثلاً هي بالشكل التالي : =E4+G5-F5 لتحويل هذه المعادلة إلى كود يتم الإشارة للصفوف والأعمدة ... R هو اختصار لكلمة Row بمعنى صف. C هو اختصار لكلمة Column بمعنى عمود. استخدمت أقواس التنصيص للإحاطة بالمعادلة التي تبدأ بعلامة يساوي. الخلية التي بها المعادلة هي كما قلنا مثلاً E5 ، وأول خلية في المعادلة E4 ، فالسؤال هو : ما هو موقع الخلية E4 من الخلية E5؟ الإجابة : موقع الخلية E4 في الصف السابق (ولذا ستجد -1 ) لأننا نرجع للخلف ، هذا بالنسبة للصف أما العمود فهو نفس العمود ، ولذلك لم يتم إضافة أية أرقام للعمود. بالتالي تصبح الخلية E4 في المعادلة مساوية لهذا الجزء في الكود : R[-1]C الخلية الثانية في المعادلة هي G5 ، ونسأل نفس السؤال ما هو موقع الخلية G5 من الخلية التي بها المعادل E5؟ نلاحظ رقم 5 أي أنهما في نفس الصف ، ولكن العمود مختلف .. العمود G يبعد عن العمود E بمقدار عمودين ، أي أنه إذا بدأنا العد من العمود F أي العمود الذي يلي العمود الحالي سنقول : العمود F ثم العمود G (إذاً قيمة الإزاحة هي 2) بالتالي تصبح الخلية G5 في المعادلة مساوية لهذا الجزء في الكود : RC[2] وأترك لك النظر في الخلية F5 في المعادلة.. أرجو أن تكون الفكرة قد وصلت..

السلام عليكم ورحمة الله وبركاته اساتذتى فى هذا الصرح العظيم . الساده اعضاء اوفيسنا موضوع اليوم هو استخدام دالة VLOOKUP فى البحث عن قيمه معينه فى مجموعة صفحات بشكل بسيط وسهل فقد رايت استخدامات مشابهه ولكن كانت بشكل اصعب . والان اقدمها لكم بشكلها البسيط وعلى فكرة انا اعشق هذه الداله ارجوكم لاتنسونى فى دعاؤكم اترككم مع الملف والمثال العملى vlookp.rar

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

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

الحمد لله ان اتفقنا وتمت اضافته للمكتبه .. اعتذر للعضو الفاضل عن الخروج قليلا عن سياق موضوعه تحياتي

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

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

اخى العزيز تفضل المثال ... بعد اذن استاذنا الكبير ياسر خليل خانات عشرية.rar

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

الحل مرفق Classeur100 salim.rar

fldName.SetFocus

شوف الملف ده ممكن يفيدك Database1.rar

تفضل مثال Database4.rar

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

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

شكر الله لك أستاذي الحبيب ، الكلام ده كبير علي ، أسأل الله تعالى أن أكون خيرا مما تظنون جزاك الله خيرا ، إن شاء الله ترى البرنامج قريبا .

لاحظ ان الحق الموجود مقبل هذا اليوم في التقرير يعطي خطأ سوف اجرب مرة ثانية إن شاء الله

وفقك الله الى ما يحبه ويرضاه

تسلم أخي حسام على هذه السلسلة الرئعة بارك الله فيك وجعل أعمالك في ميزان حسناتك يوم القيامة

أ/ على قمت بحذف يوم ولم الاحظ شئ غير عادى برجاء توضيح ما لاحظته أ/ أبو الاء قم بتحديد اسماء الجدول او الجداول التى سيتم عمل استعلام لها وامهلنى بعض الوقت لضيق الوقت عندى وان شاء الله افعل ما تريد

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

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

أخى الفاضل وأستاذي الكريم لست اجيد الشرح فقمت بعمل ملف به بعض الأكواد التى أتمنى منك اضافتها للمكتبة وهي كود تحديد القيم 0 وتلوينها كود تلوين الصفوف الفارغة في نطاق محدد كود منع ال Right-Click او ال Double-Click داخل الشيت كود تلوين الخلية بالأحمر عند الضغط عليها Double-Click كود تلوين القيم الفريدة والقيم المكررة داخل نطاق محدد كود تلوين الخلايا الفارغة في نطاق محدد كود تلوين الخلايا التى بها قيم وتجاهل الفارغة كود تلوين الخلايا التى بها أخطاء كود ازالة التنسيق الشرطي السابق من النطاق كود جعل علامة X (الاغلاق ) بالفورم غير نشطة كود تقسيم الاوراق الى ملفات منفصلة حاجات خفيف خفيف كده، وأول الغيث قطرة، وعذرا للتأخير، مرفق الملف زبط بقي على كيفك وضيف ما تريده للمكتبة تحياتي Codes.rar

السلام عليكم اخي الكريم تفضل هذا الملف ربما يكون المطلوب 2131.rar

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

اخى العزيز قنديل الصياد تفضل المرفق تقبل تحياتى 2131.rar

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

اسال الله العلى العظيم ان يكون كل استاتذة اوفيسنا الغائبين بخير وفى احسن حال . اسال الله العلى القدير ان يرد كل الغائبين عنا.وان يجمعنا بهم على خير.

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

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

جرب هذا قد ينفعك طباعة حسب الطلب.rar

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

ربنا يبارك فى حضرتك . كل عام وانت بخير . وشكرا على اضافتكم

الأخ الكريم // مصطفي بالمرفقات الفورم ادخال بيانات جديدة راجعه جيدا ان كانت هناك اضافات او تعديلات لا تتردد في سردها final.rar

السلام عليكم استخدم هذا المرفق لهذ الغرض فقط فقد صممته سابقا لاحدهم المرفق 2003-2007 سيناريو توافيق تجميع قيم تعطي نتيجة معينة.rar