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

السلام عليكم جزاكم الله خيرا شاهد المرفق 2003 سيناريو جدول 4.rar

السلام عليكم يعني معاك 12 عمود اذن غير هنا For cc = 1 To 10 الرقم 10 الى 12 هكذا For cc = 1 To 12 تحياتي

السلام عليكم شاهد المرفق 2003 ======= سيناريو جدول1.rar

السلام عليكم قد تنفعك هذه الدالة فيها امكانية تحديد الطول والعرض http://www.officena.net/ib/index.php?showtopic=47835 تحياتي

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

السلام عليكم اخي الحبيب رجب ........حفظه الله يمكنك انتقاء الاعمدة التي تريدها باستخدام الدالة Choose بدلا من استخدام الشروط ' هنا تحدد الاعمدة المطلوبة c = Choose(cc, 8, 9, 12, 13, 16, 17, 20, 21, 25, 27) الكود كاملا Sub KH_Dwayr() Dim X As Integer, i As Integer, c As Integer, cc As Integer Dim myshp As Shape '=========================== Del X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For i = 11 To Cells(Rows.Count, "B").End(xlUp).Row Step 4 For cc = 1 To 10 ' هنا تحدد الاعمدة المطلوبة c = Choose(cc, 8, 9, 12, 13, 16, 17, 20, 21, 25, 27) With Cells(i, c) If Not IsEmpty(.Value) And Val(.Value) < 0.5 * Val(Cells(10, c)) Or .Value = "غ" Then Set myshp = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left + 2, .Top + 1, .Width - 2, 4 * .Height - 2) With myshp .Fill.Visible = msoFalse .Line.Weight = 2 .Line.ForeColor.SchemeColor = 10 .Line.Visible = msoTrue .Shadow.Visible = msoFalse End With End If End With Next Next ActiveWindow.Zoom = X Application.ScreenUpdating = True End Sub شاهد المرفق 2003 دوائر.rar

السلام عليكم ورحمة الله وبركاته اختي الفاضلة أم عبدالله ............حفظكم الله واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

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

السلام عليكم ضع المعادلة التالية في الخلية F8 =SUMPRODUCT(ROW(INDIRECT("1:"&D8))*(E8/100)) المرفق 2003 تحياتي غرامة.rar

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

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

السلام عليكم الشكر واصل لجميع المشاركين حفظهم الله تم تبسيط وتعديل المعادلة لتصبح معادلة واحدة لجميع الجدول هذه المعادلة: =IF(ISNUMBER(SEARCH(C$1;$B2;1));C$1;"") وهذا الكود لتحويل المعادلة الى قيمة للجدول Sub Macro1() With Range("C2:G11") .FormulaR1C1 = "=IF(ISNUMBER(SEARCH(R1C,RC2,1)),R1C,"""")" .Value = .Value End With End Sub تحياتي

======================== الاخ الفاضل/ محمود الشريف ======================== و

السلام عليكم الشكر واصل للاخ الحبيب رجب جاويش .......اكرمه الله واعذروني لشحة عطائي هذه الايام هذا تعديل طفيف ليشمل الاعمدة من 8 الى 28 المرفق 2003 دوائر.rar

آخر صف في العمود 2

التهنئة بترقية الاخ محمود_الشريف الى عضو محترف وترقية الاخ أبو إيمان الى عضو مميز

السلام عليكم حسب فهمي للموضوع انك تريد ان تستدعي حسب الشهر في الخلية b1 اذا كان كذلك يكفي هذا Sub saad2222() Dim cc As Worksheet, ccc As Worksheet Dim H As Long, G As Long Set ccc = Sheets("يومية") Set cc = Sheets("اليومية الامريكية") RR = ccc.Range("b" & Rows.COUNT).End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual cleardata G = 6 For H = 4 To RR If ccc.Cells(H, 13).Value = cc.Range("b1").Value Then cc.Cells(G, 2) = ccc.Cells(H, 2) cc.Cells(G, 3) = ccc.Cells(H, 4) cc.Cells(G, 4) = ccc.Cells(H, 5) G = G + 1 End If Next '======================================== Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub تحياتي

السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F7").Address Then Range("G7").Value = Val(Range("G7")) + Val(Target) End If End Sub تحياتي

السلام عليكم ورحمة الله وبركاته تقبلوا تحياتي وشكري

السلام عليكم اعجبني الكود كثيرا استاذ سليم وخاصة الاسم الذي اطلق عليه..........جزاكم الله خيرا

السلام عليكم هذا ما يمكن معالجته في هذا الفورم شاهد المرفق 2010 me.rar

السلام عليكم المسالة سهلة جدا اضف تعليق على راس العمود وضع اسم القائمة في التعليق المرفق 2010 PF Template 21.rar

عندما قمت بنقل الكود التالي Cells(Range("B2"), Range("B2")) = 555 فتسالت هل يمكن عكس الوضوع السابق ؟ بمعني اخر هل يمكن عمل تبادل بين الامرين range و cells ؟ كما في المثال السابق ومن ثما قمت بعلية تجربة ولم تنجح فوضعت السؤال في هذا المنتدي العريق لعلي احد اجابة علي سؤال ومن هنا جاء السؤال !!!!! الكود هذا معناه انه ياخذ القيمة الرقمية التي في الخلية B2 ويستخدمها كوسيط رقمي للصف والعمود معا يعني لو مكتوب في الخلية B2 الرقم 25 يقصد به هذه الخلية Cells(25, 25) وهي Y25 تحياتي