عبدالله باقشير

تحفظ في الاسم "MyPwd" المخفي With ThisWorkbook .Names.Add "MyPwd", sp, False End With ودمتم في حفظ الله

السلام عليكم ورحمة الله وبركاته الاخ الفاضل / bast__________ حفظه الله الاخ الفاضل / عبدالله المجرب__________ حفظه الله الاخ الفاضل / رجب جاويش__________ حفظه الله الاخ الفاضل / mahmoud-lee__________ حفظه الله الاخ الفاضل / khhanna__________ حفظه الله الاخ الفاضل / ابو حنين__________ حفظه الله الاخ الفاضل / ابو ردينة__________ حفظه الله جزاكم الله خيرا وبارك الله فيكم واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته هذا طلب للاخ ذيب اليمن وجعلناه هنا لتعم الفائدة ملاحظات : اذا لم تكتب اي تاريخ هو يعين التواريخ تلقائيا من اصغر تاريخ في العمود C الى اكبر تاريخ ====================== مع امكانية التحكم بعرض اعمدة اللست من خلال عرض الليبلات الي فيها عنوان العمود اثناء التصميم المرفق 2003 total.rar

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

السلام عليكم ورحمة الله وبركاته اخي الحبيب / رجب جاويش -------------اكرمه الله نشاط منقطع النظير حفظك ربي واجزل لك العطاء تقبل تحياتي وشكري

السلام عليكم ورحمة الله وبركاته افتقدتكم كثيرا لمعرفة ما اريده من هذا الملف قم بالتالي: قم بفتح الملف المرفق في الحالتين تمكين وتعطيل وشاهد النتيجة ثم قم بفتح الملف في حالة التمكين واضغط الزر 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

السلام عليكم الشكر واصل لاخي عبد الله المجرب حفظه الله ولائراء الموضوع : ممكن استخدام الغرض Consolidate وهو متعدد الاستخدامات xlAverage default. xlCount xlCountNums xlMax xlMin xlProduct xlStDev xlStDevP xlSum xlVar xlVarP Sub kh_() Dim cAry(1 To 12) As String Dim i As Integer For i = 1 To 12 cAry(i) = "'" & Sheets(i).Name & "'!" & Range("C5:D22").Address(ReferenceStyle:=xlR1C1) Next Range("B10:C10").Consolidate cAry, xlSum End Sub ودمتم في حفظ الله

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

الاخ الحبيب / محمدي عبد السميع------حفظه الله

الافتراضي يبحث في كل النص لوكتبت "م" النتائج : محمد سالم احمد اما بحث يطابق بداية السلسلة النصية النتيجة حتكون محمد فقط: تقبل تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الفاضل / هاني حفظك الله لو استطيع تقديم المساعدة فيما تريده لن اتاخر عليك (والاستطاعة هنا تشمل جوانب كثيرة) تقبل تحياتي وشكري ودمتم

السلام عليكم ورحمة الله وبركاته ما ينفعش اخي الفاضل / ابو جادالله حفظك الله هذا الكم لا ينفع معه هذا البحث !!!!!!!! ودمتم

السلام عليكم الشكر واصل لاخي ابو انصار استخدم المعادلة التالية في التنسيق الشرطي =TEXT(A1;"[$-1060000]B2dddd;@")="الجمعة" ان شاء الله تعمل معاك ودمتم

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

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

السلام عليكم شاهد المرفق2007 اذا لونت اي ليبل بالاصفر دليل على ان العمود مغلق Test5.rar

تم تغيير كود البحث في الفورم الي يحمل نفس الاسم بالتالي: Private Sub CM_TextFind_Change() Dim R As Integer, T As Integer CM_ListFind.Clear With Range(CStr(Me.Tag)) For R = 1 To .Rows.Count If Len(Trim(.Cells(R, 1))) + Len(Trim(.Cells(R, 2))) = 0 Then GoTo 1 If .Cells(R, 1) Like "*" & CM_TextFind.Text & "*" Or _ .Cells(R, 2) Like "*" & CM_TextFind.Text & "*" Then CM_ListFind.AddItem CM_ListFind.List(T, 0) = .Cells(R, 1) CM_ListFind.List(T, 1) = .Cells(R, 2) T = T + 1 End If 1 Next End With End Sub المرفق2007 test-3.rar

السلام عليكم دبل شيك على العمود رقم الصنف يظهر فورم يبحث باسم الصنف وبعد اختيار اي صنف زر الاضافة يقوم باضافة الرقم والاسم على الصف النشط يمكنك الانتقال الى خلية اخرى في عمود رقم الصنف لوضع صنف اخر والفورم مفتوح شاهد المرفق 2007 test-2.rar

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

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

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

السلام عليكم ورحمة الله وبركاته جمعة مباركة الاخ الفاضل/ رجب جاويش شكرا جزيلا ودعائك بمثله و حفظك ربي الاخ الفاضل/ ابو حنين شكرا جزيلا و حفظك ربي الاخ الفاضل/ ابو احمد (المجرب ) شكرا جزيلا ودعائك بمثله و حفظك ربي الاخ الفاضل/ دغيدي صاحب الهدية شكرا جزيلا لقبولك الهدية ودعائك بمثله و حفظك ربي الاخ الفاضل/ alidroos شكرا جزيلا ودعائك بمثله و حفظك ربي الاخ الفاضل/ طاهر شكرا جزيلا و حفظك ربي الاخ الفاضل/ محمدي شكرا جزيلا ودعائك بمثله و حفظك ربي الاخ الفاضل/ احمد غانم شكرا جزيلا و حفظك ربي الاخ الفاضل/ الشهابي شكرا جزيلا ودعائك بمثله و حفظك ربي ودمتم في حفظ الله

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

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

السلام عليكم اخي دغيدي تفضل هذه الهدية http://www.officena.net/ib/index.php?showtopic=41646