Radwan abozaid قام بنشر نوفمبر 23, 2017 قام بنشر نوفمبر 23, 2017 السلام عليكم ولكن باستخدام الدوال ُEفي عمود واحد كما بالعمود A,Bاريد فك التسلسل كما بالعمود فك التسلسل.rar
سليم حاصبيا قام بنشر نوفمبر 23, 2017 قام بنشر نوفمبر 23, 2017 جرب هذا الملف تمت صياغته على 2003 ليستفيد منه اكبر عد من الاعضاء فك التسلسل_2003.rar 1
Radwan abozaid قام بنشر نوفمبر 23, 2017 الكاتب قام بنشر نوفمبر 23, 2017 شكرا جزيلا لكني اريد تطبيق هذا بالمعادلات وليس بنظام الماكرو
سليم حاصبيا قام بنشر نوفمبر 23, 2017 قام بنشر نوفمبر 23, 2017 12 دقائق مضت, Radwan abozaid said: شكرا جزيلا لكني اريد تطبيق هذا بالمعادلات وليس بنظام الماكرو لا اظن ان هناك معادلات تقوم بهذا الشيء والله أعلم اليك هذا الماكرو الاخر الذي يقوم بنفس العمل لكن اسرع بالنسبة للبيانات الكثيرة Option Explicit Sub Tasalsul_1() Dim My_Min, My_max, i%, m% i = 1 m = 1 Range("K:K").Clear Do Until Cells(i, 1) = vbNullString My_Min = Cells(i, 1): My_max = Cells(i, 2) If Not IsNumeric(My_Min) Or Not IsNumeric(My_max) Then GoTo 1 Range("k" & m) = My_Min Range("K" & m & ":K" & My_max - My_Min + m).DataSeries m = m + My_max - My_Min + 1 1: i = i + 1 Loop With Range("K1").CurrentRegion .Borders.LineStyle = 1 .Interior.ColorIndex = 6 End With End Sub
بن علية حاجي قام بنشر نوفمبر 23, 2017 قام بنشر نوفمبر 23, 2017 السلام عليكم بالإضافة إلى عمل أخي الكريم سليم أقدم عمل المطلوب بالمعادلات لكن بالاستعانة بأعمدة مساعدة (ملونة بالأخضر)... أرجو أن تفي الغرض المطلوب... بن علية حاجي فك التسلسل_2003.rar 1 1
shreif mohamed قام بنشر نوفمبر 24, 2017 قام بنشر نوفمبر 24, 2017 وعليكم السلام اذا افترضنا ان البينات لديك تقع في النطاق ِA1:A25 في الخلية b1 =MIN($A$1:$A$25) b2 =MIN(IF(LEFT($A$1:$A$25,2)*1>I5,LEFT($A$1:$A$25,2)*1))*10 with CTRL+Shift+Enter & Drag down c1=MAX(IF(-($A$1:$A$25)-$D4<10,$A$1:$A$25)) with CTRL+Shift+Enter & Drag down
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.