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

عفوا كان هناك خطأ فى المدى لكن المعادلة صحيحة 100% أنظر المرفق عدد بدون تكرار مع شرط التاريخ.rar

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

عندى جدول عبارة عن المندوب والمبيعات والعمولة ارجو تطبيق دالة IF بحيث اذا كانت قيمة العمولة اقل من الصفر يعطى صفر واذا كانت اكبر من الصفر يعطى القيمة طبقا لما هو موضح بالمرفق ولكم جزيل الشكر

أخى الحبيب / جمال ( أبو محمود ) شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة

تفضل أخى 03.rar

تفضل أخى ما تريد 03.rar

السلام عليكم Private Sub CommandButton1_Click() If Len(Trim(Me.TextBox1)) Then Me.ListBox1.AddItem Me.TextBox1.Value End If End Sub شاهد المرفق 2003 tgr1.rar

اخى الكريم هذه محاوله بسيطه منى على قدر فهمى للسؤال العد بدون تكرار.rar

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

السلام عليكم http://www.officena.net/ib/index.php?showtopic=46724 هل هذا البرنامج يمكن ان يساعدك؟؟؟؟ هو بالفرنسية

اقترح عليك اخي زيارة هذا الموقع http://otmani86.zaghost.com/ لعلك تجد فيه ما تريد فهو يحتوي على بعض الكتب التي تخص vba وفقك الله

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

السلام عليكم في المرفق لو كان الشهر 4 سيتم اضافة قيمة المكافاءة في المجموع والا لن يحتسب المكافاءة شاهد المرفق وجرب تغيير وحفظ تاريخ الكومبيوتر للتجربة قبل فتح الملف مثال لصرف المكافئة1.rar

وبهذه الصسغة ممكن وضع زر الأمر في اي ورقة Sub Abu_Ahmed() Dim cl As Range Set Mysh = Sheets("2") Set Mysh1 = Sheets("1") For Each cl In Mysh1.Range("G2:G" & Mysh1.[G10000].End(xlUp).Row) If cl = Mysh.[G2] Then Mysh.Range("A2:F7").Copy Mysh1.Range("A" & cl.Row).PasteSpecial xlPasteValues Exit For End If Next Application.CutCopyMode = False Set Mysh = Nothing Set Mysh1 = Nothing End Sub

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

الأخ العزيز أبو خليل السلام عليكم ورحمة الله وبركاته المثال وافي جداً وجزاكم الله خير الجزاء أخوك هشام كمال

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

أفضلهم شكلا 2007 أما أنا أعمل على 2013 ممتاز

الأخ / مصطفى الفيومى سلام الله عليكم ورحمته وبركاته عملكم رائع وفكرة الفورم ذكية وجميلة سؤال بسيط ولكنه مهم جدا لىّ كيف تم نلون الفورم بلون متدرج