الحامد الشاكر قام بنشر نوفمبر 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...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.