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

Private Sub txt1_Exit(Cancel As Integer) If IsNull(Me![txt1]) Then MsgBox "لا يمكن ترك الحقل فارغا ", vbCritical, "رسالة تنبية" Cancel = -1 End If End Sub اترك الحقول كما هي في الجداول وفي النماذج فقط استخدم هذا الكود في حدث الخروج من الحقل هذا الكود يمنع المستخدم من الخروج الا بعد الكتابة في الحقل

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2015 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى ملاحظات هامة يمكن إختيار الفرنسى للمحافظات المطبق عليها الفرنسى أو اختيار بدون للمحافظات التى لا يطبق عليها الفرنسى ويمكن اختيار الانجليزى مستوى رفيع للمادرس التجريبية يصلح لأى قرار وزارى سواء 313 أو 460 تحية لمنتدانا الغالى ولأعضائه الكرام وعذرا لأى خطأ أوسهو أخوكم رجب جاويش بعض واجهات البرنامج كنترول الإعدادى رجب جاويش الإصدار 15.rar

السلام عليكم المنتدى نايم بحاول أصحي الناس والناس بردو نايمه .. خير اللهم اجعله خير ... هو فيه مبارة كرة قدم ولا الناس كسلانة ولا تعبانة طيب للي مهتم بالأمر .. هل ترغب أن يقوم الإكسيل بالحفظ التلقائي كل 10 ثواني مثلا .. في حدث الورقة ضع الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer End Sub Private Sub Workbook_Open() StartTimer End Sub وفي موديول جديد ضع الكود التالي Public RunWhen As Double Public Const cRunIntervalSeconds = 10 Public Const cRunWhat = "The_Sub" Sub StartTimer() RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _ schedule:=True End Sub Sub The_Sub() ActiveWorkbook.Save StartTimer End Sub Sub StopTimer() On Error Resume Next Application.OnTime earliesttime:=RunWhen, _ procedure:=cRunWhat, schedule:=False End Sub ويمكنك بالطبع تغيير الوقت المراد عمل الحفظ التلقائي على أساسه من خلال السطر الثاني Public Const cRunIntervalSeconds = 10 إليكم الملف المرفق Auto Save Every 10 Seconds.rar

السلام عليكم إخواني الأحباب في الصرح العملاق أقدم لكم اليوم موضوع في غاية الأهمية بالنسبة للكثيرين وهو التعامل مع القائمة المنسدلة بخاصية التحقق من الصحة. سبق وأن شرحنا في دروس سابقة كيفية عمل قائمة منسدلة باستخدام خاصية Data Validation أو التحقق من الصحة .. عيوب القائمة المنسدلة أنه لا يمكنك تغيير حجم الخط لهذه القائمة .. عدد الصفوف الظاهرة بها 8 فقط ، ولا يوجد بها خاصية الإكمال التلقائي .. يعني من الآخر قائمة عقيمة في التعامل معها مع الملف المرفق شرح وافي لكيفية التغلب على هذه العيوب بالتفصيل في ورقة العمل Help أترككم مع الملف عله ينال إعجابكم والسلام عليكم Auto Completer Data Validation.rar

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته بناء على طلب الاخ طاهر محمد فى تنفيذ برنامج يصلح لجمعيه خيريه وقد تم بحمد الله عمل البرنامج بنجاح ................................................ ولكنى اردت فقط ان اطرح العمل فى موضوع جديد لتعم الاستفاده على من يريد ................................... اريد ان اعتزر على عرض الموضوع مرتين ولكن حدث خطأ فى رفع الملف فى المره الاولى التى تم عرض الموضوع فيها على الرابط الاتى http://www.officena.net/ib/index.php?showtopic=56548&hl= تقبلو تحياتى جمعية خيرية2.rar

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

أخي الحبيب ناصر تفضل المرفقات يوجد ملف نصي به كود قم بوضعه في حدث فتح المصنف بس الأول شوف السيريال الخاص بالهارد ديسك الخاص بك وضعه في الكود ليعمل الملف .. وشوف الملف دا هيتشغل على جهاز تاني ولا لا HD Serial Number.rar

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

تسلم الأيادي يا ابن مصر يا كبير

لما لم ينجح كود الربط بسيريال الهادر ديسك؟ ارفق الملف الذي حاولت أن تقوم بربط السيريال فيه

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

الحمد لله الذي بنعمته تتم الصالحات

تفضل يا ابن مصر الملف المرفق .. ممكن يكون حصل معاك مشكلة بسبب إنك مخرجتش من وضع التصميم Design Mode Auto Completer Data Validation.rar

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

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

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

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

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

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

استاذى الفاضل / الجموعى شكرا لحضرتك شرح مبسط ورائع بالفعل ادركت تغيير وقت الوميض اليوم [اصل انا بفضل تعبان ( هههههههههههههه) طبعا دى حته للاستاذ / ياسر خليل ] لحد ما افهم الكود وازاى اعدل عليها واستفيد منه واسخره فى اعمال اخرى شاكر جدا لحضرتك تقبل احترامى وتقديرى

في حدث الشيت يتم تغيير وقت ظهور الوميض +التحكم في أعلى قيمة أو أقل لنبض الخلية Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Dim d, a 'هنا يتم إدخال الخلايا للوميض If Not Intersect(Target, Range("A1:B20")) Is Nothing Then If Target.Count > 1 Then Exit Sub 'هنا يتم إدخال أعلى قيمة للوميض الخلية If Target > 1000 And IsNumeric(Target) Then 'من هنا يتم تغيير ثواني الوميض الخلية Call Pulsate(Target, 2) 'Pulsate 2 Seconds. End If End If End Sub

بارك الله فيك أخي الحبيب على مرورك الكريم ..تقبل تحياتي

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

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

استاذ احمد /السلام عليكم اليك هذا الحل الذي لا يسمح بالتكرار مع حق الاختيار الحد الادنى و الحد الاقصى للارقام اختيار عشوائي.rar

أخى الفاضل لدى كود ينقل الصف الذي تحدده ... صف واحد كل مرة .. مرفق لربما يفيدك خالص تحياتى test101.rar

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

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

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

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

استاذ يوسف سعيدة جدا بالمساعدة وأفدتني بإجابتك جدا اشكرك جزيل الشكر لانها مفيدة وعملت بنجاح...شكراً

السلام عليكم ورحمة الله وبركاته الاخوه الاعزاء أرجو ان بنال الموضوع الاهتمام أريد عمل كود ينفذ العملية التالية كود: 1. Go to Registry 2. HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contro l\Windows 3. Change CSDVersion string value from 200 to 300 4. Reboot 5. Install Office 2010 and reboot again 6. Repeat first four steps to get 300 to 200 parameter again 6. Voila! Enjoy your product هذه العملية تجعل ويندوز ( xp sp2 ) يقبل تنصيب أوفيس 2010 اللى أنا افهمته من العملية السابقة أنه سيتم تحويل قيمة من 200 الى 300 فى المسار المذكور ثم يتم عمل تثبيت للأوفيس 2010 وعد التنصيب يتم ارجاع القيمة الى 200 مرة أخرى ان كان هذا صحيح سيكون تنفيذ العملية على كودان منفصلان الكود الأول يتم تنفيذه قبل عملية تثبيت الأوفيس 2010 الكود الثانى يتم تنفيذه بعدعملية تثبيت الأوفيس 2010 رابط الموضوع http://solve-theproblem.blogspot.com/2012/02/2010-xp-sp2.html نفس الموضوع فى صفحة انجليزية http://www.intowindows.com/how-to-install-office-2010-on-windows-xp-sp2/

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

اخي في الله محمد السلام عليكم ورحمة الله كلنا هنا نساهم بما وهبنا الله من وقت وجهد الملف بالمرفقات project acc.rar

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