محمد طاهر عرفه

طيب يا جماعة شدوا حيلكم :d

كل أمثلتك أخي أبو هادي فى الحفظ و الصون :d و يسعدني دائما مداخلتك ، فبالتأكيد ستكون مفيدة أهلا بك أخي عصام ، أنا موجود و لكن مهام ادارة المنتدي الغير ظاهرة تأخذ جانبا من الوقت :pp: مرفق المثال Titles_AHD.zip

الحل المقدم من موقع سايمتنك ( نورتون) http://service1.symantec.com/SUPPORT/nav.n...=&osv=&osv_lvl= و نفس الكلام من موقع ميكروسوفت http://support.microsoft.com/default.aspx?...b;en-us;Q329570 و باختصار الرسالة معناها أن اوتلوك اسكبريس و اليس الاوتلوك قد ازال الملف و يمكنك التغلب عليها ب tools options security Virus Protection وأزل الخيار Do not allow attachments to be saved or opened that could potentially be a virus"

لنفرض أن لديك قائمة من الاسماء عددها مثلا عشرة أسماء و لكن بها تكرار و الاسماء الفريدة بها عددها 7 كيف تستطيع الحصول علي عدد الاسماء الفريدة فقط مع اهمال التكرار الاجابة فى الملف المرفق اختار قائمة الاسماء اعطها اسم و ليكن names insert , name , define , names ثم ضع المعادلة التالية فى الخلية التي تريد الحساب فيها =SUM(1/COUNTIF(names;names)) و لا تضغط Enter و لكن CTR+SHift+Enter لكي تتحول الي array forumal و تظهر علامة ال {} الخاصة بها فتحصل بذلك علي العدد الفريد للاسماء بصرف النظر عن التكرار المصدر http://www.pcmag.com/article2/0,1759,1537551,00.asp و قد أعددت المثال المرفق و الفكرة الذكية جدا باختصار أنه اذا تكرر الاسم مرة ستحصل علي 1/1 و مرتان ستنتج الدالة 1/2 + 1/2 و اذا3 مرات ستكون 1/3+1/3+1/3 و هكذا فلكل اسم فى النهاية سيكون المجموع 1 و بالتالي نحصل علي المجموع الفريد للاسماء و ليس الكلي و للحصول علي العدد الكلي =COUNTA(names) بدون array forumla هذه المرة CountUnique.rar

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

لاخفاء الاستعلام Application.SetHiddenAttribute acQuery, "Query1", True لاظهار الاستعلام Application.SetHiddenAttribute acQuery, "Query1", False

http://www.officena.net/ib/index.php?showt...=634&hl=للتقريب

ربما يكون هذا الموضوع مفيدا http://www.officena.net/ib/index.php?showtopic=306

ان الدالة today تقرأ من تاريخ الجهاز ، و تتغير القيمة بتغيره لذا لابد من أن تقوم بعمل copy paste value سواء يدويا أو بماكرو لتحويل الدالة الي قيمة اما الاحتفاظ بها كدالة و عدم تغير القيمة فاعتقد أن هذا غير وارد

المثال لعدد كبير من الدوال موجود هنا التفقيط فى الإكسيل تحويل الأرقام الي حروف http://www.officena.net/ib/index.php?showt...pic=33&hl=تفقيط

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

هذا هو الملف ( لم أجربه ) و ان كنت أنصح باعادة التحميل بالترتيب 97 ثم 2000 97after2000.rar

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

هذا ممكن فى أوفيس 2002 أما فى 2003 فالنسخة التي رأيتها ليست نسختين عربي و انجليزي و انما نسخة انجليزية تدعم اضافة اللغات و فى نسخ أخري توجد اسطوانة اضافية لدعم اللغات اي ان 2003 لم أر لها نسخة عربي و اخري انجليزي

ضافة بسيطة تم وضعها فى مواضيع أخري كسؤال من بعض الاخوة و هو أنهم لا يستطيعون التحويل الي mde فى الاكس بي و الاجابة أنه فى الاكس بي ، لابد من تجويل تنسيق الملف اولا الي تنسيق 2002 ( اكس بي ) ثم بعد ذلك تجويله الي Mde و البعض ينسي هذه الخطوة لان التنسيق الافتراضي فى الاكس بي هو تنسيق 2000

هذه المقارنة من موقع ميكروسوفت http://www.microsoft.com/office/editions/p...fo/compare.mspx و هي ليست مقارنة بالمعني ، و انما الغرض منها اظهار التطورات فى الاوفيس 2003

تأكد من ادراج الدالة فى موديول فى نفس الملف

كما فى المثال الاول الخاص بملف النص نضيف مسار و اسم الملف بعد البرنامج بمسافة Dim ExcelPath ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE d:\layla\layla.xls", 1)

لفتح أي ملف باستخدام تطبيق محدد استخدم الامر shell مثلا لفتح ملف txt بالنوت باد Dim x x = Shell("notepad.exe c:\testfile.txt", 1) حيث الجزء الاول هو الملف التنفيذي للتطبيق و فى حالة البرامج الخارجية عن تطبيقات الويندوز يتم اضافة مسار الملف التنفيذي للبرنامج بالكامل ثم مسافة ثم اسم الملف المطلوب تشغيله أو لتشغيل التطبيق فقط نكتفي بالجزء الاول مثل فتح الالة الحاسبة Dim RetVal RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' Run Calculator. مثلا مسار الملف التنفيذي للاكسيل يختلف بحسب الاصدار مثل Dim ExcelPath ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1) or Dim ExcelPath ExcelPath= Shell("D:\Program Files\Microsoft Office\Office10\EXCEL.EXE", 1)

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

مرفق مثال لاحد الأخوة و أرجو ممن يعرف صاحبه أن يذكرنا باسمه mouseWheel.zip

المثال الاصلي الكامل هنا النسخ الاحتياطي / التصدير / تغيير المسار http://www.officena.net/ib/index.php?showtopic=301&hl= و بخصوص كلمة السر جرب التعامل معها بنفس المفهوم هنا http://www.officena.net/ib/index.php?showt...pic=1164&hl=pwd أقصد اضافة ";PWD=123" الي الكود ( لم أجرب ) حيث 123 هي كلمة السر

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

موضوع ذو صلة التعرف علي اللغة الحالية و تغييرها و التحكم فيها http://www.officena.net/ib/index.php?showtopic=953

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