أ / محمد صالح

وهذا هو الشكل الجديد للصفحة بعد استعمال الأجاكس واستدعاء الدالة عند كل تغيير في مكونات النموذج https://officena.net/team/mas/tafkeet/ وفقنا الله وإياكم لكل ما يحب ويرضى

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

بسم الله الرحمن الرحيم أنا مش فاهم المطلوب بالضبط هل هو عدم فتح ملف مفتوح فهذا موجود بالفعل فالإكسل يظهر رسالة يقول لا يمكن فتح الملف لأنه مفتوح وإذا كان المطلوب هو إمكانية فتح أكثر من نسخة من الملف فهذا موجود من خلال فتح الملف في نافذة جديدة ويظهر في آخر اسم الملف 1 أو 2 أو 3 حسب عدد النوافذ ياريت مزيد من التوضيح للمطلوب وما استخدامه الفعلي ربما يجد الأخ السائل ما يسره

بسم الله الرحمن الرحيم يسعدني أن أقدم لأحبتي في الله رواد أوفيسنا برنامج إكسل يمكنك من حساب النقاط في كأس الأمم الإفريقية 2013 ولا تنسوني من صالح دعائكم

عذرا أخي الموسى نظرا لانشغالي أتمنى أن يفيدك هذا الرابط http://www.accessmvp.com/KDSnell/EXCEL_Import.htm وهو يخص الكثير من طرق الاستيراد من الإكسل

موقع جريدة الفجر http://fajr.tagipedia.net/

شكرا لك أخي يوسف تصحيح بسيط لموقع اليوم السابع http://natega5.youm7.com/nategathanawy2012.aspx

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

ما شاء الله بارك الله لك أخي عبد الله وزادك الله من علمه وكل عام أنتم جميعا بكل خير

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

بارك الله لك أخي أحمد ذكرتنا بمجد مضى وبالنسبة لسؤال الأخ أبو ردينة تسمى غرائب الشعر وترجع إلى مستوى إتقان الشاعر للغة العربية وتمكنه من مفرداتها ومنها أيضا : قول القاضي الأرجاني مودته تدوم لكل هول ..... وهل كل مودته تدوم هذا البيت يقرا من الجهتين من بداية السطر إلى نهايته، كما يقرأ من نهايته إلى بدايته، دون اعتبار لتشكيل الحروف. جزء من القصيده الرجبيّه حلموا فما ساءَت لهم شيـم ..... سمحوا فما شحّت لهم مننُ سلموا فلا زلّـت لهم قـــدمُ ..... رشدوا فلا ضلّت لهم ســــننُ لها ميزة عجيبه هي: ان الأبيات، أبيات مدح وثناء ولكن عندما تقرأ بالعكس ولكن كلمة كلمة تكون أبيات هجائيه موزونة ومقفّاة. وسوف تكون الابيات بعد قلبها كالتالي: مننٌ لهم شحّت فما سمحوا ..... شيمٌ لهم ساءَت فما حلموا سننٌ لهم ضلّت فلا رشــدوا ..... قدمٌ لهم زلّت فلا ســلمـوا قصيدة مدح لنوفل بن دارم اذا اكتفيت بقراءة الشطر الأول من كل بيت. فإن القصيدة تنقلب رأساً على عقب. وتغدو قصيدة ذم لا مدح. قصيدة المدح: إذا أتيـت نوفـــــــل بــن دارم ..... امير مخزوم وسيف هاشـم وجدتـه أظلـــم كـل ظالــــم ..... على الدنانيـــر أو الدراهـــم وأبخل الأعـراب والأعاجــــم ..... بعرضــــه وســــره المكـــاتـم لا يستحي من لوم كل لائـم ..... إذا قضى بالحق في الجرائم ولا يراعــي جانب المكــارم ..... في جانب الحق وعدل الحاكم يقرع من يأتيه سـن النـادم ..... إذا لم يكن مـن قـدم بقـادم قصيدة الذم: إذا أتيت نوفـــل بن دارم ..... وجــدته أظلــم كل ظالــم وأبخل الأعراب والأعاجم ..... لا يستحي من لوم كل لائم ولا يراعي جانب المكارم ..... يقرع من يأتيه ســن النادم وفقنا الله وإياكم لكل ما يحب ويرضى

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

بارك الله لك أخي عبد الله وإذا سمحت لي بهذه الإضافة كود توسيط النموذج بالنسبة للتطبيق حتى لا يظهر في أعلى يسار الشاشة Private Sub UserForm_Initialize() Me.StartUpPosition = 0 Me.Top = Application.Top + ((Application.Height - Me.Height) / 2) Me.Left = Application.Left + ((Application.Width - Me.Width) / 2) End Sub

بارك الله لكم جميعا إخوتي وبعد إذن أخونا رجب يمكن اختصار الكود إلى هذه الجملة Shell "calc" وتعني استدعاء الحاسبة بغض النظر عن مسارها المذكور في مثال الأخ أبو حنين لأنه يختلف من نظام تشغيل إلى آخر ومن مستخدم لآخر حسب القرص المثبت عليه نظام التشغيل وفقنا الله وإياكم لكل ما يحب ويرضى

بارك الله لك أخي عبد الله مجهود رائع وعمل ممتاز

بارك الله لك أخي أحمد وإذا سمحت لي بتعديل بسيط حتى لا تظهر الفاصلة في نهاية السطر وخاصة في حالة عدم وجود أحد بعده Dim X As Integer, n As Integer For X = 0 To Cont.Value If [Select].Value = -1 Then Text6.Value = Text6.Value & IIf(n > 0, " , ", "") & Emp_Name.Value n = n + 1 End If لاحظ استخدام متغير آخر وجملة if لوضع الفاصلة قبل الثاني وما بعده وليس قبل الأول وفقنا الله وإياكم لكل ما يحب ويرضى

أكرمك الله أخي الكريم أيمن علام موضوع استخدام قاعدة بيانات من نوع xml مع صفحات الويب html ما زال يشوبه الكثير من المشكلات التي تخص التكامل مع جميع المتصفحات فما يكون متكاملاً مع انترنت اكسبلورر لا يكون مع فاير فوكس وكذلك كروم وهكذا ولذلك بحثت لك في مقتنياتي عن ملف بسيط جداً يقوم بنفس الغرض ملف فلاش ليس به أي معلومات عن أي مدرسة ( وهذه ميزته) يحل محل صفحة html ولكن يجب معه بعض الأشياء: تسمية ملف xml باسم marks تسمية حقل رقم الجلوس ب الجلوس وكذلك حقل الاسم (بدون همزة) وأي حقول وأعمدة تظهر في الملف باذن الله ويمكنك وضع رابط الفلاش في الصفحة الرئيسية للوصول للنتيجة مباشرة للعلم ليس هذا الفلاش من تصميمي وجزا الله صاحبه خيرا natiga_flash_xml.rar

أخي الكريم عبد الله عنصر التحكم الخاص بالنتيجة calendar المستعمل في الملف mscal.ocxغير موجود في أوفيس 2010 ولا يمكن وضعه في ويندوز 7 ولذلك قام بعض المبرمجين الإيطاليين بعمل هذا الكاليندر وقمت أنا فقط بوضع كود التعريب والاتجاه من اليمين لليسار يمكن استخدامه في الوورد والإكسل والباور وهكذا طريقة العمل: يجب وضع إطار في النموذج الجديد frame ثم إضافة الكاليندر للفريم ويمكن تغيير الكود الخاص بالضغط المزدوج على الكاليندر وهو هنا كتابة قيمة التاريخ في الخلية النشطة والسلام عليكم ورحمة الله وبركاته masCalendar.rar

أخي الكريم ينبغي عليك أولاً أن تثبت جميع النوافذ في مكانها الطبيعي وذلك من خلال tools-->options-->docking ثم نشط كل الاختيارات ثم من قائمة view اعرض ما تريد عرضه سيظهر في مكانه الطبيعي

بسم الله الرحمن الرحيـــــم السلام عليكم ورحمة الله وبركاته حياكم الله جميعاً إخوتي وأحبابي في الله أعضاء بيتنا الثاني أوفيسنا هل أردت الاستمتاع بمجموعة من الوسائط (ملفات صوتية أو فيديوهات) من مجموعة من المجلدات؟؟ وتعذبت في فتح ملف ثم غلق مشغل الوسائط ( الميديا بلاير ) والتوجه لفتح الآخر وهكذا إلى آخر المجموعة؟؟ هل تعبت من البحث عن الملفات ذات امتداد معين من بين ملفات مجموعة من المجلدات ووضعها في مجلد مستقل كي تسمعها أو تشاهدها منظمة؟؟ هل .....؟ هل ......؟ اليوم أقدم لكم هدية بسيطة جداً لعمل كل ما سبق فكرة الهدية: عمل ملف فيجوال بيسك سكريبت vbs يقوم بقراءة الملفات الموجودة في المجلد الذي يتم تمريره للكود وكذلك الملفات الموجودة في المجلدات الفرعية ضمن المجلد الأصلي ووضع ما يتفق مع مجموعة الامتدادات المسموحة منك جميعاً في قائمة تشغيل بامتداد m3u والتي تعمل على كل مشغلات الميديا. نأتي الآن للطريقة: افتح أي محرر نصوص مثل نوت باد وانسخ هذا الكود والصقه فيه On Error Resume Next Dim Exts, LstPath, Folder, NewFile, ObjFile, Ext Exts = split("mov,mp3,flv" , ",") Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder(Wscript.Arguments.Item(0)) LstPath = Folder.ParentFolder.path & "\" & Folder.name & ".m3u" Set NewFile = CreateObject("Scripting.FileSystemObject").CreateTExtFile(LstPath, 1) add2lst(Folder.Files) For Each SubFolder in Folder.SubFolders add2lst(SubFolder.Files) Next NewFile.Close CreateObject("WScript.Shell").Run """" & LstPath & """" Function add2lst(files) For each ObjFile In files For each Ext In Exts if right(ObjFile.Name, 3) = Ext then NewFile.WriteLine(ObjFile.path) Next Next End Function ثم احفظ هذا الملف باسم MakePlayList.vbs أو أي اسم آخر ولكن لاحظ الامتداد ليس txt وإنما vbs وحاول أن تضع الملف أثناء عملية الحفظ في أحد محركات القرص الصلب مباشرة يعني مثلا D:\MakePlayList.vbs لا تجرب الملف الآن فلن يعمل يلزمنا الآن أن نضيف في القائمة المختصرة للمجلدات الأمر الخاص باستدعاء تنفيذ الكود الموجود في ملف vbs مع إعطائه مسار المجلد الذي تم ضغط زر الفارة الأيمن عليه وذلك عن طريق ما يلي: افتح برنامج النوت باد أو اي محرر نصوص تريده انسخ الكود التالي والصقه فيه Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Folder\shell\Make Playlist\command] @="wscript G:\\MakePlayList.vbs \"%1\"" قم بحفظ الملف بأي اسم تريده مع التأكيد على أن الامتدادا reg وليكن مثلا MakePlayList.reg لاحظ في السطر الثالث من كود ملف الريجيستري هو مسار الملف vbs الذي أنشأناه سابقا ووضعناه في القرص الصلب D ولكن في الكود استعملت القرص الصلب G للتأكيد على إمكانية تغيير مسار الملف ولكن مع ضرورة كتابة مساره في ملف الريجيستري بصورة دقيقة. طب هنا هيسأل واحد ليه نحط ملف vbs في القرص الصلب مباشرة؟؟!! يعني ليه منحطوش في أي مكان تاني؟؟ الإجابة: لو تعرف تكتب المسار بتاع ملف vbs كامل ومظبوط مع مراعاة أن الشرطة الخلفية \ تكتب شرطتين \\ مفيش مشكلة (حطه في أي مكان يعجبك) مع مراعاة كتابة مساره بصورة صحيحة تبقى لنا أن نضغط على ملف الريجيستري مرتين لتشغيله ثم نعم ثم موافق كده كل حاجة جاهزة جرب كده بقة يا عم الحاج تروح لمجلد فيه فيديوهات أو ملفات صوت وتعمل عليه كلك يمين وتختار Make Playlist هتلاقي إنه تم إنشاء ملف بجوار المجلد يمكنك تشغيل كل الملفات التي بداخل المجلد من خلاله في صورة قائمة تشغيل نأتي الآن لجزئية مهمة جداً وهي التعديل على ملف vbs ليتناسب مع احتياجاتك إذا أردت مثلا وضع ملفات mp3 فقط من ضمن المجلد يمكنك تعديل السطر الثالث الخاص بالامتدادات Exts = split("mov,flv,mp3,wav" , ",") هنا في الكود أنا وضعت أكثر من امتداد لكي أوضح طريقة كتابة أكثر من امتداد على شكل المصفوفة وذلك بكتابة الامتداد ثم فاصلة ثم الذي يليه وهكذا وإذا كان الامتداد واحد فقط يجب أن يكون بنفس الصورة مع حذف الفواصل Exts = split("mov" , ",") ومرفق الملفين ولكن يفضل أن تجرب أن تقوم بها وحدك وهذه طريقة أخرى لعمل نفس المطلوب ولكن من خلال الدوس DOS باستعمال ملف batch بالفيديو وفي الأخير أتمنى أن أكون وفقت في إيصال المعلومة المفيدة للكثير منا وأتمنى أن تكون الهدية البسيطة نالت إعجابكم ولا تنسوني من صالح دعائكم حتى يقول لك الملك آمين ولك مثلها ويرجى مشاركة الموضوع حتى تعم الفائدة MakePlayList.rar

ههههههههههههههههههههه بارك الله لك أخي طارق وهذه قصيدة أخرى عن أهوال الامتحانات ولكن ليس بالنسبة للطالب ولكن للمعلم يقول الشاعر: شأني وشأن أولئك الطلابِ يدعو إلى الإضحاكِ والإعجابِ فأنا وإياهم نعيشُ بغرفةٍ مملوءةٍ بالخوفِ والإرهابِ ذا يبتغي قلماً وذلك آلة فأنا هنا في جيئةٍ وذهابِ وصريرُ أقلامٍ وسحْبُ مساطرٍ وتنفّسٌ عالٍ وعضّةُ نابِ ولربّما دسّ الخبيثُ بمكرهِ ( برشامةً ) في باطن الأترابِ وتراهُ يرمِقُ مقلتيك لعلّهُ يحظى بسرْقِ كُلَيمةٍ وجوابِ في الصبحِ يرقبني المديرُ مردداً ببلاغةِ الإسهابِ والإطنابِ لا تجلسنْ! لاتنطقنْ! لا تغفلنْ! احذر! تَنَبّه من عيونِ ذئابِ ولو أنني أطرقتُ طرفي لحظةً في الأرضِ لاستُلّت سيوف عتابِ كم ساعةً مرّت عليَّ بثقلها أقسى وأنكى من طِعانِ حِرابِ والفترة الأخرى أشدّ نكايةً وا رحمتاه لصحتي وشبابي لا تعذلوني إنْ سقطتُ مُجنْدلاً بين الكراسي فاقداً لصوابي ذا حالنا يا قوم حالٌ محزِنٌ نشكوهُ للمتفرّد الغلابِ إنّي أقولُ فأنصتوا لمقالتي يا معشر الأحبابِ والأصحابِ كلُّ البلايا قد تهونُ على الفتى إلا بلاء معلم الطلابِ شعر : عبدالله بن محمد العسكر

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

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

أخي الكريم هذه أساسيات الدالة أن يكون المعيار أو المعايير على شكل نطاق عمودي وليس أفقياً راجع هذا الرابط http://office.microsoft.com/client/helppreview14.aspx?AssetId=HP010342460&lcid=1025&NS=EXCEL&Version=14&CTT=5&origin=HP010342401

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