عبدالله المجرب

بارك الله فيك وجعلها في موازين اعمالك

السلام عليكم اخي الفاضل ارقام الوزن في خلايا العمود G هل هي بالجرام ام ماذ

السلام عليكم اخي الفاضل لم يظهر عندي هذا الخطاء

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

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

السلام عليكم جرب المرفق Show ListBox.rar

بارك الله فيك استاذ بن عليه ايه الفارس الصامت ذو الحلول الناجعة سلمت استاذ احمد يعقوب (ابو ابراهيم) ما احوجنا لاتقان الصفيف

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

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

اخي بخصوص طلب كتابة عدد الاشهر بالنص (Two Month) اخي حاولت ولكن للاسف لم اتوصل الى نتيجة

اخي الفاضل لارفاق اي ملف قم بضغطه ببرنامج وينرار ثم ارفقه

اخي الفاضل في الخلية D4 استبدل المعادلة السابقة بهذه =IF(AND(F4="";E4="");"";IF(F4="";0;F4)-IF(E4="";0;E4)) ثم اسحبها للاسفل

السلام عليكم اخي الفاضل بالله عليك 30000 حلقة تكرارية ولما يخلص 10002 حلقة اخرى وينشط الكود بالتغيير في اي خلية ضمن المدى B3:f30000 وما تبغيه يبنشر ==== اخي بعد اذنك وضح المطلوب من الكود وسنحاول عمله في حدث الصفحة فقط

السلام عليكم اضافة الى حل الاخ الفاضل طارق عملت هذا الكود ولكن يشترط ان تكون اسماء المواد غير متشابهة (وانا افترضتها تبداء من A ثم B حتى تنتهي ب M) فكان هذا الكود جربه يمكن ينفع Sub Abu_Ahmed() Dim c As Range For Each c In [E6:E18] Select Case c.Value Case "B", "C", "D", "E": For i = -3 To -1 c.Offset(0, i) = c.Offset(-1, i) Next Case "G", "H", "I": For i = -3 To -1 c.Offset(0, i) = c.Offset(-1, i) Next Case "K", "L", "M": For i = -3 To -1 c.Offset(0, i) = c.Offset(-1, i) Next End Select Next End Sub

وبماذا يتم مل هذه الفراغات

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

جرب هذا الكود سيتم نقل المعادلة الى خلية تحدد انت صفها بنفس العمود (في البداية ضع الموشر على الخلية التي بها المعادلة التي تريد نقلها ثم فعل الكود) Sub Abu_Ahmed_Copy() w = Selection.Column x = InputBox("إختر رقم الصف الذي تريد", "إختيار") Selection.Copy Cells(x, w) Application.CutCopyMode = False End Sub

جرب هذا bank.rar

وهذا رابط فيه شرح http://www.officena.net/ib/index.php?showtopic=38885

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

السلام عليكم جرب هذا ضعه في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A2:A20]) Is Nothing Then Target.Offset(0, 1).Value = Empty End If End Sub

اخي ابو الحسن لا شكر على واجب ====== الاستاذ خالد القدس شكراً لتشجيعك وهذا بعض ما عندكم

الجزء الثالث من شرح الصفيف

السلام عليكم اخي ابو الحسن جرب هذا Sub Abu_Ahmed_NO() Dim Cl As Range LR = Range("A" & Rows.Count).End(xlUp).Row For Each Cl In Range("G2:G" & LR) If Cl.Value = "" Then Cl.Value = 0 Cl.NumberFormat = "0.00" End If Next End Sub

اين المرفق