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

السلام عليكم ورحمة الله وبركاته نقول لمن اعتمر تقبل الله منا ومنكم صالح الاعمال ونقول لمن ترقى الف مبروك وعفوا انها جاءت متاخرة وبعد هل تعلم كيف تحرك كائن ( ليبل - صورة الخ ) في فورم ليس اثناء التصميم وانما بعد فتحه نستخدم حدثين لزر الماوس الاول : اثناء الضغط عليه لتخزين موقع الضغط طولا وعرضا Private Sub LabelStart_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Xd = X Yd = Y End Sub الثاني : حدث حركة الماوس بشرط اثناء الضغط على الزر اليسار Button = 1 الزر اليمين ياخذ القيمة 2 Private Sub LabelStart_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then With Me.LabelStart .Move .Left + (X - Xd), .Top + (Y - Yd) End With End If End Sub شاهد المرفق 2003 move.rar

وهذا حل أخر =SUM(SUMPRODUCT((A2:A7="محمد")*(B2:B7));SUMPRODUCT((A2:A7="احمد")*(B2:B7)))

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل احمد زمان بارك الله فيك لاثراء الموضوع انا قمت وجربت بوضع نجمة(*) في الاسم والعمر في الملف الاول( المشاركة 1) وتم الترحيل بشكل جيد وملاحظة ممتازة وارفق نفس الملف بعد العمل عليه ارجو ان يفيد الاخ ماجد جلال والسلام عليكم ورحمة الله وبركاته نسخ كود ويعمل جيد.rar

إخوتي الفضلاء تأييداً لدعوات الأخ الحبيب سعيد بيرم والأخ أحمد فضيلة ، وتماشياً مع سياسة المنتدى قمت بتغيير إسم الظهور لدي ليصبح "أبو آدم" رغم أن "Nart Lebzo" "نارت لبزو" هو إسمي الحقيقي وليس إسماً رمزياً أو غامضاً .... ولكنني فعلت من باب التاييد و الموافقة ، ولأكون معكم ولا أكون عليكم حجة ... مع تقديري وإحترامي لكافة الدعوات الطيبة التي تدعو للوضوح و الشفافية و المحبة و التآخي و التعارف والتواصل للأفراد و الجماعات في هذا الموقع المتألق الراقي بإدارته و برواده والسلام عليكم ورحمة الله وبركاته .....................