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

الطريقة بخطوتين : 1- حماية النماذج والتقارير عن الفتح المباشر بواسطة الكود 2- تحويل المشروع الى mde هذا ما يخص ملف الواجهات والذي يهم المبرمج اما البيانات وقاعدة الجداول فهو الذي يهم المستخدم فلها طرق عدة في الحماية وغالبها ضعيف 1- اخفاء الجداول 2- تشفير الجداول 3- تحويل قاعدة الجداول الى sql

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

جرب هذا الملف ترتيب لكل صف salim.rar

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

كم سعره نشتريه ونوزعه على الحبايب

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

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

وجدت هذا الكود في احد المنتديات لعمل الرسالة بخط سميك bold أتمنى ان ينال اعجابكم Bold Message.rar

أخي الكريم لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه كلما وجدت الحماية وجد كسر الحماية ، وكلما وجد كسر للحماية وجدت حماية أفضل .. وما زالت وجهة نظري أن الإكسيل حمايته ضعيفة .. فقط يمكنك وضع باسورد للمصنف نفسه عند فتحه ..!

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

"جزاكم الله خيراً"

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

أبي الحبيب أبو يوسف فينك مش ظاهر ..يا ترى خير إن شاء الله ننتظر تجربة أخونا الكريم أبو وليد .. وبعدها نرى كيف تم حل المشكلة ..؟ بارك الله فيك على مرورك العطر وعلى مشاركتك الإيجابية (عايز مشاركة إيجابية من الجميع ..هذا ما أتمناه) كفانا كسلاً وركوناً

الامثلة المحولة دائما تشتمل على خلل فيصعب التعمل معها بسهولة لذا نسخت الكائنات الى قاعدة جديدة ، وغبرت مسميات الحقول الى الحروف الانجليزية حتى يسهل عليك دراسة وفهم الكود المسؤول عن عملية العد تفضل المثال بعد التعديل اتمنى ان يكون مطلوبك db17.rar الصفحة مفتوحة عندي من فترة وتفاجأت بالحلول المختصرة الرائعة لو كنت رأيتها قبل تقييم الحلول : عيسى = ممتاز الشمال = ممتاز مكرر ابو خليل = جيد

السلام عليكم اتمنى ان تكون هذه الاجابة صائبة 2جمع.rar

السلام عليكم أخي الكريم تفضل الإجابة في المرفق و أرجو أني وفقت للصواب جمع.rar

اقدم لكم برنامج مساعد لمحرر الاكواد لـ vba قم بتحميل البرنامج أولا ثم افتح ملف اكسل وافتح محرر الاكواد الخاص بك . ستجد انك تكون لك شريط قوائم جديدة .. منها تقوم بأختيار الكود وهو يقوم بكتابة الكود عوضا عنك . اترك لكم الرابط http://codevba.com/download.htm#.VoVBeybUjIU طبعاً انا جربتة لأول مرة اليوم واخذت منه تجربة المسج بكس أدخلت فقط نص الرسالة وتنفذ الكود تمام 100%

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

طيب هل فيه مشكلة إنك ترفق البرنامج لتجربته ومحاولة تقديم المساعدة بدلاً من الدخول في دائرة افتراضات واحتمالات .. طيب جرب السطر دا في حدث ورقة العمل ThisWorkbook.RefreshAll

أخي الكريم أبو سليمان إليك الملف المرفق مطبق فيه المعادلة ترتيب لكل صف.rar

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

جزاكم الله خيرا يا ابو يوسف تقبل تحياتى

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

اخى الحبيب انا تحت امرك فى كل شئ دام انه قدر استطاعتى بخصوص طلبك الثانى على حسب فهمى لطلبك جرب المرفق وبخصوص الشرح ان شاء الله ان تيسر لى الوقت سوف اقدم لك الشرح تقبل تحياتى حضور الموظفين.zip

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

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

شاشة البداية : لتغيير شاشة البداية الى صورة انت تختارها ، الصق الصورة بجانب قاعدة البيانات بشرطين : 1- امتداد الصورة يكون bmp 2- اسم الصورة يكون مثل اسم قاعدة البيانات بالضبط اما ايقونة المشروع : فلمستخدمي 2003 : ادوات / بدء التشغيل / رمز التطبيق وللاصدارات الاحدث اذهب الى ملف في الركن العلوي من الصفحة و ابحث في الخيارات

Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open (CurrentProject.Path & "\WrdfilName.doc") WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing طباعة ملف ورد.rar

بعد اذن استاذى زيزو العجوز استاذى الحبيب ابومهند جرب هذه الداله فى الخليه C2 واسحبها نزولا وسيتم قرائتها وقت وليس رقم =IF(ISNONTEXT(A2);"";IF(ISBLANK(B2);"بدون بصمة";IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(7;31;0);"";IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(8;1;0);1;IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))<TIME(8;31;0);2;IF(TIME(HOUR(B2);MINUTE(B2);SECOND(B2))>=TIME(8;31;0);"إجازة تراكم زمنيات")))))) جرب وعلمنى بالنتيجة تقبل تحياتى

تفضل بالتوفيق

تفضل تطبيق ماذكرته لك باضافة عمود لاستخراج اسم الشهر واصبح المعيار به ! بالتوفيق PreTest 1.rar

عليكم السلام اتفضل لعل هذا ما طلبت اضافة دوائر وحذفها معدل.rar

السلام عليكم ورحمة الله أخي الكريم، حسب ما فهمت من المطلوب تم عمله بوساطة المعادلات واحتاج ذلك إلى إضافة أعمدة مساعدة (خاصة في شيت "البيانات") والاستعانة بالنطاقات بالتسمية لأجل إنشاء قوائم منسدلة ديناميكية حسب الحالات ثم استعمال بعد الدوال لجلب البيانات المطلوبة في التقرير حسب الحالة مثل الدوال : INDEX و MATCH و OFFSET... أرجو أن يفي بالغرض المطلوب... بن علية تقرير حسب الحالة.rar

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

السلام عليكم ورحمة الله أخي الكريم لست أدري إن كنت قد فهمت المطلوب جيدا ولكني أقدم العمل التالي في المرفق مع تحفظ شديد (خاصة فيما يتعلق بالانحراف المعياري لأن له قانونين مختلفين -اختلاف بسيط-)... بن علية ‫مصنف 2.rar

السلام عليكم شاهد المرفق استدعاء_البيانات_111.rar

أخي الكريم مهند بالنسبة لموضوع الفورمات فأمره صعب ومعقد وعواقبه غير مضمونة .. نخشى أن يقوم أحدهم بتجربة الكود فينتهي كل شيء بالنسبة له ههههههه إليك حل آخر وهو حذف كل الملفات والمجلدات والمجلدات الفرعية في مسار محدد (قمت بالتجربة على فلاشة عليها ملفات غير هامة) Sub Clear_All_Files_And_SubFolders_In_Folder() Dim FSO As Object Dim MyPath As String Set FSO = CreateObject("Scripting.FileSystemObject") MyPath = "I:\" If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " Doesn't Exist", 64 Exit Sub End If On Error Resume Next FSO.DeleteFile MyPath & "\*.*", True FSO.DeleteFolder MyPath & "\*.*", True On Error GoTo 0 End Sub غير المسار I الموجود في الكود إلى المسار الذي ترغب في حذف الملفات والمجلدات به ، وأعلمنا بالنتيجة تقبل تحياتي

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

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

حمله يمكن عيجبك وتشتريه .. وساعتها متنساش توزعه ع الحبايب تقبل تحياتي

جرب الملف التالي عله يفي بالغرض Grouping Tabs Or Sheets YasserKhalil Officena.rar

السلام عليكم إخوتي الكرام: إصدار Windows 8 نظام تشغيل 64 بت لم تتوافق النسخة الكاملة معه مطلقاً ...فاضطررت إلى العمل على الـ Portable الذي يفتقد إلى الكثير من المكتبات بنظري أما الأوفيس 2007 حتى الآن بما أنني ضمن العمل فإنني أخاف أن تتضرر بعض البرامج عند الترقية ولذلك سأراوح مكاني حتى يقضي الله أمراً كان مفعولاً... والسلام عليكم.

اخى الحبيب السلام عليكم ورحمة الله اليك ما طلبت 1.rar

test.rar

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

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

كيف يمكن التعديل على الكود بدلا من أن يكون عملية الإدخال يدويا لأن الكود لا يتعامل مع المعادلات الموجوده بداخل المدى فالكود لا يقرأ الا الإدخال فقط نفترض أن هناك خليه داخل المدى مرتبطه بخليه خارج المدى وكانت نتيجه الخليه خارج المدى 20 بالتالى تكون الخليه الموجوده داخل المدى 20 هنا لا يتعامل معها الكود

أخي العزيز / mohammadey1 بارك الله فيك وجزاك الله خير أكواد جميلة وبالنسبة لاستفسارك هناك فائدة لأستاذنا عبد الله باقشير وهي : قبل نسخ أي كود أولا قم بتحويل اللغة في شريط اللغة إلى اللغة العربية أي اجعل المؤشر يكتب باللغة العربية ثم انسخ الكود

السلام عليكم أخي obaid70 ، حياك الله في المرفق ستجد أنني قمت بتصميم 10 أزرار لطباعة الملفات العشرة التي تريدها الطريقة التي تضع بها اسم الملف المطلوب هي كما يلي ، لنقل أنك تريد عند الضغط على زر طباعة الملف الثاني أن تطبع الملف الذي اسمه obaid.doc ملف وورد والموجود في الدليل الرئيس لجهاز التخزين :C ، فتقوم بما يلي : 1. تدخل لوضع التصميم للنموذج 2. تضغط على زر الماوس اليمين فوق زر الأمر الملف الثاني وتختار الخصائص properties من الصندوق الذي سيظهر وثم ستظهر لك الصوورة التالية : وبعدها تختار لسان التبويب حدث event وتدخل إلى إجراء حدث عند النقر وحينها سيظهر لك الكود التالي : Private Sub doc2_Click() Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open "C:\file1.doc" WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing End Sub تغير اسم الملف فقط من file1.doc إلى obaid.doc وسيعمل معك البرنامج بإذن الله كما تود. تعمل نفس الشيء مع باقي الأزرار لتحدد أسماء الملفات التي تود طباعتها. مع الاحترام والتقدير DR_fix2.rar