الحامد الشاكر قام بنشر نوفمبر 12, 2012 مشاركة قام بنشر نوفمبر 12, 2012 الاخوة الكرام السلام عليكم ورحمة الله وبركاته يرجى لطفاً الغطلاع على الملف المرفق والذي تم شرح الطلب فيه بالتفصيل مع أرقى التحيات NOV 12.zip رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 12, 2012 مشاركة قام بنشر نوفمبر 12, 2012 السلام عليكم ضع هذا الكود في زر أمر Sub MySum() [G4:AJ4].ClearContents For R = 4 To 74 If Cells(R, 2) = [F4] Then For i = 7 To 36 If Cells(R, 3) = Cells(1, i) Then Cells(4, i) = Cells(4, i) + Cells(R, 4) Next End If Next End Sub ثم ضع الاسم الذي تريد في الخلية F4 ثم فعل الكود رابط هذا التعليق شارك More sharing options...
الحامد الشاكر قام بنشر نوفمبر 12, 2012 الكاتب مشاركة قام بنشر نوفمبر 12, 2012 الأخ ابو أحمد مرفقاً تجد الملف مطبق فيه الحل المقترح ولكن لا يعمل بشكل صحيح إطلاقاً NOV 12.zip رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 12, 2012 مشاركة قام بنشر نوفمبر 12, 2012 السلام عليكم تفضل المرفق تم عمل قائمة منسدلة مرنة وتلقائية في الخلية F4 NOV 12.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 12, 2012 مشاركة قام بنشر نوفمبر 12, 2012 الأخ ابو أحمد مرفقاً تجد الملف مطبق فيه الحل المقترح ولكن لا يعمل بشكل صحيح إطلاقاً في مرفقك التواريخ الافقية مكتوبة خطاء ويتم التعامل معها بانها تخص شهر يناير وليس نوفمبر قم بكتابة التاريخ بهذه الطريقة 01 ثم 11 ثم انتر ثم اسحب افقياً حتى تاريخ 30/11/2012 ثم فعل الكود في مرفقك وسيعمل === رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان