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

السلام عليكم ورحمة الله وبركاته افتقدتكم كثيرا لمعرفة ما اريده من هذا الملف قم بالتالي: قم بفتح الملف المرفق في الحالتين تمكين وتعطيل وشاهد النتيجة ثم قم بفتح الملف في حالة التمكين واضغط الزر kh_ChngPwd لتفعيل شاشة دخول باسم مستخدم وكلمة مرور ثم اغلق الملف ثم قم بفتح الملف في حالة التمكين والتعطيل وشاهد النتيجة قمت بتجربة هذا الكود على اكسل 2003و2007 وهما ما في المرفق واريدكم ان تجربوه على 2010 =================================== ممكن استخدام هذا الكود في اي ملف باستيراد الفورمين FormAhlnWShln FormChngPwd والموديل ModChngPwd ونسخ الاكواد الموجوده في حدث ThisWorkbook =================================== كلمة السر للاكواد : 1 =================================== ودمتم في حفظ الله فورم حماية الملف.rar ======================================================== من اراد استخدام الكود بدون استخدام فورم الحماية يضع هذه الاكواد في موديل Option Explicit Sub Auto_Open() kh_wVisible True End Sub Sub Auto_Close() kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub المرفق 2003 2007 th1.rar

أخى الحبيب ( شوقى ربيع ) بصراحة لم يعد لدى من الكلمات ماقد يعبر عن جمال إبداعاتك ، سوى إنك أصبحت ربيع هذا المنتدى ولمسة الجمال التى تهون علينا صلابة الأرقام التى نتعامل معها ، بارك الله فيك أخى وبارك الله فى إبداعاتك وأكثر الله من أمثالك فإلى الأمام دائما ، وتوقعى لم يخيب منذ أن تابعت أعمالك عرفت منذ الوهلة الأولى أنك مميز فى كل شئ لذلك أتمنى لك المكانة المتميزة فى هذا الصرح لأنك تستحقها وعن جدارة تقبل تحيات : أخيك ( جمال ) العاشق لأعمالك

Camtasia Studio 7

السلام عليكم أخي الكريم جرب هذا الكود Sub ConvertFunction() Dim H, B, C, J, K, M As Range With Sheet1 Set H = .Range("H:H"): Set B = .Range("B:B") Set C = .Range("C:C"): Set J = .Range("J:J") Set K = .Range("K:K"): Set M = .Range("M:M") End With LR = [B65536].End(xlUp).Row If LR <= 5 Then MsgBox "No data to retreive": Exit Sub For r = 5 To LR cl = Cells(r, 2) cr1 = ">=" & [C1]: cr2 = "<=" & [C2] cr3 = ">=" & [G1]: cr4 = "<=" & [G2] Cells(r, 3) = WorksheetFunction.SumIfs(H, B, cl, C, cr1, C, cr2) Cells(r, 4) = WorksheetFunction.SumIfs(J, B, cl, C, cr1, C, cr2) Cells(r, 6) = WorksheetFunction.SumIfs(K, B, cl, C, cr1, C, cr3) Cells(r, 7) = WorksheetFunction.SumIfs(M, B, cl, C, cr1, C, cr4) Next End Sub تفضل المرفق وبه الكود 11_New.rar

السلام عليكم الاخ الكريم / mahmoud kamal بارك الله فيك والحمد لله ان هداك الي ما تريد وكلنا هنا اخي الكريم نتعلم من بعضنا البعض ومعك دائما باذن الله تقبل خالص تحياتي

اثراءا للموضوع بعد حل الاخت / ام عبدالله ده حل لطلبك عن طريق اكواد vba جرب المرفق لعله يفي بالغرض H-ll.rar

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

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

أخى العزيز هل الكود الموجود فى العمود ( c ) هو الرقم الموجود فى نهاية ( sites name ) بمعنى ( BS-GAFADON_3483UPMN-SAFANIA_3271UP) هو هذا الرقم (3271UP) ؟ وهل مكانة ثابت فى كل ( sites name ) هذه الأسئلة كلها بسبب أن المعادلة الموجودة فى العمود ( d ) لابد وأن تتخذ من هذا شرط للجمع على العموم هذه المعادلة ستحقق ماتريد =SUMIF(A:A;"*"&C2&"*";B:B)

أنظر المرفق أخى لعله المطلوب ملحوظة: حضرتك ستجد أن هناك بعض الموظفون ليس لهم ( OVER TIME) ولا تاريخ له وذلك بسبب نقص فى أكواد العمال فى حالة العطلات عن ( OVER TOME ) تقبل تحياتى البحث عن موظفين.rar

هل هذا ماتريدة أخى ورقة عمل.rar

شكرا أستاذى ( أسلام الشيمى ) إنما هو توفيق من الله ، وبارك الله فيك أستاذى وجزاك الله عنى خير الجزاء

أليك أستاذى ماطلبت أنظر المرفق التالى الخلية لاتقبل إلا الأرقام وبعدد محدد ,وغير مكررة.rar

أخى الحبيب ( عباس ) لماذا لاتستخدم ( data validation ) يمكن أن تحدد لحضرتك الأحدى عشر رقما ولاتدخل العدد الأكبر من ذلك وأيضا يمكن لاتدخل إلا الأرقام فقط أيضا دون الحروف أنظر أخى الحبيب المرفق الخلية لاتقبل إلا الأرقام وبعدد محدد.rar

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

أستخدم هذه الدالة أخى =TRIM(LEN(A2))

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

أستاذى ( أسلام الشيمى ) شكرا أستاذى على مرورك وكلماتك بارك الله فيك

أتمنى أن يحقق المرفق التالى ماتريدة كشف حساب 2.rar

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

أنظر أخى للمرفق لعله المطلوب عد الخلايا الظاهرة فقط بمعادلة.rar

أليك أخى ماطلبت مبيعات وأرقام.rar

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