وادي سلي قام بنشر أبريل 30, 2020 مشاركة قام بنشر أبريل 30, 2020 السلام عليكم إخواني أهل المنتدى أريد حل لهذه المعادلة بارك الله فيكم تجدونها في المرفق مع الشرح Classeur1.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 30, 2020 مشاركة قام بنشر أبريل 30, 2020 السؤال غير مفهوم على اي اساس تختار قيمة التغذية مثلا (الصف الاول او الثاني) رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أبريل 30, 2020 أفضل إجابة مشاركة قام بنشر أبريل 30, 2020 السلام عليكم ورحمة الله ربما تقصد هذا اليك الملف Classeur1.xlsx 2 رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر أبريل 30, 2020 مشاركة قام بنشر أبريل 30, 2020 تفضل تتغير اوتوماتيكيا حسب تغير اسم البرنامج. يمكنك سحب المعادلة في حالة اضافة برامج أخرى Classeur1.xlsx رابط هذا التعليق شارك More sharing options...
وادي سلي قام بنشر أبريل 30, 2020 الكاتب مشاركة قام بنشر أبريل 30, 2020 بارك الله فيك الله يحفظك هذا ماكنت أريد وصح فطورك وتقبل الله منا ومنكم أميييين السلام عليكم أستاذ الرائد77 أريد منك أن لا تتوقف عند c14أريدها مالا نهاية وشكرا رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر أبريل 30, 2020 مشاركة قام بنشر أبريل 30, 2020 Classeur1 (2).xlsx 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أبريل 30, 2020 مشاركة قام بنشر أبريل 30, 2020 بعد اذن الاساتذة هذ ا كود ديناميكي Sub TransferData() Dim a, b, i&, Dic As Object Set Dic = CreateObject("scripting.dictionary") a = Sheets("Sheet1").[B7].CurrentRegion ReDim b(1 To UBound(a), 1 To 10000) For x = 2 To UBound(a) If Not Dic.exists(a(x, 2)) Then i = i + 1 Dic.Add a(x, 2), i b(1, i) = a(x, 2) End If i = Dic(a(x, 2)) For y = 2 To UBound(b) If IsEmpty(b(y, i)) Then b(y, i) = a(x, 3) Exit For End If Next Next Sheets("Sheet2").[C8].Resize(UBound(b), UBound(b, 2)) = b End Sub POSTING.xls 2 رابط هذا التعليق شارك 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.