حسام نور

- راجع الرابط التالي .. ستجد شرح لذلك مدعوماً بالصور http://www.officena.net/ib/index.php?showtopic=3069 وشكراً

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

- عمل جميل جداً ... تقبل خالص تقديري

بالمرفقات Exit.zip

تفضل الكود وهو للخروج من ملف الأكسيل Private Sub CommandButton1_Click() Application.Quit End Sub

- يمكن عمل ذلك أخي الكريم .. أمنحني بضع أيام لأضع تصور مبدئي لذلك وأضعه لك هنا وشكراً

- لا يوجد أصدار للأوفيس بأسم ( Me ) هذا أسم نسخه للويندوز وهذا لا علاقة له بالكود حيث أن الأوفيس بإصداراته ( 97 - 2000-2003-Xp ) تقبل الكود وشكراً

- تميز بلا حدود أخي محمد ... وفقك الله

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

- قد لا تعمل بعض الأزره المصممه ببرامج تصمصم الأزره ولكن الماركوهات العاديه تعمل دون مشاكل .

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

- إذا كان الأوفيس في جهازه مختاراً بأن يعمل على اللغة العربية فسيعمل الملف لديه بهذه اللغه . فستظهر أشرطة الأدوات باللغة المختاره في جهازه هو

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

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

- أشكر الأستاذ القدير ( السيد عبد العال ) الذي طالت غيبته وزاد أشتياقنا له . - ولأخي عادل صادق دعني أشرح لك ما قام به الأستاذ السيد عبد العال لكي تتضح لك الصوره * أي خليه في العمود A سيزيد الرقم بها عن 200 ستظهر رسالة تنبيه هذا حسب الكود الموجود بالملف * وللأطلاع على الكود وتعديله أضغط Alt+F11 من لوحةالمفاتيح ستظهر لك شاشه . من القائمة بالجهة اليسر أفتح ورقة العمل الأولى سيظهر الكود على الجهة اليمنى ستجد في السطر الثالث من الكود مجال الخلايا المطبق عليه الكود من A1:A64000 يمكنك تغيير العمود حسب الرغبه * في السطر السادس من الكود ستجد الرقم المحدد والمطلوب ظهور رسالة تنبيه عند تجاوزه وهو أكبر من 200 * في السطر السادس من الكود بعد كلمة MsgBox وبين القوسين يمكنك تغيير نص الرساله وبالتوفيق

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

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

* راجع الرابط التالي .. http://www.officena.net/ib/index.php?act=ST&f=14&t=695&st=0 وشكراً ..

* ممكن هذا من خلال * بيانات * التحقق من الصحه وضع الشرط الذي تريده .

وهذا كود آخر يقوم بإظهار التاريخ في العمود رقم ( 8 ) في الخليه المقابله لما كتبت في العمود رقم ( 1 ) السطر الثاني من الكود به رقم العمود الذي ستكتب به البيانات السطر الثالث من الكود به رقم العمود الذي تريد أن يظهر به التاريخ Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 Then Cells(Target.Row, 8) = Now() End If End Sub Now_2.zip

الحقيقه أخي رامز أن ما تطلبه يحتاج لماكرو ليقوم بالمهمه . ولست أعلم ما سر القطيعه بينك وبين الماكرو ولهذا السبب لا تريد الماكرو الذي يؤدي المهمه على أي حال سأشرح لم وببساطه شديد كيفية تنفيذ ما تريد وبالماكرو . * أفتح ملف الأكسيل المراد تطبيق طلبك عليه . * إضغط Alt+F11 من لوحة المفاتيح * الآن ستظهر لك شاشه كبيره على الجهة اليسرى سترى أسماء أوراق العمل الموجوده لديك بالملف * أضغط على أسم الورقه المطلوب وضع الماكرو بها * الآن أنسخ الماكرو التالي وضعه عل الجهة اليمنى في الشاشه التي تحتوي على أسم ورقة العمل التي كنا بها من قليل Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 2 Then Range("E3") = Now() End If End Sub * الآن ما تحتاج لتغييره بالكود السابق حسب وضع الخلايا لديك هوا كالتالي . السطر الثاني من الكود موجود به رقم ( 2 ) وهو رقم العمود الذي ستقوم بكتابة أي شيء به ليظهر التاريخ تلقائياً في الخليه ( E3 ) الموجوده بالسطر الثالث من الكود السطر الثالث من الكود موجود به الخليه ( E3 ) الذي تريد أن يظهر بها التاريخ تلقائياً . يمكن تغييره حسب رقم الخليه التي تريد أن يظهر بها التاريخ والوقت أو التاريخ فقط حسب تنسيق الخليه . فهل أتضحت الصوره ؟ Now.zip

- أهلاً بك بيننا ونشكرك على هذه البدايه المشجعه ... والي الأمام

لكي يظهر التاريخ الهجري بخليه ما يجب أن يكون هذا تنسيقها b2dd/mm/yyyy * أضغط بزر الماوس الأيمن على الخليه وأختر تنسيق الخلايا * ثم من ( مخصص ) أكتب داخل مستطيل ( النوع ) الكود السابق * الآن أذهب للخليه وأكتب التاريخ بها وستلاحظ ظهوره بالهجري * قد تحتاج لتوسيع الخليه إذا كان طول التاريخ أكبر منها فقم بتوسعتها وشكراً

- أعتقد الحل الوحيد هو الحمايه كما شرح لنا الأستاذ محمد حجازي

سبحانك اللهم وبحمدك ... سبحان الله العظيم