اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

اخي الفاضل هذه المعادلات من ابداع استاذنا وحبيبنا الاستاذ يحيى حسين حفظه الله

جرب المرفق

نتيجة لتداخل الحروف والارقام من الجهتين فقد تم عمل 3 اعمدة للفصل

ابواحمد

قام بنشر

اخوانى

بعد اذن استاذى عبدالله المجرب واستاذى جمال الفار

اقدم دالة هى من اعمال عالمنا خبور خير ( نسال الله له السلامة من كل مكروه)

Option Explicit

' ÈÓã Çááå ÇáÑÍãä ÇáÑÍíã "

' ********************* "

' ÏÇáÉ ÇÓÊÎÑÇÌ ÇáäÕ Çæ ÇáÇÑÞÇã "

'=============================================="

' False = ãåãá Çæ Kh_Number ÇÐÇ ßÇä "

' ÊÞæã ÈÇÓÊÎÑÇÌ ÇáäÕ "

' True = Kh_Number ÇÐÇ ßÇä "

' ÊÞæã ÈÇÓÊÎÑÇÌ ÇáÇÑÞÇã "

'=============================================="

'-----------------------------------------------------------------

Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean)

Dim Num As Byte, C As Integer

Dim Sn As String, Re As String, Md As String

Sn = Trim(Kh_Sub)

For Num = 0 To 9

Sn = Replace(Sn, Num, "")

Next Num

If Kh_Number Then

Re = Trim(Kh_Sub)

Do While C < Len(Trim(Sn))

C = C + 1

Md = Mid(Sn, C, 1)

Re = Replace(Re, Md, "")

Loop

Kh_Replace_Text = CDbl(Re)

Else

Kh_Replace_Text = Trim(Sn)

End If

End Function

الفــــــار.rar

قام بنشر (معدل)

عفوا يا اخوانى

المشكلة اتحلت و الحمد لله , واضح ان انا محاولتش بالقدر الكافى .

انا عملت كوبى للعمود الناتج بعد الفصل و بعدين اخترت بست سبيشيال و بعدين اخترت فاليو.

عفوا للازعاج و بارك الله فيكم

محمد سعد

السلام عليكم يا اخوانى

اسمحولى انى اتفق مع الاستاذ العزيز عبد الله المجرب ( ابو احمد ) بان الكود اللى الاستاذ جمال الفار ارفقة فى المشاركة رقم 3 اكثر من رائع و بيحل المطلوب ببساطة شديدة.

بعد التجربة الارقام اتفصلت عن الحروف بدقة و لكن لما حاولت ان اخد كوبى من العمود الجديد بعد الفصل , واجهتنى مشكلة ان الارقام الجديدة دى الاكسل بيعتبرها جزء من المعادلة و مش كانها ارقام قائمة بذاتها.

ممكن حد يوضح ازاى العمود الناتج بعد فصل الارقام عن الحروف يكون مستقل بذاتة و مش تابع للمعادلة , لان الخطوة اللى بعد كدة عندى انى اضيفة فى معادلة جديدة ؟

ارجو ان اسؤال يكون واضح و بارك الله فيكم

محمد سعد

تم تعديل بواسطه edkawy
قام بنشر

الاساتذة الفضلاء

حاولت ان اجرب الحل لكى اتعلم هذه الطريقة لكن دون جدوى ....حتى يأست بالله عليكم افيدوني بالشرح .

اثابكم الله عني كل خير

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