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

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

قام بنشر

السلام عليكم

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

ارفقت مثالا على ذلك لتعم الفائدة

تقسيم.xls

  • Like 3
قام بنشر

أخى الحبيب / أبو حنين

بارك الله فيك

والله بجد بحر ابداع متواصل

زادك الله علما ورزقك من العلم والخير حتى ترضى

  • 8 months later...
قام بنشر

الاستاذ الحبيب / ابو حنين

كل اعمالك قديمة ... جديدة ... مستقبلية

ليس لها الا وصف واحد فقط

انها من الرواائع الجميلة

جزاك الله خيرا

رمضان كريم

  • 8 months later...
قام بنشر

أخى الحبيب جزاكم الله خيرا على هذا العمل الرائع . ولكن لى طلب أريد خطوات توزيع الرقم القومى على الخلايا

( شرح مبسط عن كيفية تنفيذها على ورقة اكسيل فارغة )

  • Like 1
قام بنشر

أخى الحبيب جزاكم الله خيرا على هذا العمل الرائع . ولكن لى طلب أريد خطوات توزيع الرقم القومى على الخلايا

( شرح مبسط عن كيفية تنفيذها على ورقة اكسيل فارغة )

  • Like 1
  • 3 weeks later...
  • 4 months later...
قام بنشر

الأستاذ / وائل البسطي

 

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

 

إليك الملف به المطلوب.

 

 

السلام عليكم

 

اخي خبير الاكسل اريد منك تعديل الملف الذي نزلت ( الرقم القومي ) سارفق صورة تبين ماريد التعديل علية وهل هو كود او معادلة

 

اريد تعديل الخانات كما هو موضح في الصور  مثل 84 اريد ان يعرض من اليمين الى اليسار بحيث يعرض في الخلية الاول من اليمين الى اليسار الاحاد 4 العشرات 8 وهكذا

G5dXfH.gif

قام بنشر

تفضل أخى

=IFERROR(MID($A2,LEN($A2)-(COLUMNS($B2:B2)-1),1),0)+0

ويمكن إستخدام هذا الكود أيضا

Sub SplitNumbers()
'gamal abd elsameh 28/8/2014
'http://www.officena.net
    Dim WRng As Range
    Dim Cell As Range
    Dim Lgth As Byte
    Dim i As Byte
    'Exit if worksheet not active
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    'Set range to work with
    With ActiveSheet
        Set WRng = Intersect(.Columns("A"), .UsedRange)
    End With
    'Loop through cells and
    'split the characters...
    For Each Cell In WRng
        Lgth = Len(Cell.Value)
        If Lgth > 0 Then
            For i = 1 To Lgth
                Cell.Offset(0, i).Value = Mid(Cell.Value, i, 1)
            Next i
        End If
    Next Cell
        
End Sub

تقبل تحياتى

فصل أرقام بطريقة عكسية.rar

  • Like 1
قام بنشر

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

 

الأستاذ / وائل البسطي

 

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

 

إليك الملف به المطلوب.

 

 

السلام عليكم

 

اخي خبير الاكسل اريد منك تعديل الملف الذي نزلت ( الرقم القومي ) سارفق صورة تبين ماريد التعديل علية وهل هو كود او معادلة

 

اريد تعديل الخانات كما هو موضح في الصور  مثل 84 اريد ان يعرض من اليمين الى اليسار بحيث يعرض في الخلية الاول من اليمين الى اليسار الاحاد 4 العشرات 8 وهكذا

G5dXfH.gif

 

أخي الكريم، هذا حل لمطلوبك بالمعادلات، أرجو أن يفي بالغرض...

 

أخوك بن علية

 

المرفق : فصل أرقام بطريقة خاصة.rar

  • Like 1
قام بنشر

نفس المشكلة الآرقام تظهر من اليمين للشمال نريد الأرقام تبدء من الشمال بمعنى أن الخلية رقم 14 يبدأ فيه الرقم من الشمال مثل الرقم المجمع 27002041501111  بنفس الشكل و ليس من اليمين و جزاكم الله الخير للوفير

قام بنشر

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

نفس المشكلة الآرقام تظهر من اليمين للشمال نريد الأرقام تبدء من الشمال بمعنى أن الخلية رقم 14 يبدأ فيه الرقم من الشمال مثل الرقم المجمع 27002041501111  بنفس الشكل و ليس من اليمين و جزاكم الله الخير للوفير

أخي الكريم، لم أفهم عليك المطلوب جيدا، ما قام به أخي الكريم جمال يفي بالغرض... تم تصحيح المعادلات في الملف المرفق...

 

أخوك بن علية

 

المرفق: فصل أرقام بطريقة خاصة.rar

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