zizo747 قام بنشر يناير 28, 2018 مشاركة قام بنشر يناير 28, 2018 (معدل) السلام عليكم أرجو مساعدتي في الملف المرفق حيث أريد توزيع بيانات الأعمدة الثلاثة الأولى على بعضها بعدد الإحتمالات الممكنة كما ذكر في الملف ولكم جزيل الشكر معتز Book2.xlsx تم تعديل يناير 28, 2018 بواسطه zizo747 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 شغل الكود التالي للحصول على كافة الاحتمالات الممكنة للدمج بين القيم Sub GetCombinations() Dim i As Long, j As Long, k As Long Dim mymatrix(3, 3) As String mymatrix(1, 1) = "A" mymatrix(1, 2) = "B" mymatrix(1, 3) = "C" mymatrix(2, 1) = "1" mymatrix(2, 2) = "2" mymatrix(2, 3) = "3" mymatrix(3, 1) = "ZZ" mymatrix(3, 2) = "XX" mymatrix(3, 3) = "VV" For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 ActiveCell.Value = mymatrix(1, i) & mymatrix(2, j) & mymatrix(3, k) ActiveCell.Offset(1, 0).Select Next k Next j Next i End Sub رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 و لتسجيل القيم فى خلايا مستقلة نستبدل الجزء الاخير من الكود بالتالي For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 ActiveCell.Value = mymatrix(1, i) ActiveCell.Offset(0, 1).Value = mymatrix(2, j) ActiveCell.Offset(0, 2).Value = mymatrix(3, k) ActiveCell.Offset(1, 0).Activate Next k Next j Next i مرفق الملف به الكودان Conmbinations.xlsm رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 1, 2018 مشاركة قام بنشر فبراير 1, 2018 هذا حل آخر بالمعادلات أرجو أن يفي الغرض المطلوب... توزيع بالمعادلات.xlsx 1 رابط هذا التعليق شارك More sharing options...
zizo747 قام بنشر فبراير 4, 2018 الكاتب مشاركة قام بنشر فبراير 4, 2018 ألف شكر لكم أساتذتي على المساعدة الرائعة في الماكرو و المعادلات زادكم الله علما معتز رابط هذا التعليق شارك 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.