hussam031 قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 السلام عليكم السادة الاعضاء مرفق ملف اكسل يوجد فيه ثلاثة اعمدة في العامودين B & C يوجد شرح للسلعة و تصنيفها ، و في العامود A مطلوب وضع رقم خاص لكل سجل بناء على C فإذا كان السجل مقابل ل Garments اعطي رقم 110001 و من ثم بالتسلسل 110002 و هكذا و اذا كان السجل مقابل ل Accessries اعطي رقم 220001 و من ثم باتلسلسل 220002 و هكذا.. المشكلة هي بأن Garments و Accessories متداخلين في العامود C ويجب ان يكون الترتيب كما هو بحيث الا يتغير اماكن العامود لارتباطه بعدة اعمدة اخرى.. لقد قمت بفلترة العامود C و لكن لم استطع ان ارقم بالتسلسل فهل يمكن حل هذه المشكلة و شكرا حسام. Coding.rar
بن علية حاجي قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 السلام عليكم ورحمة الله أخي الكريم هذه محاولة في الملف المرفق أرجو أن تكون بعضا من الحل... أخوك بن علية Coding.rar
أبو حنــــين قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 بعد إذن أخي بن علية الذي قام بالمطلوب بالدوال هذا المثال بالكود ترقيم.rar
عبدالله المجرب قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 الاستاذ الفاضل حاجي بن عليه حل ولا اروع بالمعادلات === الاخ الفاضل ابو حنين حل ممتاز بالاكواد وفيه ملاحظة ان يتم تعديل هذا السطر من Cells(i + 1, 1).Value = 110000 + m ليكون Cells(i + 1, 1).Value = 220000 + m ويمكن بعد اذنك يمكن اختصار الكود ليكون Private Sub CommandButton1_Click() s = 0: m = 0 For t = 1 To 1000 If Cells(t + 1, 3).Text = "Garmets" Then s = s + 1 Cells(t + 1, 1).Value = 110000 + s Cells(t + 1, 1).Interior.ColorIndex = 3 End If If Cells(t + 1, 3).Text = "Accessories" Then m = m + 1 Cells(t + 1, 1).Value = 220000 + m Cells(t + 1, 1).Interior.ColorIndex = 4 End If Next End Sub
جمال عبد السميع قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 أستاذي بن علية حاجي حل حضرتك بالمعادلة في منتهي الذكاء وأستخدامك للمعادلة رائع ماشاء الله أستاذي أبو حنين أكوادك متميزة وأستخدامك لها في منتهي الروعة بارك الله فيك أستاذي أبو عبد الله دائما متميز بارك الله في أساتذه هذا الصرح
أبو حنــــين قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 بالفعل أخي عبد الله شكرا على مروركم و تصحيحكم للخطأ الذي لم انتبه له جزاك الله خيرا المرفق بعد التصحيح ترقيم.rar
رجب جاويش قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 الشكر لكل إخوانى المشاركين فى الموضوع على الابداع والتميز وهذه معادلة أخرى تحقق المطلوب =IF(C2="";"";IF(C2="garmets";COUNTIF($C$2:$C2;C2)+110000;COUNTIF($C$2:$C2;C2)+220000)) ترقيم.rar
أبو حنــــين قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 كود رائع اخي رجب و كما يقول الصحفي الرياضي اثناء المبارات : يا سلام خطيرة في الزاوية 90° بارك الله فيكم
رجب جاويش قام بنشر يوليو 3, 2012 قام بنشر يوليو 3, 2012 شكرا جزيلا أخى الحبيب / أبو حنين جزاك الله كل خير
أبو ردينة قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 في كل تميز و لمسات رائعة أفادتنا كثيرا الإخوة الأحباب جزاكم الله عنا كل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.