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

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

السّلام عليكم و رحمة الله و بركاته بمناسبة حلول السّنة الهجريّة 1437 ..أتقدم لجميع أعضاء منتدى أوفيسنا بأجمل التهاني و خالص الأماني .. راجيًا من المولى القدير أن يعيده على جميع السّادة الكرام أعضاء منتدانا و بيتنا الثاني خاصّةً و على جميع المسلمين عامّةً بالخير و اليُمن و البركات والستر والسعادة و حسن الخاتمة .. سنة هجرية جديدة سعيدة .. كل عام و أنتم بألف خير فائق إحتراماتي

السلام عليكم اخي الكريم اذا اردت الاخوه يتفاعلوا مع طرحك ومشكلتك احسن طرح مشكلتك على سطر من الايضاح بهذا الشكل تريد ان نبحث عن المشكله حتى نجدها ثم نحلها كان الافضل منك ان تشرح نوع المشكله وفي اي حاله صادفتك المشكله انا تصفحت ملفك ولاارى فيه اي مشكله تظهر رسالة خطاء عند التنقل بين الواجهات المشكله انك تطلب الواجهه الاخراء قبل اخفاء التي تعمل عليها استخدمت استدعاء Form3.Show قبل امر اخفاء للحالي Me.Hide اطلع على المرفق علها تلك المشكله في ملفك تجربة3.rar

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

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

الطريقه الثانيه :- استخدام النطاقات المعرفه هنشوف دلوقتى من خلال الصورتين التاليتين ازاى بنعرف مدى ونسميه باسم محدد شاهد الصور ازاى بقى نستخدم هذه الاسم فى تعبئة الكمبوبوكس يوجد طريقتين 1- من شاشة الخصائص اثناء التصميم شاهد الصوره 2- من خلال كتابة الاكواد فى البرمجه مثلا فى حدث فتح الفورم Private Sub UserForm_Initialize() ComboBox1.RowSource = "اوفيسنا" End Sub كما تشاهدون اننا كتبنا اوفيسنا اللى هو اسم النطاق ولكن بين علامتى تنصيص " اوفيسنا " يالا يا شباب جربوا الدرس وابعتو الاجابه على موضوع الردود " اتمنى لكم التوفيق " ********************************************************************************************************** والى لقاء اخر مع الطريقه الثالثه انتظرونا يوجد مفاجأت

جرب تحذف هذا الجزء من الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If End Sub

وإنت وكل أعضاء أساتذة المنتدى العظيم بألف صحة وسلامة

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

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

السلام عليكم و رحمة الله و بركاته أستاذي الغالي " الصقر " الملف الذي رفعته بالمرّة الأولى كان للأستاذ KHMB .. وجدته بموضوعك واشتغلت عليه ..فلم يشتغل معي الملف ربما ملفه كان بنسخة قديمة للأوفيس .. أنا الآن أشتغل على أوفيس 2010.. لم أقم بإعادة تنصيب الأوفيس ..قلت فقط قمت بفتح ملف جديد خالص ليس ملف الأستاذ KHMB ..فاشتغل الكود بطريقة ممتازة .. أرجو أني وضحت الفكرة .. فائق إحتراماتي لك سيدي القدير الملف.rar السّلام عليكم و رحمة الله و بركاته أستاذي القدير محمد حسن المحمّد حاول لو سمحت تجريب الكود في هذا الملف .. الملف.rar

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

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

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

السلام عليكمالسلام عليكم اللاخ ياسر خليل والاخ وائل المصرى جزاكم الله كل الخير تم حل الموضوع بعد الرجوع لتوصياتكم جزاكم الله كل الخير

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

كل عام وانتم جميعا بالف خير

بسم الله الرحمن الرحيم الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم الدرس الثانى من علمنى كيف اصطاد شرح مبسط عن كيفية عمل كود ترحيل من خلايا متفرقه بورقه عمل الى ورقة عمل اخرى بناء على طلب الاخ الكريم / بيف الدين حسام يريد معرفه كيفية عمل كود ترحيل من سند قبض الى شيت الخزينة كما هو موضح بالصور المطلوب ترحيل الخلايا المظلله باللون الاصفر بورقه عمل (توريد) الى ورقة عمل حركة الخزينة اولا : الضغط على 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

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

رائع أخى ياسر العربى نورت المنتدى كدا إسم ياسر بقى منور المنتدى باكثر من عضو وعلى رأسهم الأستاذ القدير / ياسر خليل حفظه الله

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

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

مع كامل إحتراماتي لك أخي الغالي ياسر العربي ..بارك الله فيك وزادها بميزان حسناتك

تمام اخى الفاضل ياسر البرنامج اكثر من رائع .... فى ميزان حسناتك ان شاء الله

الملف المرفق لم يعمل معي ايضا هنا في العمل علي اوفيس2007 غير بقي ياعم صقر الاوفيس

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

الملف المرفق في مشاركة الأخ عبد العزيز يعمل بشكل جيد قد تكون المشكلة لديك في الأوفيس (ActiveX Control) جرب تعيد تنصيب الأوفيس أو غير النسخة نفسها لنسخة أحدث

حبيبي ياسر انا باتخض من صوتي في التسجيل يبقى انت ح يحصل لك اية

ياريت ترفق المثال لانه كدا مش واضح وبعدين كتابته كدا فيها غلط المفروض يبقي كدا kh_wVisible = False kh_w.Visible = False منتظر المرفق او التوضيح

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

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

أخي الكريم أناناس (ممكن نغير الفاكهة نخليها رمان عشان بعز الرمان حبتين) إليك الكود التالي عله يفي بالغرض (وإن كنت أرى أن كود الأخ أبو عيد حفظه الله يعمل بشكل جيد ) ، ولكن من باب إثراء الموضوع جرب الكود Sub MAIN() 'تعريف المتغيرات Dim I As Long 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False '[H2] وتنتهي بالقيمة الموجودة في الخلية [H1] حلقة تكرارية تبدأ من القيمة الموجودة في الخلية For I = Range("H1") To Range("H2") '[I] تساوي قيمة المتغير [F1] الخلية Range("F1") = I 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet '[DATA] ونطاق البحث ورقة البيانات [F1] تساوي قيمة دالة البحث عن القيمة الموجودة في الخلية [C1] الخلية 'يتم البحث في ورقة البيانات في العمود الثاني .Range("C1").Value = Application.WorksheetFunction.VLookup(.Range("F1").Value, Sheets("DATA").Range("A2:C19"), 2, 0) '[DATA] ونطاق البحث ورقة البيانات [F1] تساوي قيمة دالة البحث عن القيمة الموجودة في الخلية [C1] الخلية 'يتم البحث في ورقة البيانات في العمود الثالث .Range("C2").Value = Application.WorksheetFunction.VLookup(.Range("F1").Value, Sheets("DATA").Range("A2:C19"), 3, 0) 'إلغاء الفلترة في ورقة العمل النشطة .AutoFilterMode = False '[C1] بشرط القيمة في الخلية [E] فلترة البيانات على الحقل الرابع أي العمود .Range("B5:F5").AutoFilter Field:=4, Criteria1:=.Range("C1").Value '[C2] بشرط القيمة في الخلية [F] فلترة البيانات على الحقل الخامس أي العمود .Range("B5:F5").AutoFilter Field:=5, Criteria1:=.Range("C2").Value '[F1] إذا كانت قيمة المتغير أصغر من القيمة الموجودة بالخلية If I <= .Range("F1") Then 'إعادة الحسابات في ورقة العمل النشطة كنوع من التحديث للبيانات .Calculate '[PrintOut] بكلمة [PrintPreview] معاينة ورقة العمل وتتم الطباعة باستبدال كلمة ActiveWindow.SelectedSheets.PrintPreview End If 'إلغاء الفلترة في ورقة العمل النشطة .AutoFilterMode = False End With 'الانتقال لقيمة المتغير التالية Next I 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub تقبل تحياتي

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

طيب على عجالة العميل هو طالب الخدمة = غالبا شحن + نقل + تخليص جمركى انت بتدى رقم تشغيله لكل عملية وتشوف ايه اللى اتجمع عليها من تكالبف وتضيف الهامش بتاعك / الموجود بالعقد وتفوتر وتبيع

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي الغالي " الصّقر " على إعادة رفعك لهذا الكنز الثمين .. كيف لي لم أنتبه له من زمان ..!!؟؟ أنا أحد هؤلاء الذين كانوا بصدد البحث عن مثل هكذا دروس في التّرحيل .. جزاك الله خيرًا و زادك من علمه و فضله . فائق إحتراماتي

اخي محمد: الاكسس 2013 يمكنه تحقيق المراد حسب ارشادات الرابط التالي https://translate.google.com.kw/translate?hl=ar&sl=en&u=http://www.groovypost.com/howto/word-excel-2013-save-to-pdf-password-protect-documents/&prev=search

تمام أنا تحت أمرك ممكن تطلب اللى انت عاوزه

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

أخي الحبيب التاج أما آن لك أن تغير اسم الظهور للغة العربية إليك الكود التالي عله يكون المطلوب Sub Test() Dim WS As Worksheet, SH As Worksheet Dim Cel As Range Dim lRow As Long Set WS = Sheets("أداة بناء الخطط"): Set SH = Sheets("ورقة1") Application.ScreenUpdating = False For Each Cel In WS.Range("H3:H43") If Cel.Value >= 0.9 Then lRow = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1 SH.Cells(lRow, "B").Value = Cel.Offset(, 1) ElseIf Cel.Value <= 0.5 Then lRow = SH.Cells(Rows.Count, "H").End(xlUp).Row + 1 SH.Cells(lRow, "H").Value = Cel.Offset(, 1) End If Next Cel Application.ScreenUpdating = True End Sub ALTAG.rar

السلام عليكم الملف المفقود MSCAL.OCX بعد فك الضغط عن المرفق يوضع فى المسار التالى C:\Windows\System32 شغل الملف تحياتى MSCAL.zip

لعلة يكون المطلوب Book1.rar

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

السلام عليكم جرب هذا الكود ان شاء الله يفي بالغرض Sub Ali_Sort_Tble() Dim Tb As ListObject On Error Resume Next For Each Tb In ActiveSheet.ListObjects With Tb .Range.Sort key1:=.ListColumns(1), order1:=xlAscending, _ Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With Next On Error GoTo 0 End Sub

23- الخاصيه ( ShowDrop Button When ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور او عدم ظهورعلامة الـ ComboBox عند عرض الفورم شاهد الصورة توضح لك الامر ************************************************************************************************************* 24- الخاصيه ( Style ):- وهى بنظرى من اهم الخصائص للكمبوبوكس زى ما احنا عارفين لفتح القائمة الخاصه بالكمبوبوكس للاختيار منها لابد من الضغط على السهم لتفتح القائمه ولكن هذه الخاصيه تتيح للمستخدم التحكم فى وقت فتح القائمة الخاصه بالكمبوبوكس فلها خيارين الخيار الاول Fm StyleDropDown Combo - 0 :- هو الافتراضى لابد من الضغظ على السهم لفتح القائمة كما تتيح للمستخدم كتابة اى شئ بالكمبوبوكس غير موجود بالقائمه بمعنى لا تلزم المستخدم من الخيار من القائمة والخيار الثانى Fm StyleDropDown List - 2 : -هو فتح القائمة من خلال الضغط على السهم او بمجرد وقوف مؤشر الماوس على الكمبوبوكس وكمان ميزة ثالته وهى مهمه جدا هو انه لا يمكن للمستخدم كتابة اى شئ فى الكمبوبوكس يعنى كانك عامل خاصيه حمايه للكمبوبوكس ولا سبيل امام المستخدم الا من الاختيار من القائمه ******************************************************************************* 25-الخاصيه (Text Align) :- وهذه الخاصيه تتيح للمستخدم التحكم فى اتجاه النص ( المحازاه للنص )داخل الـكمبوبوكس هل يكون يميناً أو يساراً أو وسط الـكمبوبوكس لو ذهبت للخصائص وعند الخاصيه Text Align ستجد سهم اضغط عليه ستجد 3 خيارات امامك وهى fm Text Align Left -1 عند الاختيار ستجد ان اتجاه النص داخل ComboBox يبداء من اليسار fm Text Align Center -2 عند الاختيار ستجد ان اتجاه النص داخل ComboBox فى المنتصف fm Text Align Right -3 عند الاختيار ستجد ان اتجاه النص داخل ComboBox يبداء من اليمين ******************************************************************************************** 26-الخاصيه (Tab index ) وهذه الخاصيه تتيح للمستخدم ترتيب التنقل بين الازرار على الفورم بعد الخروج منها من خلال الزر انتر ويمكن تعطيل هذه الخاصيه من خلال استخدام الخاصيه Tab stop = True هحاول اشرحها بشكل مبسط بفرض عندك فورم أنشئت فيه 3 عناصر ( Combobox1 - Textbox2 - Textbox1 )على نفس الترتيب فأن الفيجوال بيسك بشكل افتراضى يقوم بترتيب التنقل بينهم حسب ترتيب أنشائهم فعند تشغيل الفورم وانت واقف فى Textbox1 وضغط انتر سينتقل مؤشر الماوس الى Textbox2 ثم ضغط انتر سينتقل مؤشر الماوس الى Combobox1 فلو نا عايز وانا واقف فى Textbox1 واضغط انتر ينتقل الى Combobox1 وليس Textbox2 هنا تاتى اهميه الخاصيه Tab index اذهب لشاشة تصميم الفورم فى الفيجوال وحدد Textbox2 وفى الخاصيه Tab index اكتب رقم 4 ثم حدد Combobox1 ومن الخاصيه Tab index له اكتب رقم 2 ثم ارجع وحدد Textbox2 وفى الخاصيه Tab index اكتب رقم 3 بدلا من 4 وبكدا عند تشغيل الفورم والوقوف فى Textbox1 والضغط انتر سينتقل مؤشر الماوس الى Combobox1 وليس Textbox2 ارجوا ان تكون وضحت الفكره 27-الخاصيه (Tab Stop ) وهذه الخاصيه تحمل خيارين True و False عندد اختيار True يتم تعطيل خاصيه Tab index وعند اختيار False ٍسوف تفعل خاصيه Tab index للتنقل بين الازرار حسب الترتيب الذى ترغب فيه ******************************************************************************************** 28- الخاصيه ( ٍِSpecial Effect ) هذه الخاصيه من الخصائص الهامه للـ Combobox وهى تعطى اشكال مبهره ومميزه للـ Combobox ولها خمس اشكال اختر منها ما يناسب ذوقك شاهد الصوره التاليه **************************************************************************

وعليكم السلام . هل مخترفى الاكسس على وزن المخرفين الاجابة بالصور من التقرير: لا يوجد عندك تذييل لقسم sit: . فعملنا التذييل ، وغيرنا في اعداداته: . والنتيجة: جعفر 227.Human Resources DataBase.mdb.zip

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

السلام عليكم موضوع مطلوب ومجهود كبير ولاكن للامانة لم استطيع ان استفيد منه للأسباب الاتية 1- تحديد هوية البرنامج (هدفه ونطاق عمله (مخازن فقط -مخازن وعملاء وموردين - حسابات جزئي (يعنى به حسابات العملاء والموردين والضرائب والخزينة من واقع النشاط المباشر مع المخازن))) وفى خلال ذالك نحدد التقارير المطلوبة (المخرجات) وبالتالي نحدد ما نريد إدخاله (المدخلات)الى البرنامج للحصول على النتائج المرجوة 2- طريقة التسلسلية للشرح غير واضحة مثل (جداول البرنامج طبقا للمدخلات المطلوبة - ثم نماذج الادخال - ثم التقارير) وهكذا على سبيل المثال 3- موضوع انشاء قاعدة لعام جديد او النسخ الاحتياطي للقاعدة الحالية هو بلا شك مطلوب وبقوة للبرامج الناجحة 4- تختلف طبيعة احتياجات البرنامج من مكان واخر ومن شخص لأخر ولذألك يجب الاخذ بالنواحي الأساسية فقط وعدم التعديل طبقا لكل عضو (والالتزام من جميع الأعضاء بعدم كثرة المشاركات) 5- قد لا تكون اخى مضطر لرفع القاعدة والتعويض عن ذالك بفيديوهات للشرح مع الصور في شكل دروس متتالية ونهج واضح لتفادى اختلاف النسخ فكل يطبق طبقا لما عنده من نظام او اوفيس الا الحصريات لم ادخل في تفاصيل البرنامج و معرفتي بالأكسس مبتدئ ولاكن اعمل محاسب ومراجع داخلي بالسعودية وقد قمت بأنشاء برنامجين للمخازن نسخة للشركات التجارية - ونسخة لمصنع وقمت ببيعها وبها عمليات تكاليف وتسعير ولاكن ذالك كان ب الاكسيل vba وليس بالاكسس والعمل في الاكسل اكثر ارهاقا ارجوا منكم تقبل مرورى اريد الدخول في مجالكم والاستفادة من الموضوع فبعد 4 صفحات لم احصل شيئا رغم المجهود الكبير هذا والله الموفق ،،،،،،،،،،،،،،،،،

الاخوة الكرام اقدم لكم بقية لدرس الترحيل كيفية وضع شروط تجبر المستخدم على ادخال بيانات مما لا شك فيه ان سند القبض اللى بصورة التالية لابد من ادخال جميع البيانات اللى بالسند وهى المظلله باللون الاصفر رقم الايصال بالخلية [G7] تاريخ السند بالخلية [D8] الجهه التى تم القبض منها بالخلية [D10] المبلغ المقبوض بالخلية [D11] ان شاء الله اليوم بنتعرف كيف يمكن اجبار المستخدم على ادخال البيانات قبل ترحيلها فلا يعقل مثلا ان يقوم المستخدم بعدم كتابه تاريخ للسند ويترك الخلية فارغه بدون تاريخ ثم يقوم بالترحيل لازم اجبره على ادخال التاريخ اولا: اجبار المستخدم على ادخال رقم الايصال بالخلية [G7] هنستخدم السطر التالى بالكود If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر يتم اضافتة بعد هذا السطرمن الكود Application.ScreenUpdating = False ليصبح هكذا Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub 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 تعالى بقى نشرح معنى هذا السطر If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر من الكود معناه ببساطه كدا ان لو الخلية [g7] فارغه اكتب رساله تظهر للمستخدم تنبهه بان الخلية فارغه ويجب ادخالها و اخرج من الكود ومتكملش الشىئ الذى تريد تنفيذه then الشرط المطلوب التحقق من وجوده if استخدمنا هنا IF وذالك لعمل شرط قبل عملية الترحيل وهى كما نعرف جميعا ان iF معناها لو then معناها تنفيذ الشرط الذى نريده كما اتفقنا من قبل هو عدم ترك الخلية [g7] فارغه اللى بيسجل بها رقم الايصال الكود هيقوم باختبار الشرط التالى "" = [if [g7 "" العلامه هذا بالكود تعنى فارغ ( فلو [g7] تساوى فارغ نفذ كذا كذا ) نفذ دى فى الكود هى Then وسيكون لونها بالكود ازرق هينفذ ايه بقى انا عايزة يظهر رساله وهى " الرجاء ادخال رقم الايصال" ونلاحظ انها مكتوبه بين علمتى تنصيص ( تكتب من خلال شيفت + حرف ط بالكيبور) وهينفذ ايه تانى غير الرساله هينفذ خروج من الكود ميكملش يعنى ودى بتكون exit sub : وبعدها كتابتها ستجد ان لونها اصبح ازرق لمتابعه شرح عن كتابة الرسائل فى لغة البرمجه يرجى مراجعه الرابط التالى ستجد شرح باستفاضه http://www.officena.net/ib/index.php?showtopic=57199&hl= ) ثانيا : عايزين نجبر المستخدم على ادخال التاريخ If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub هو نفس السطر السابق بس بنختبر الخليه [d8] فيها تاريخ ام لا ثالثا : اجبار المستخدم على ادخال الجهه التى تم الاستلام منها If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub رابعا: اجبار المستخدم على ادخال المبلغ المقبوض If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub وهيكون الكود فى شكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub 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 يعنى الكود قبل الترحيل هيعمل اربع اختبارات الاول هيمسك اول سطر بتاع رقم الايصال لو موجود ينتقل للسطر اللى بعده ولو مش موجود هبخرج من الكود ومش هيكمل وهكذا ما باقى الاسطر الين يتحقق من وجود بينات بالاربع خلايا ثم يقوم بعمليه الترحيل خامسا : هل يمكن عمليه الاختبار بسطر واحد بدلا من اربع اسطر نعم يمكن ذالك من خلال السطر التالى If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub هنا تم استخدام داله OR وهى تعنى أو لو الخلية اللى بها رقم الايصال فارغه أو الخلية اللى بها التاريخ فارغه او الخلية اللى بها الجهه التى تم استلام المبلغ منها أو الخلية اللى بها المبلغ فارغه نفذ رساله ثم اخرج من الكود ومتكملش ويكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub 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 وفى النهاية ارجوا ان اكون وفقت بالشرح واتمنى ان يستفيد منه الجميع تقبلوا منى وافر الاحترام والتقدير