اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

توزيع مواد الرسوب


الردود الموصى بها

السلام عليكم

بالملف المرفق

اريد توزيع مواد الرسوب فى العمود المناسب

بمعنى اكتب العربى فى خانة العربى وبالمثل فى باقى المواد

مصنف1.rar

تم تعديل بواسطه محمد يوسف محمد1
رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته

أستاذى الفاضل محمد

تفضل ما تريد

عن طريق كود

Sub ragab()
Application.ScreenUpdating = False
[E2:R30].ClearContents
For i = 2 To 30
MyArr = Trim(Cells(i, 4))
    For Each cl In [E1:R1]
       x = UBound(Filter(Split(MyArr, ","), cl)) + 1
       If x > 0 Then Cells(i, cl.Column) = cl
    Next
Next
Application.ScreenUpdating = True
End Sub

مصنف2.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

ترددت كثيرا لعرض مشاركتي هذه حيث قام الأستاذ رجب جاويش بعمل ما يكفي من خلال الأكواد وكما تعودنا منه أعمال مميزة  وأيضا من خلال المعادلات

لكنى كنت بدأت البحث عن معلومات تفيدنى في الحل

وإثراءا ً للموضوع اقدم هذا الحل بعد إذن أستاذنا القدير رجب جاويش جزاه الله خيرا

توزيع مواد الرسوب002.rar

  • Like 1
رابط هذا التعليق
شارك

أحبائى بارك الله لكم

على فكرة انا لى يومين بأحاول اعمل معادلة ولما غلبت لم أجد سواكم كعادتكم اتعلم منكم

جعله الله فى ميزان حسناتكم

رابط هذا التعليق
شارك

أستاذنا القدير / رجب جاويش هذة المعادلة تم استخدامها بفضل من الله وتوفيق منه وجلبها من ملف من المنتدى الكريم وهذا بفضل تشجعكم للمبتدئين أمثالي 

الأستاذ محمد يوسف نتمنى لك التوفيق في عملك

الأستاذ هاني نتمنى لك مزيد من التقدم

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information