ياسر خليل أبو البراء

أخي الحبيب بالنسبة لأول 3 أسطر لابد أن تكون في أول الموديول Public RunWhen As Double Public Const cRunIntervalSeconds = 10 Public Const cRunWhat = "The_Sub" أما بالنسبة لباقي الكود فميش مشكلة ومتنساش فيه أكواد مرتبطة بحدث WorkBook

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

أخي الفاضل راجع هذا الجزء Key1:=ws.Range("B2"), Order1:=xlAscending, _ Key2:=Range("B3"), Order2:=xlAscending, _ Key3:=Range("B4"), Order3:=xlAscending, _

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

ارفق مثال أخي الفاضل كي يسهل على الأعضاء مساعدتك

الباشمهندس طارق .. أنا لم أفهم ديناميكية المعادلة في الأساس .. أعتقد أنه لو فهمناها يمكن عمل دالة UDF تسهل عليه العمل بشكل كبير

مشكور أخي في الله جلال على مرورك العطر على الموضوع اللي مش موضوعي

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

الأخ الغالي المحاسب الجراح المصري السعودي بالنسبة للنقطة الأولى مفيش مشكلة إنك تكتبها مباشرة بس كدا أفضل عشان لو حد عايز يغير في الكود هيغير الوقت فقط ... النقطة الثانية نعم هذه من دوال الفيجوال بيسك الكائن Application المراد به طبعا الإكسيل كتطبيق ، متبوعا بنقطة ثم الطريقة Method المسماة OnTime أي عند التزامن مع وقت محدد ، ثم مسافة متبوعة بمعطيات الدالة التي ستعمل على أساسها ... أول المعطيات earliesttime:=RunWhen أي وقت التنفيذ وقد تم تعريفه في السطر السابق لهذا السطر بالمتغير RunWhen .. ثاني المعطيات اسم الإجراء المراد تنفيذه في هذا الوقت بالتحديد .. ثالث المعطيات schedule:= إما القيمة True لتشغيل التايمر أو False لإيقاف التايمر النقطة الثالثة أنا مجربتش أكواد تانية مع الملف بس أعتقد أنه لن يكون هناك تعارض إن شاء الله وجرب بنفسك وأبلغني بالنتيجة النقطة الأخيرة يوجد بالحدث Workbook_BeforeClose الإشارة إلى وقف التايمر (عداد الوقت) ، والحدث Workbook_Open أي عند فتح المصنف يبدأ العداد بالعمل .. ليس للموضوع علاقة بورقة العمل لأن الكود يعمل على حفظ المصنف ككل وليس على ورقة العمل فقط.

إثراءً للموضوع هذا حل آخر بالأكواد (طالما إن الأخ الحبيب سليم استفزني بالأكواد - ونعم الاستفزاز) Random List VBA.rar

بارك الله فيك أخي وحبيبي سليم ولا حرمنا الله من إبداعاتك وعطائك

لا أعتقد أن الدوال قادرة على فعل ذلك ولكن يمكن استخدام الأكواد في حدث الورقة Worksheet_Change

أخي الفاضل ماذا تقصد بتحديث البيانات ...ارفق مثال للتوضيح

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

ليه كدا يا بن مصر دا انتحار .. لما يعمل كدا المعادلات هتبقا في 1048576 صف مش حرام كدا دا الجهاز هيهنج كفاية إنه يحدد النطاق اللي فيه البيانات يعني من C1:C10 مثلا دا لو كان آخر صف C10

أخ أبو وليد يفضل إرفاق ملف للعمل عليه!!!!

بعد إذنك يا ابن مصر تفضل أخي أحمد المرفق التالتي (بس رجاء بعد كدا يكون فيه ملف مرفق ) Random List.rar

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

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

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

بارك الله فيك أخي أسامة .. وجزيت خيرا على مرورك الكريم

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

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

إخواني زيادة في الخير إليكم رابط لفيديو يشرح بشكل رائع الحلقة التكرارية For.. Next كتطبيق عملي على الموضوع

السلام عليكم المنتدى نايم بحاول أصحي الناس والناس بردو نايمه .. خير اللهم اجعله خير ... هو فيه مبارة كرة قدم ولا الناس كسلانة ولا تعبانة طيب للي مهتم بالأمر .. هل ترغب أن يقوم الإكسيل بالحفظ التلقائي كل 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