hussam031 قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 السلام عليكم السادة الاعضاء مرفق ملف اكسل يوجد فيه ثلاثة اعمدة في العامودين B & C يوجد شرح للسلعة و تصنيفها ، و في العامود A مطلوب وضع رقم خاص لكل سجل بناء على C فإذا كان السجل مقابل ل Garments اعطي رقم 110001 و من ثم بالتسلسل 110002 و هكذا و اذا كان السجل مقابل ل Accessries اعطي رقم 220001 و من ثم باتلسلسل 220002 و هكذا.. المشكلة هي بأن Garments و Accessories متداخلين في العامود C ويجب ان يكون الترتيب كما هو بحيث الا يتغير اماكن العامود لارتباطه بعدة اعمدة اخرى.. لقد قمت بفلترة العامود C و لكن لم استطع ان ارقم بالتسلسل فهل يمكن حل هذه المشكلة و شكرا حسام. Coding.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 السلام عليكم ورحمة الله أخي الكريم هذه محاولة في الملف المرفق أرجو أن تكون بعضا من الحل... أخوك بن علية Coding.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 بعد إذن أخي بن علية الذي قام بالمطلوب بالدوال هذا المثال بالكود ترقيم.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 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 رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 أستاذي بن علية حاجي حل حضرتك بالمعادلة في منتهي الذكاء وأستخدامك للمعادلة رائع ماشاء الله أستاذي أبو حنين أكوادك متميزة وأستخدامك لها في منتهي الروعة بارك الله فيك أستاذي أبو عبد الله دائما متميز بارك الله في أساتذه هذا الصرح رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 بالفعل أخي عبد الله شكرا على مروركم و تصحيحكم للخطأ الذي لم انتبه له جزاك الله خيرا المرفق بعد التصحيح ترقيم.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 الشكر لكل إخوانى المشاركين فى الموضوع على الابداع والتميز وهذه معادلة أخرى تحقق المطلوب =IF(C2="";"";IF(C2="garmets";COUNTIF($C$2:$C2;C2)+110000;COUNTIF($C$2:$C2;C2)+220000)) ترقيم.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 كود رائع اخي رجب و كما يقول الصحفي الرياضي اثناء المبارات : يا سلام خطيرة في الزاوية 90° بارك الله فيكم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يوليو 3, 2012 مشاركة قام بنشر يوليو 3, 2012 شكرا جزيلا أخى الحبيب / أبو حنين جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر يوليو 4, 2012 مشاركة قام بنشر يوليو 4, 2012 في كل تميز و لمسات رائعة أفادتنا كثيرا الإخوة الأحباب جزاكم الله عنا كل خير رابط هذا التعليق شارك 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.