أ / محمد صالح

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

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

تفضل أخي الكريم الموقع الكبير لعرض النتائج جاري تعديله ليتناسب مع درج في كل ترم من 100 ما تم عمله على ملف الإكسل الخاص بكم تم تعديل الملف وحذف الأعمدة المخفية وفك دمج الخلايا للوصول للأعمدة المطلوب عرضها في النتيجة تم استيراد الشيت إلى قاعدة بيانات أكسس تم تصدير الجدول طالب كملف xml تم وضع الملف xml بجوار ملف html في نفس المجلد تم تعديل ملف html وإضافة عمودين لنشاط1 ونشاط2 وإضافة التقدير ويمكنك تعديل اسمي في صفحة html وإضافة اسم رئيس الكنترول ومدير المدرسة وكذلك تعديل اسم المدرسة والإدارة والصف natiga_xml.rar

أخي الكريم يفضل استعمال البحث أولا قبل كتابة مواضيع جديدة وخاصة في حالة الأمور البسيطة في بداية الطريق فأنا أنصح كل من يريد أن يتعلم بأن يقرأ ويبحث أولاُ ثم يسأل بعد ذلك إذا لم يصل لما يريد هذه بعض الروابط http://www.officena.net/ib/index.php?showtopic=37788 وهذا فيديو

أخي الكريم ايمن إذا كنت تتحدث عن البرنامج الخاص بعرض نتيجة المدرسة على موقع المدرسة بواسطة html و xml فالطريقة تتلخص في تصدير الجدول الذي يحتوي على بيانات ودرجات الطلاب بصيغة xml http://office.micros...P003091293.aspx هذا إذا كان ملف الدرجات أكسس وإذا كان ملف الدرجات إكسل يمكن استيراد ملف الإكسل إلى الأكسس أولا ثم تصدير الجدول إلى xml وتسميته بنفس اسم ملف xml المرفق مع ملف html ووضع الاثنين في مجلد واحد في الموقع أتمنى يكون الأمر اتضح ولكن أنا شخصيا أفضل وهذا هو أصل الموضوع عرض جميع نتائج المدارس في الموقع الأول حتى نتمكن من تفعيل الإحصائيات والمقارنات مما يسهم ولو بقدر يسير في تطوير العملية التعليمية

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

الأخت الفاضلة هل المقصود بالعدد المتوفر من كل مادة هو عمود الرصيد؟؟ إذا كان كذلك فيمكنك وضع المعادلة التالية في الخلية المجاورة لمادة 1 في الصفحة الرئيسية ( D6 ) ='Skin-des ملون'!D200 وهي آخر خلية في عمود الرصيد في شيت مادة1 المسمى 'Skin-des ملون' وفي حالة وجود مسافة في اسم الشيت يجب وضعه بين علامتي تنصيص ثم علامة التعجب ! ثم مرجع آخر خلية وهي D200 وهكذا يمكن تكرار الأمر مع باقي المواد والشيتات ............ عذرا أخي طارق لم أر حلك الرائع إلا بعد إرسال المشاركة

أخي الكريم سأخبرك بالطريقة ثم قم أنت بتسجيل الماكرو إذا كنت ترغب في عملها بالكود أولا قم بتحديد المدى الذي تريد نسخه ثم قم بتحديد المرئي فقط من خلال الضغط على ALT+; أو من تبويب الصفحة الرئيسية home اضغط على البحث والتحديد find & select ثم اضغط على ذهاب إلى خاص goto special ثم الخلايا المرئية فقط visible cells only ثم موافق ok ثم تابع عملية النسخ واللصق بصورة طبيعية CTRL+C & CTRL+V ستجد أنه تم نسخ الخلايا الظاهرة فقط

أكرمك الله أخي الكريم تم تعديل الملف بحيث يتم اختيار الملفات المرفقة ويتم كتابتها في مربع النص 5 ثم يتم إضافتهم جميعا كمرفقات للرسالة أتمنى من الله أن يكون هذا هو المطلوب ولا تنسوني من صالح دعائكم mas_IT3.rar

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

بعد إذن أخونا عبد الله أخي الكريم يجب التأكد من أن القيم المدخلة تواريخ أو أقام في حالتك هذه لأنك قمت بتقسيم التاريخ إلى أرقام وذلك من خلال التحقق من صحة البيانات data validation

أشكر جميع الإخوة على المرور الكريم نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

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

من الطبيعي أن يحدث هذا فأنت تقوم بتغيير خاصية لشيء ليس مرئياً وأعتقد أنه يلزمك التخلي عن أحد الكودين لكي يعمل الآخر حسب أولوياتك رغم أني لست أدري ما سبب إخفاء التطبيق ككل؟؟!!! يمكنك إخفاء أشرطة الأدوات جميعها بجعل التطبيق ملء الشاشة كبديل