اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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