mhrrd قام بنشر أبريل 22, 2012 مشاركة قام بنشر أبريل 22, 2012 إخواني الكرام لدي ملف بسيط لكود للفرز نقلته من أحد الملفات الأخرى لكن دون جدوى الكود لا يعمل أين الخطأ ؟ الكود في المرفقات وشكرا لكم فرز.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 23, 2012 مشاركة قام بنشر أبريل 23, 2012 السلام عليكم أخي الكريم الكود يعمل بلا مشاكل قف بالماوس علي أي خلية بالعمود C مثلا والذي به نوع الطالب (ولد / بنت) ثم إضغط زر الكود فيتم ترتيب الجدول بناءا علي النوع (ولد / بنت) وإذا وقفت بالماوس علي أي خلية بالعمود E مثلا والذي به اليوم ثم إضغط زر الكود فيتم ترتيب الجدول بناءا علي اليوم وهكذا لجميع الأعمدة جرب وأخبرني رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر أبريل 23, 2012 الكاتب مشاركة قام بنشر أبريل 23, 2012 اخي القاضل استاذ طارق المفروض ان الملف بعمل فرزتصاعدي بالضغطة الاولى وفرزتنازلي بالضغطة التانية لك شكري رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 23, 2012 مشاركة قام بنشر أبريل 23, 2012 السلام عليكم أخي العزيز هذا من أكواد العلامة أستاذنا جميعا / خبور خير عبدالله باقشير ، حفظه الله لابد انك فقدت شيئا في التعريفات اإبتدائية أثناء نقل الكود وحيث أنني لست متمكن من هذا الجانب ، فسأحلها لك بإستخدام إحدي خلايا الورقة (إخترت الخلية AL1) المهم إستبدل الكود بالتالي 'Dim Mytest As Boolean M = ActiveCell.Column N = 2 'اول عمود للفرز NN = 26 'آخر عمود للفرز If M < N Or M > NN Then GoTo 1 With ActiveSheet Set KH_1 = .Range("B6:Z1000") If [AL1] = 0 Then KH_1.Sort Key1:=Cells(5, M), Order1:=xlAscending [AL1] = 1 GoTo 1 Else KH_1.Sort Key1:=Cells(5, M), Order1:=xlDescending [AL1] = 0 GoTo 1 End If End With On Error GoTo 0 1 End Sub رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر أبريل 23, 2012 مشاركة قام بنشر أبريل 23, 2012 السلام عليكم انت عايز الفرز تصاعدي وتنازلي لاي عمود ممن تحدده رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر أبريل 24, 2012 الكاتب مشاركة قام بنشر أبريل 24, 2012 السلام عليكم انت عايز الفرز تصاعدي وتنازلي لاي عمود ممن تحدده نعم اخي القاضل عايز الفرز تصاعدي وتنازلي لاي عمود ممن احدده رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 24, 2012 مشاركة قام بنشر أبريل 24, 2012 السلام عليكم أخي الكريم إرجع للمشاركة رقم 4 رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر أبريل 24, 2012 الكاتب مشاركة قام بنشر أبريل 24, 2012 السلام عليكم أخي العزيز هذا من أكواد العلامة أستاذنا جميعا / خبور خير عبدالله باقشير ، حفظه الله لابد انك فقدت شيئا في التعريفات اإبتدائية أثناء نقل الكود وحيث أنني لست متمكن من هذا الجانب ، فسأحلها لك بإستخدام إحدي خلايا الورقة (إخترت الخلية AL1) المهم إستبدل الكود بالتالي 'Dim Mytest As Boolean M = ActiveCell.Column N = 2 'اول عمود للفرز NN = 26 'آخر عمود للفرز If M < N Or M > NN Then GoTo 1 With ActiveSheet Set KH_1 = .Range("B6:Z1000") If [AL1] = 0 Then KH_1.Sort Key1:=Cells(5, M), Order1:=xlAscending [AL1] = 1 GoTo 1 Else KH_1.Sort Key1:=Cells(5, M), Order1:=xlDescending [AL1] = 0 GoTo 1 End If End With On Error GoTo 0 1 End Sub جزاك الله ألف ألف خبر رابط هذا التعليق شارك 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.