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

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

السلام عليكم بعد اذن أخى الفاضل / سليم أخى الفاضل جرب التعديل التالى Private Sub TextBox1_Change() Dim b As Boolean Me.TextBox2 = "" Me.TextBox3 = "" Set sh12 = Sheets("Sheet1") LR = sh12.[G20000].End(xlUp).Row If Me.TextBox1 = "" Then Exit Sub For Each cl In sh12.Range("G2:G" & LR) If (Val(Me.TextBox1)) = cl Then b = True Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Exit For End If Next If Not b Then MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" End If End Sub

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

بسم الله الرحمن الرحيم السادة / أعضاء المنتدى المحترمين سلام الله عليكم جميعا طرح بالمنتدى عده مواضيع لها علاقة بكيفية حماية ملف الأكسيل قمت بتجميعها من خلال عملية البحث بالمنتدى نسأل الله عز وجل أن يجزى كل من ساهم في تلك الأعمال القيمة خير الجزاء وأستسمحكم عذرا إن نسيت نموذج لأحد الأساتذة الأفاضل (( ملحوظه هامه جدا )) (( الغرض من الحماية فى نظرى قاصرة على ملفات العمل الخاصة بكل فرد _ مثل ملفات خاصة بالفرد _ أو ملفات العمل )) (( ولا أتحدث على حماية الملفات التعليمية التى تطرح بالمنتدى _ فهذه أعمال الغرض منها التعلم وإفاده الجميع _ فيجب عدم إغلاقها باى وسيلة حماية )) نسأل الله عز وجل فى أن ينتفع بها الساده الأعضاء وتقبلوا منى وافر الإحترام والتقدير وإليكم تلك النماذج نبدأ بأمر هام لتمكين الكواد من العمل من أجل الحماية يجب إجبار المستخدم على تخفيض مستوى الأمان لتفعيل عمل الأكواد بالملف هذا الرابط للأستاذ / محمد طاهر http://www.officena.net/ib/index.php?showtopic=25&st=0&p=46&fromsearch=1&#entry46 نموذج للأستاذ / أكرم الغامدى _ به كود لإجبار المستخدم لخفض مستور الأمان _ ومعه أمور اخرى لا علاقة لها بمضمون الموضوع http://www.officena.net/ib/index.php?showtopic=27032#entry129691 نموذج للأستاذ / أحمد زمان حماية الملف وصلاحيات للمستخدمين http://www.officena.net/ib/index.php?showtopic=30498#entry152813 كود للأستاذ / أبو حنين _ لحماية الملف بكلمة سر (( 123 )) http://www.officena.net/ib/index.php?showtopic=42963#entry247423 كود للأستاذ / عبد الله المجرب _ حماية الملف بربطه برقم القرص الصلب للجهاز http://www.officena.net/ib/index.php?showtopic=39789#entry222281 نموذج للأستاذ / أبو عبد الله _ لحماية الملف _ رابط خارجى http://www.officena.net/ib/index.php?showtopic=33292#entry172604 نموذج للأستاذ / ابراهيم ابو ليلة _ حماية أكثر من نطاق بالملف http://www.officena.net/ib/index.php?showtopic=49921#entry304804 نموذج للأستاذ / ابراهيم ابو ليلة _ لحماية شيت من الدخول له الا برقم سرى ( 123 ) http://www.officena.net/ib/index.php?showtopic=49921#entry304806 نموذج للأستاذ / ابراهيم ابو ليلة _ لحماية المعادلات من النسخ ومع اعطاء رساله ( ليس من حقك فعل ذلك ) http://www.officena.net/ib/index.php?showtopic=49921#entry304849 نموذج للأستاذ / ابراهيم ابو ليلة _ حماية جميع المعادلات بالشيت http://www.officena.net/ib/index.php?showtopic=49921#entry305002 نموذج للأستاذ / ابراهيم ابو ليلة _ شرح كيفية تطبيق حماية المعادلات بأى شيت أو بأى شيت بأى ملف آخر http://www.officena.net/ib/index.php?showtopic=49921#entry305004 نموذج للأستاذ / المايسترو _ حماية الملف بربطه بالجهاز http://www.officena.net/ib/index.php?showtopic=30927#entry156282 نموذج أرفقه الأستاذ / جمال دغيدى _ حماية فتح الملف إذا تم نقله لجهاز آخر أو تغيير أسمه http://www.officena.net/ib/index.php?showtopic=36483#entry193134 نموذج أرفقه الأستاذ / يوسف السيد _ حماية الملف برقم الهارد ديسك http://www.officena.net/ib/index.php?showtopic=36483#entry272286 نموذج للأستاذ / ريان أحمد _ حماية الملف من حذف اى شيت به او زياده اى شيت عليه http://www.officena.net/ib/index.php?showtopic=44527#entry259732 كود للأستاذ / العيدروس _ لحماية ورقتين من الملف ويمكنك ايضا التعديل عليه http://www.officena.net/ib/index.php?showtopic=44527#entry259806 نموذج للأستاذ / ابو محمد عباس _ لحماية الأوراق http://www.officena.net/ib/index.php?showtopic=44527#entry259909 نموذج للأستاذ / هشام شلبى _ لكسر الحماية http://www.officena.net/ib/index.php?showtopic=32477#entry166942 نموذج أكثر من رائع للأستاذ / أبو تامر _ تشفير الملفات (( ملحوظة )) يجب قراءة الشرح http://www.officena.net/ib/index.php?showtopic=25523#entry121162 أكواد للأستاذ / أحمد زمان _ توضع بزرين الغرض منها تعطيل الحماية _ أو تنشيط الحماية http://www.officena.net/ib/index.php?showtopic=40650#entry228283 نموذج للأستاذ / حماده عمر _ حماية خليه معينه وجعل الماوس أو امر انتر لا يتفاعل معها http://www.officena.net/ib/index.php?showtopic=49203#entry298923 نموذج للأستاذ / العيدروس _ حماية خلايا أو اعمده من التغيير مع السماح بتغيير حجمها فقط http://www.officena.net/ib/index.php?showtopic=49203#entry299273 شرح للكود السابق للأستاذ / العيدروس http://www.officena.net/ib/index.php?showtopic=49203#entry299286 كود للأستاذ / أبو حنين _ لحماية الخلايا التى بها معادلات فقط http://www.officena.net/ib/index.php?showtopic=43617#entry252521 كود أقوى من السابق للأستاذ / أبو حنين _ لحماية الخلايا التى بها معادلات فقط http://www.officena.net/ib/index.php?showtopic=43617#entry252619 نموذج للأستاذ / عبد الله المجرب _ حماية الخلايا التى بها معادلات بكلمه سر 123 http://www.officena.net/ib/index.php?showtopic=36304#entry191909 كود للأستاذ / يوسف عطا _ لحماية الخلايا التى بها معادلات داخل شيت معين http://www.officena.net/ib/index.php?showtopic=43514#entry251701 قام بتعديل الكود السابق الأستاذ / عبد الله المجرب _ لجعل الكود يشمل كامل الملف مع حماية الخلايا المدمجة سواء بها معادلات او لا http://www.officena.net/ib/index.php?showtopic=43514#entry251743 نموذج للأستاذ / أبو حنين تطوير الكود السابق حماية الخلايا التى بها معادلات و حماية الخلايا المدمجه فقط التى بها معادلات http://www.officena.net/ib/index.php?showtopic=43514#entry252395 نموذج للأستاذ / عبد الله المجرب _ لمنع النسخ واللصق ومنع الحفظ بأسم جديد عمل مشترك بين الأستاذين (( ابو تامر _ بن عليه )) http://www.officena.net/ib/index.php?showtopic=40743#entry229244 نموذج للأستاذ / halwim عبارة عن مجهود رائع بتجميع عده نماذج للأساتذة بالمنتدى http://www.officena.net/ib/index.php?showtopic=29796#entry157496 نموذج للأستاذ / هشام شلبى _ كود رائع يعمل على حماية اى خليه بها معادلات من تلقاء نفسه http://www.officena.net/ib/index.php?showtopic=29796#entry163041 نموذج للأستاذ / عبد الله المجرب _ منع النسخ أو اللصق _ منع حذف أو اضافة شيتات http://www.officena.net/ib/index.php?showtopic=47220#entry284613

السلام عليكم هذا الموضوع هو إجابة لسؤال أحد الأعضاء هنا http://www.officena.net/ib/index.php?showtopic=52641&hl= وقد فضلت أن تكون المشاركة كموضوع جديد لتعم الفائدة ولكن هذا العمل لا يخلو من أخطأء لذلك اضع بين أيديكم هذه الفكرة لحماية الملف برقم عشوائي مع العلم أني استخدمها عمليا فقد عملت برنامجا لمستشفى المدينة عندنا وعند إقفال الملف يتم الإتصال بي لإعطائهم رقم الترخيص خطت العمل : عند تحميل الملف المرفق وتشغيله سيطلب منك رقم الترخيص لتثبيت البرنامج سيظهر عندك رقم في الفروم مكون من 6 خانات بناء على هذا الرقم يتم حساب رقم الترخيص فإذا كان الرقم 788520 فيكون رقم الترخيص هو 409760 الرقم 783330 فيكون رقم الترخيص هو 258390 الرقم 863999 فيكون رقم الترخيص هو 862137 طبعا هناك طريقة لحساب رقم الترخيص أترك لكم الإجابة على هذا السؤال بعد الإطلاع على المرفق كيف يتم حساب رقم التسجيل هنا ؟ ;كلمة المرور للفيجوال والأوراق هي 9 تقبلوا تحياتي حماية الملف برقم عشوائي.rar

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

بسم الله الرحمان الرحيم السلام عليكم اضع بين ايديكم اليوم هذا الملف المتمثل في فورم لجلب بيانات أي عدد من صفحات الملف الى أي صفحة تريد وباي عدد من الاعمدة لكي يتم ترحيلها ارجو ان يفيدكم الملف تحياتي للجميع فورم ترحيل الصفحات.rar

الاستاذ العزيز الفاضل // احمد ابو زيزو السلام عليكم ورحمته الله وبركاته بداية ... أسأل الله تعالى أن تكون بكامل الصحة ثانيا .... نرجو الافاده والتجربه أولاً يجب على سيادتكم تحديد أسم الملف الذي تريد تثبيت أسمه في اول الكود كما بالمثال "zizo_Xl" تقبل وافر احترامى وتقديرى وجزاكم الله خيرا Private Const Nm_Fil As String = "zizo_Xl" Option Explicit '====================================================== Private Const Nm_Fil As String = "zizo_Xl" Sub auto_open() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ If Nm_Fil <> ThisWorkbook.Name Then '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ NewName = MyPath & Nm_Fil & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله" End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End If End Sub

السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك عذرا لا يمكنني تحميل الملف الخاص بك ... نظرا لضعف النت لدي في هذا الوقت ولكن اخي الكريم ما فهمته من طلبك انك تريد ( تشغيل الملف في اي مكان بالجهاز بشرط ان يكون اسم الملف مثلا HOSAM ABDEL MOHSEN ) فاليك اخي الملف في المرفقات به كود بسيط لتنفيذ ذلك ================= قم بفتح الملف بعد التحميل كما هو بالاسم المطلوب والسابق ذكره .... سيفتح معك الملف بشكل عادي في اي مكان علي الجهاز قم بغلق البرنامج ثم قم بتغيير اسم الملف الي اي اسم آخر .......... لن يفتح معك الملف وسيغلق علي الفور ================= شاهد المرفق ... ان شاء الله يفي بطلبك تقبل خالص تحياتي المرفق 2003 HOSAM ABDEL MOHSEN.rar

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

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

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

السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك جرب اخي الكريم التعديل البسيط التالي في الكود خاصتك لتنفيذ طلبك ولكن يوجد جزء بالكود غير موجود ... وهو الكود الخاص باستدعاء الكود الخاص بظهور كافة اوراق الملف عندما يكون الاسم صحيح وهو هذا السطر في الكود خاصتك Call ShowAllSheets فبرجاء منك التجربة واشعارنا بالنتيجة ... او قم بارفاق الكود كاملا داخل مرفق Private Sub Workbook_Open() Dim MyName As String MyName = "HOSAM ABDEL MOHSEN" If ThisWorkbook.Name <> MyName Then Application.DisplayAlerts = False ThisWorkbook.Close Else Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True Sheet2.Select End If End Sub تقبل خالص تحياتي

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

السلام عليكم بعد اذن أخى الفاضل / سليم هذا حل آخر حسب ما فهمت من المطلوب معادلة حسابية.rar

السلام عليكم أخى الفاضل غالبا تظهر هذه الرسالة عند وجود كودين فى نفس الموديول يحملان نفس الاسم راجع الموديول module وتأكد من ذلك

بالنسبة للطلب الأول هذا كود للأستاذ ماس (محمد صالح) ضعه في زر أمر ونفذ الكود Sub Abu_Ahmed() Set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("سيتم كتابة 5 في الخلية A1! بعد ثلاث ثواني", 2, "تنبيه", 65) [A1] = 5 End Sub

السلام عليكم شكرا أخواني على مروركم الأخ ابراهيم أبوليله عرفت السر وهو ضرب الثلاثة أرقام الأولى في الثلاثة الثانية للحصول على رقم الترخيص في مثالنا السابق وعموما : تلجأ غالب الشركات إلى تعقيد رقم التسجيل حتى لا يمكن لأي شخص معرفته تعتمد عملية رقم الترخيص على عدد الخانات (في مثالنا هنا 6) وعدد الأقسام ( في مثالنا هنا 2) وقد تعتمد على أشياء أخرى كلما زاد واحد منهم كانت عملية تخمين الرقم أصعب وأصعب لاحظوا معي : لو كان لدينا الرقم 123456 وقمنا بتقسيمه إلى ثلاث أقسام هكذا 12 34 56 فنستطيع أن نجعل رقم الترخيص هو ( 12*34)+ (34*56) أو ( 12*34 )*(34*56) أو ........... فهناك كثير من العلاقات التي يمكن إنشاءها ويصعب على المستخدم تخمينها أو الوصول إليها المهم في الأمر أن الرقم المتحصل عليه لا يمكن أن يحوي كسورا عشرية أو رقم سالب أي يكون رقما صحيحا موجبا وكلما زادت خاناته كلما صعب تخمينه أو معرفته وعلى هذا الاساس يمكن أن أستخرج رقم الهارد أو البارتشن ونقوم بتقسيمه للخروج بصيغة مناسبة إذن إذا تم أقفال البرنامج فيمكن أن يتصل بك المستخدم ويعطيك الرقم الذي يظهر في الفورم وأنت تقوم بإعطائه رقم الترخيص ولكن لا تستعجل في إعطائه رقم الترخيص لأنه ربما يكذب عليك , يدعي بأن البرنامج تم إقفاله وهو في الواقع يريد تشغيل البرنامج على جهاز آخر وبعض المستخدمين قد يكون ذكيا ويحسب أن الرقم ثابت فيقوم بتسجيل الرقم الذي أخذه منك على ورقة حتى لو تم إقفال البرنامج مرة أخرى فيحاول فتحه به ولكنه لا يستطيع . لا حظ أن الملف المحمي بالطريقة السابقة حساس للمسار الذي يوضع فيه فكلما غيرت مكانه (في سطح المكتب أو في مجلد التنزيلات أو في مجلد الصور .أو أو ...) سيطالبك بالتسجيل . وفي الختام لا يخلو هذا العمل من أخطاء , فمن وجد فيه شيئا فلا يبخل علينا بتوجيهاته تقبلوا تحياتي

الأستاذ / سامي الحميدي السلام عليكم ورحمة الله وبركاته يوجد ايضاً الفترة من 0.100 ناقصة فتم عمل الفترة من 0.065 حتى 0.100 وليس 0.099 لتكون الفترات كلها كاملها وإليك الملف لعله المطلوب وإن كان غير ذلك فأرجو التوضيح أكثر. طلب معدل1.rar

السلام عليكم ورحمة الله وبركاته عمل متواضع قد قمت بعمله عام 2007 /2008 لمكتبة المدرسة وهو قديم على أوفيس 2003 به بعض المعلومات عن مكتبة المدرسة وقمت بحذف بعض الشرائح الخاصة. ليستفاد منه أحد الأعضاء . ">http://

جزاكم الله خيرا اخى الكريم

السلام عليكم الاخ الكريم / tahermohamed بارك الله فيك 1- بالنسبة لطلبك .. الخاص بعدم تعديل اسم المورد واسم المخزن الا من خلال الكود وتم حمايتهم من التعديل .... تم تنفيذ طلبك 2- بالنسبة لطلبك في الفريم بعدم التعديل ايضا ( لا يمكنك التعديل في اسم الصنف او وحدة الصنف ) الا من خلال التغيير في كود الصنف .. كما طلبت 3- مسلسل الاصناف الموجود في الفريم ( اصبح تلقائيا ) ... بمجرد كتابتك لكود الصنف يظهر المسلسل الخاص به واسم الصنف ووحدته 4- بالنسبة لعدد الصفوف تم زيادة عدد الصفوف كما تريد .. وابتداءا من الصف السابع لا يظهر الصف الذي يليله الا في بعد كتابتك لكود الصنف في الصف السابق له ( جرب ذلك ) 5- بالنسبة للفريم ... ** المسلسل يكون تلقائى ... بمجرد كتابة كود الصنف .. تم تنفيذ طلبك ** عند كتابة كود الصنف يظهر اسمه فى مربع الاسم ووحدته فى مربع الوحدة .. تم تنفيذ طلبك ** يتم كتابة الكمية فى خانة الكمية والسعر فى خانة السعر .. ( ادخال يدوي بالطبع ) ** مربع القيمة يكون حاصل ضرب السعر فى الكمية .. تم تنفيذ طلبك ** اجمالى القيم فى اسقل الفريم يكون عبارة عن مجموع القيم فى كل الصفوف العلوية .. تم تنفيذ طلبك ** تم اضافة ليبل جديد ( يتم كتابة التفقيط فيه لاجمالي القيم ) ... لا اعلم ان كنت تحتاج اليه ام لا ** بالنسبة لعدد الصفوف يتم زيادتها تلقائيا عند ادخال البيانات بمعنى اذا وصلنا للصف السابع يتم ادراج الثامن تلقائيا وهكذا .. تم تنفيذ طلبك (( ملاحظة )) لن يتم احتساب عمليات الضرب والجمع والتفقيط الموجودة في الفورم الا بعد تحريك الماوس علي الفورم سيتم تنفيذ عمليات الازرار ( تسجيل - تعديل - حذف - طباعة ) ... بعد الانتهاء من النقاط السابقة والاتفاق النهائي عليها وعذرا لعدم انهاء العمل مرة واحدة نظرا لضيق الوقت لدي فقط هذه الايام ارجو ان يفي ذلك بطلبك تقبل خالص تحياتي واليك الملف بالمرفقات فورم111.rar

السلام عليكم الاخ الكريم / tahermohamed بارك الله فيك 1- بالنسبة اخي الكريم لمسلسل رقم الاذن التلقائي ... تم الغاؤه ... اما بخصوص مسلسل الاصناف الموجود في الفريم .. فسيتم تنفيذه في حينه ( ان شاء الله ) 2- بالنسبة لرزنامة التاريخ ... تم تنفيذ طلبك كما تريد ولكن قبل الشروع في باقي الطلبات لي استفسار او توضيح ** ماهو الحد الاقصي لعدد صفوف الفاتورة .. ( ولا تقول لي انه لا نهائي ..هههه .. حيث انه غير منطقي ) .. ليتم العمل علي هذا الاساس و هل ستقوم بطباعة هذه الفاتورة ام انها ستكون للتسجيل والتعديل ... الخ فقط .. وهنا نعود للنقطة السابقة انه غير منطقي في حالة الطباعة طباعة عدد لا نهائي من صفوف الفاتورة تقبل خالص تحياتي فورم11.rar

جزاك الله خيرا

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

السلام عليكم الاخ الكريم / tahermohamed بارك الله فيك ========================== عذرا اخي طلبك وموضوعك يحتاج لوقت فراغ من احد الاعضاء لتنفيذه بالكامل وياريت لو تقوم بعد ذلك بطرح موضوعك طلب طلب ( ستحصل عليه بسرعة اكثر وبحلول متنوعة واكثر ) اما قيامك بوضع موضوع كهذا وكثرة الطلبات فيه تجعل معظم من يراه يتركه ... ليس لشئ ولكن لضيق الوقت لديه ( وانا منهم ) فلقد رأيت الموضوع منذ وضعها ولكن عندما رأيت كثرة الطلبات في المرفق تركته لأخ غيري فالعذر لكل اخوانك الاعضاء لان الجميع يشارك تبعا لوقته وما لديه من معلومات ========================= اما بخصوص الملف فسأقوم بتقديم وتنفيذ طلباتك جزءا جزءا لتتناسب مع طلبك تم تنفيذ الجزء الخاص بـ 1- المسلسل لرقم الاذن اصبح تلقائياً ( لا اعلم ان كنت تريده هكذا ام لا ) 2- تم اضافة رزنامة التاريخ او الـ Calendar لاضافة التاريخ لتكست بوكس التاريخ 3- تم تنفيذ طلبك بخصوص كود المورد واسم المورد بمجرد كتابه كوده 4- تم تنفيذ طلبك بخصوص كود المخزن واسم المخزن بمجرد كتابه كوده في انتظار طلباتك بخصوص هذا الجزء اولا ثم نذهب للطلبات الاخري ان لم يكن لي اي طلبات او استفسارات في هذا الجزء تقبل خالص تحياتي فورم1.rar

السلام عليكم هل هذا ما تريده استاذ / m_ken0177 book 11.rar

السلام عليكم كل الشكر لإخوتى الأفاضل سليم حاصبيا وإسلام الشيمي تفضل أخى المطلوب باستخدام دالتى index و match بديلا عن دالة vlookup book.rar

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

السلام عليكم لا اضن ان هذا الموقع المناسب لطلبك لاكن لابأس البرنامج الوحيد الذي يمكنه تنفيذ طلبك و يدعم العربية هو برنامج Readiris Corporate فيديو يشرح البرنامج http://www.youtube.com/watch?v=HbNNQNBmX7Y

في هذه الحالة اترك اكواد الفورم مثل ما هي بدون تغيير مثل ماهي في المرفق في المشاركة 1 والتغير الان سيتم في كود اظهار الفورم فقط سيتم فيه تحديد الخلية التي نريدها ونمنع تنشيط اي حلية اثناء فتح الفورم مثلا كود الزر الاول Sub KH_SHOW() Range("D13").Activate With UserForm1 .kh_SetRng Sheets("t1").[B3:B200] .Show 1 End With End Sub في هذا الكود لا يمكنك التغيير الا في الخلية D13 ولا يمكنك تحديد اي خلية اخرى والفورم مفتوح وهكذا مع الزر الثاني مع تغيير خلية التعديل تحياتي

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

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

شكرا استاذى الحبيب نورت الموضوع والمنتدى كله جزاك الله خيرا

تفضل 1231.rar

الأستاذ / بن خليفه السلام عليكم ورحمة الله وبركاته أهلاً وسهلاً بك .إن شاء الله تجد كل المساعدة من جميع الأساتذة الكرام في هذا الصرح الكبير.إليك الملف لعله المطلوب. 1231.rar

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

الاخ الحبيب / قنديل الصياد مرور طيب وكريم من شخص كريم تقبل خالص تحياتي جزاك الله خيرا

بسم الله الرحمن الرحيم طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة (((( الدرس الاول - الجزء الثاني )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة في المساركة السابقة اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا

بسم الله الرحمن الرحيم طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة (((( الدرس الاول - الجزء الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة تصميم فورم بحث عن طريق لست بوكس11.rar 1.rar

كشـف تـوزيـع فئـات النقـديـة المرفقات عبارة عن ::: 1 - ملف البرنامج و يشمل ::: ::: الورقة الاولى هى النموذج المبسط ::: الورقة الثانية هى النموذج المتقدم 2 - ملف فيديو طريقة العمل على النموذج المبسط 3 - ملف فيديو طريقة العمل على النموذج المتقدم Cash_distribution_groups.rar __________________.rar ___________________.rar