ibn_egypt

اخى الفاضل أعتقد ان هذه مكتبة الصرح ....في نفس الموضوع الصفحة 7 مشاركة 123 و 124 ... حل هذه المشكلة اضغط هنا http://www.officena.net/ib/index.php?showtopic=57935&page=7 تحياتي

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

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

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي copy invoices.rar

أستاذي الفاضل لم توضح حضرتك ذلك من البداية ... تفضل جرب الكود التالى Dim myrange As Range Dim cell As Range Dim ws As Worksheet Application.ScreenUpdating = False Set ws = ThisWorkbook.Sheets("مستويات اول نصف العام") sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo) If sama = vbYes Then Set myrange = ws.Range("g11:am1000") For Each cell In myrange If cell.Locked = False Then cell.ClearContents Next cell Else MsgBox "!! لم يتم الحذف" End If Application.ScreenUpdating = True وتم ارفاق ملف للتوضيح .... باسورد فك الحماية 1900 تحياتي Clear.rar

اخى الكريم أ.قنديل ينقص سطر واحد فقط كما في المرفق Sheets("مستويات اول نصف العام").UnProtect Password:="1900" ليصبح الكود بالكامل هكذا Sub صورة9_نقر() Application.ScreenUpdating = False Sheets("مستويات اول نصف العام").UnProtect Password:="1900" sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo) If sama = vbYes Then Range("g11:am1000").ClearContents Else MsgBox "!! لم يتم الحذف" End If Sheets("مستويات اول نصف العام").Protect Password:="1900" Application.ScreenUpdating = True End Sub فلابد من فك الحماية قبل تنفيذ الكود ووضع الحماية بعد التنفيذ .. فكيف تريد حذف بيانات من خلايا محمية بكلمة مرور تحياتي

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

استاذي الحبيب الخطأ من عندي، آسف لذلك قم فقط بتغيير كلمة Selection الى Target في سطر الكود الخاص بحدث Workbook_SheetChange ..كما في الكود التالى .. هتزبط ان شاء الله Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) LogInformation ActiveSheet.Name & Target.Address & " Changed: " & _ " " & Format(Now, "dd mmm yyyy hh:mm:ss") End Sub تحياتي

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي Emp_Courses.rar

اخى الفاضل أ.إبراهيم لا يشترط حرف ال L نهائي .. ممكن تغييره الى اى حرف آخر تريده .. احنا واضعين حرف ال L اختصار لكلمة Label فقط لكن ليس شرطا تحياتي

اخى الفاضل أ.جمال هذا هو طلبك أنت من حددت في المشاركة رقم 1 وقولت "فهل يوجد فورم عند فتحي للملف يظهر به الشيكات المستحقة بتاريخ اليوم الذي افتح فيه الملف"، حدد طلبك هل تريد إظهار شيكات اليوم أم شيكات اليوم والأيام السابقة لهذا اليوم ... كن واضحا ومحددا ... عامة مرفق ملف بعد التعديل لإظهار الشيكات المستحقة لليوم والأيام السابقة لهذا اليوم .. أرجو أن يكون هذا هو المطلوب تحياتي الشيكات المستحقة3.rar

أستاذي الفاضل أ.ياسر مرفق ملفين بهما 3 دوال برجاء اضافتهم الى المكتبة الملف الأول RecordChanges به دالة رائعة لتعقب أى تغييرات تحدث في ملف الإكسل وتقوم بانشاء مجلد باسم WhatChanged في القرص المحلى C وبداخله ملف نصي به كافة التغييرات التى تمت على الملف بالوقت والتاريخ وأسماء الخلايا التى تغيرت بياناتها دون أن تشعر بذلك هى مفيدة جدا لمن يخافون من العبث بملفاتهم يمكنهم وضعها بداخله لمعرفة ما هى الخلايا التى تم العبث بها وتغييرها وما هو الوقت والتاريخ الذي تم به ذلك الملف الثاني RunningWindowTasks به دالتين كل دالة في موديول منفصل للتعامل مع ادارة المهام في الويندوز او ما تعرف بال Task Manager والتى يقوم المستخدم بالضغط Alt+Ctrl+Delete للدخول اليها ومنها يمكن معرفة التطبيقات وكافة العمليات المفتوحة الدالة الأولى لإيجاد كافة التطبيقات المفتوحة.. جرب افتح أى عدد من التطبيقات واضغط على زر Application In Task Manager ستظهر لك كافة التطبيقات بالكمبوبوكس الموجود بالفورم الدالة الثانية .. دالة تسجيل كل ال Processes او العمليات المفتوحة للجهاز في العمود A مرفق الملفات تحياتي Nice3Functions.rar

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

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

اخى الفاضل طريقة اخرى لإثراء الموضوع ولعلها تفيد أحد الاخوة الأعضاء ... كل ما عليك هو وضع الصور بالتسلسل في اى مجلد تريده ثم بالضغط على الخلية A1 مرتين تحدد مسار الصور وفقط تحياتى Excel-Photo-Example.rar

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

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

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

اخى الفاضل طبعا ممكن أخى الكريم .. تفضل الملف المرفق به طلبك تحياتي الشيكات المستحقة2.rar

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

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

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

أخى الفاضل بخصوص التاريخ الميلادي استخدم هذه المعادلة .. وعلى افتراض ان التاريخ موجود بالخلية A1 =DATE(YEAR(A1)+2,MONTH(A1),DAY(A1)) وللتاريخ الهجري استخدم هذه المعادلة .. على افتراض ان التاريخ موجود بالخلية D1 حيث أن رقم 24 في هذه المعادلة يمثل عدد الأشهر المراد اضافتها على التاريخ =CONCATENATE(MID($D1,1,2),"/",TEXT(IF(MOD(MID($D1,4,2)+24,12),MOD(MID($D1,4,2)+24,12),12),"00"),"/",MID($D1,7,4)+INT((MID($D1,4,2)+24-1)/12)) مرفق الملف للتوضيح تحياتي Add_Years.rar

اخى الفاضل وبعد إذن أستاذنا الفاضل أ.ياسر، تم إدارج كود أ.ياسر بالملف الخاص بك .. كل ما عليك هو الضغط على زر تعبئة الرموز .. واذا أردت التغيير أو الزيادة فاضغط مفتاح Alt+F11 سيفتح الكود أمامك .. عدل كما تشاء في الأرقام أو الرموز تحياتي نطاق.rar

اخى الفاضل هذا الموضوع قتل بحثا ... ولا يمكن تفعيل الماكرو ابدا عند المشاركة هذا ما اعلمه .. راجع هذين الرابطين لربما يفيدك شئ منها ولو توصلت الى جديد في هذا الأمر فلا تبخل علينا به http://www.officena.net/ib/index.php?showtopic=49313#entry299845 http://www.officena.net/ib/index.php?showtopic=46928 تحياتي