KHMB

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

كل ملاحظاتك ممكن وإذا لي أي استفسار سأستوضح منك

انا عملت الملاحظات وسوف اعمل عليها إن شاء الله اترك لي فرصة لان الوقت متأخر

السلام عليكم ورحمة الله private declare ptrsafe function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong حاول تشيل Ptrsafe اللي باللون الاحمر ليصبح الكود : private declare function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong إن شاء الله تضبط معاك انا اعمل علي اوفيس 2013 نظام 64 بت والكلمة تخص نظام 64 بت

السلام عليكم ورحمة الله تفضل اخي ابو حمادة الملف المرفق إن شاء الله حسب ماطلبت وإذا فيه أي ملاحظة الجميع مابنقصر معاك كلا من جهته. تم عمل المطلوب دون المساس بما ذكرت فقط قمت بتعطيل الاكواد اللي في حدث فتح المصنف ( Workbook_Open) واللي في حدث قبل حفظ المصنف ( Workbook_BeforeSave) لكي يفتح الملف لانه عند التنزيل ممكن لايكون في مسار المجلد او تغيير إسم الملف فلن يفتح الملف ولن تستفيد منه شئ وتستطيع بعد التشييك وعمل اللازم إزالة تعطيل الاكواد بإزالة الفاصلة. لكن قبل العمل علي الملف لازم ان تنشئ مجلد بإسم شئون ادارية علي الدرايف D .كذلك تستطيع ان تكتب في الكمبوبكس إسم وتضغط زر حفظ بهذا الاسم ولو الف اسم ستلاقيهم في المجلد شئون ادارية مع تحيات اخوكم في الله / ابو الحسن والحسين حفظ باسم.rar

السلام عليكم ورحمة الله تفضل عدنا للسابق وعدلنا حسب طلبك الاخير إن شاء الله المطلوب ولاتتردد في السؤال مره عشر مائة الآن خارج لما اعود بمشيئة الله KHMB اضافة واستعلام.rar إعتمد الاخير مع مسح التكسات لإظهار البيانات الجديدة KHMB اضافة واستعلام.rar

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

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

السلام عليكم ورحمة الله تفضل عندك بالمعادلات لاخونا الفاضل الاستاذ سليم حاصبيا او بالكود بالملف المرفق KHMB اضافة اخر سجل في الخلية الصفراء.rar

السلام عليكم ورحمة الله بعد إذن اخي عاشق الاكسل تفضل المرفق اخي ابو حمادة KHMB اضافة واستعلام.rar

السلام عليكم ورحمة الله اخي الغالي ابن الملك والله اشكرك علي ذوقك في الرد وحسن خلقك بارك الله فيك Grand Total ليس دالة هذا علي ما اظن انة نطلق او مدى او انة يقصد كان يريد يعمل ذلك من علي فورم وGrand Total هو اسم لتكسبوكس او ليبل والله اعلم. لك حبي وتقديري.

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

السلام عليكم ورحمة الله وهل يستوي الذين يعلمون والذين لايعلمون اخي الفاضل سليم جزاك الله خير وبارك الله فيك

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

السلام عليكم ورحمة الله تفضل تظهر الرسالة إذا تغير إسم الملف ويفتح معك الملف وهو لكي تعدل طبعا إذا تبغاه تأتيك الرسالة ثم يغلق أزل علامة التنصيص الفردية ( ' ) التي امام الكود اللي بعد الرسالة 'Application.DisplayAlerts = False 'ThisWorkbook.Close رسالة إذا تغير مسار الملف واخرى إذا تغير إسم الملف الآن خارج بعجاله إذا فيه أي استفسار اتركه إلي غد إن شاء الله ممكن تلاحظني انني موجود فأنا فعلا ما اخرج من النت إلا إذا فصل لحاله فانا اترك الجمل بما حمل لان يوجد آخريين يدخلوا علي ملفات للعمل عليها طبعا خاص بالعمل KHMB.rar

السلام عليكم ورحمة الله تفضل الملف غير الاسماء اللي ترغب شغًال عندي وتمت التجربة 100 % إن يعمل معاك عندي Office 2013 KHMB.rar نعم حسب طلبك شاهد الملف

ايش اللي تريد وضعة في الخلية A1 هل هو إسم ملف الاكسل او مسار الملف أي المجلد طبعا واضح انة الملف صحيح

السلام عليكم ورحمة الله MyPath = "D:\الله اكبر" روح علي الدرايف D وأنشئ مجلد بإسم الله اكبر حسب المكتوب بالضبط ثم ضع داخله ملف الاكسل TEST-1 إذا غيًرت اسم المجلد من الله اكبر إلي أي اسم فلابد ات تغًير الاسم الجديد داخل الكود مثلا سميت المجلد علي الدرايف D الي اسم AboHamadah فيكون في الكود كالتالي : MyPath = "D:\AboHamadah" ------------------------------------------------------------------------------------------------------------------------------------------------------------------- إنتبــــــــــــــــــــــــــــــــــــــــــــــه ملفك مكتوب بغير إسم الملف داخل الكود فملفك بإسم TEST-1 وبحروف كبيرة وداخل الكود Text-1 لن يعمل معك الكود MyFlName = "Text-1.xls" الخلاصة : إسم ملفك الفعلي بالضبط ضعه داخل المجلد علي الدرايف D بإمكانك تغيير الدرايف او إسم المجلد او إسم الملف لكن يجب التغيير حسب ماتم توضيحة اعلاه وإذا ماوضحت أي نقطة فلاتتردد في الإستفسار مره ومرتسن وثلاثة ....... اخيكم في الله / ابو الحسن والحسين

السلام عليكم ورحمة الله ضع تاريخ صحيح في الخلية A2 وليكن 15/07/2015 استخراج اليوم في الخلية B2 استخراج الشهر في الخلية C2 استخراج السنـــة في الخلية D2 دالة إستخراج اليوم =Day(A2) دالة إستخراج الشهر =Month(A2) دالة إستخراج السنـة =Year(A2) الملف المرفق KHMB إستخراج اليوم والشهر والسنة من التاريخ.rar

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

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

السلام عليكم ورحمة الله ماشاء الله عليك اخي بن علية جزاك الله خير

السلام عليكم ورحمة الله ممتاز اخي زيزو جزاك الله خير

يا اخي جابر الامواج ضع اسم للأعمدة انا ككمية وكعدد اخذ أي عمود بارك الله فيك

السلام عليكم ورحمة الله رائع جدا اخي مختار جزاك الله خير