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

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

قام بنشر

بسم الله الرحمن الرحيم

الإخوة الأعزاء

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

اتمنى ان تكونوا بأفضل حال، وفي صحة جيدة

بعد صدور قرار هيئة الإتصالات المصرية بتعديل بادئات ارقام المحمول لتصبح 11 رقماً بدلاً من 10 ارقام، قلت لما لا اقوم بتجربة تعديل الأرقام من خلال الإكسل فكانت النتيجة هذا الشيت

ملحوظة : هذا العمل لا يساعد على تغيير الأرقام المخزنة على محمولك (في حالة انك من مصر) إنه فقط محاولة للتفكير في إيجاد حل لاحد الموضوعات المعاصرة ، ورغبة في تحسين مستواي في التعامل مع البرنامج

ملحوظة 2 : إذا كان بالإمكان تعديل الكود المرفق بحيث يكون اقصر قليلا فأرجو المشاركة (تقصير الكود يعني استخدام اسلوب متقدم في التكويد وتحليل المشكلة بالتأكيد :wink2: )

13178431981.jpg


Function UMN(Mobile As Range) As String

' Update Mobile Number

    Dim Prefix As String

    Dim NPrefix As String

    Dim Suffix As String


    Select Case Len(Mobile)

	    Case 10

		    Prefix = Left(Mobile, 3)

	    Case 11

		    Prefix = Left(Mobile, 4)

    End Select


    Select Case Prefix

	    Case "012": NPrefix = "0122"

	    Case "017": NPrefix = "0127"

	    Case "018": NPrefix = "0128"


	    Case "010": NPrefix = "0100"

	    Case "016": NPrefix = "0106"

	    Case "019": NPrefix = "0109"


	    Case "011": NPrefix = "0111"

	    Case "014": NPrefix = "0114"


	    Case "0150": NPrefix = "0120"

	    Case "0151": NPrefix = "0101"

	    Case "0152": NPrefix = "0112"

    End Select


    Suffix = Right(Mobile, 7)


    UMN = NPrefix & Suffix

End Function

Update Mobile Number.rar

  • Like 3
قام بنشر

استاذ معتصم محمد

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

العمل ممتاز وسيكون الملف اجمل لو اضيف مكان رقمك القديم ومكان اخر التحديث

اخوك

سعد عابد

قام بنشر

السلام عليكم

========

عن الصادق المصدوق صلى الله عليه وسلم قوله:((إن لله عباداً اختصهم بقضاء حوائج الناس،حببهم إلىالخير،وحبب الخير إليهم،هم الآمنون من عذاب الله يوم القيامة))

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

قام بنشر

استاذ / سعد عابد

للأسف ماذا تقصد ب

وسيكون الملف اجمل لو اضيف مكان رقمك القديم ومكان اخر التحديث

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

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

الأستاذ / هشام شلبي

العفو استاذ هشام، كل ما اردت القيام به هو تجربة امكانية استخدام الإكسل في عملية تعديل الأرقام، دون ان اعرف هل سيمكن ان نستفيد من ذلك فعلياً

الأستاذ / ياسر الحافظ

الشكر لله ، احاول ان اقدم شيئاً ولو يسير في هذا الصرح الكبير

الأستاذ / المايستروا

القلوب عند بعضها

حسب قول احد المعارف انك تستطيع تصدير الأرقام على هيئة CSV وبالتالي سيمكنك استخدام الإكسل لتعديل الأرقام مرة واحدة ثم تقوم بإدخال الأرقام المعدلة مرة اخرى للمحمول الخاص بك

هل يمكن تأكيد ذلك؟

قام بنشر

الاستاذ / معتصم

بارك الله فيك , عندى ملف كنت محتاج اضيف التغييرات الجديدة دى و كنت هعملة يدوى لكن الملف اللى حضرتك عملتة حل الموضوع دة اتوماتيك , وكدة و الله وفرت عليا مشوار طويل .

جزاك الله خير و جعلة فى ميزان حسناتك

محمد سعد

قام بنشر

الأستاذ / مجدي يونس

سبب المشكلة انك تقوم بإدخال الرقم مباشرة للخلية وبالتالي سيقرأه الإكسل على انه قيمة رقمية وبالطبع الصفر في بدية القيم الرقمية ليس له قيمة

وعليه يقوم الإكسل بحذف / إزالة هذا الصفر

ويترتب على ذلك ان المعادلة ستكون نتيجتها غير صحيحة

لذلك يجب عليك ضبط التنسيق أولاً للخلية لتكون Text وذلك من خلال الضغط على كنترول + 1 ليظهر مربع حوار تنسيق الخلية

في تاب الأرقام Number نختار التصنيف Text ثم موافق

الأن تستطيع كتابة الرقم وهو يبدأ بالصفر

قام بنشر

حسب قول احد المعارف انك تستطيع تصدير الأرقام على هيئة CSV وبالتالي سيمكنك استخدام الإكسل لتعديل الأرقام مرة واحدة ثم تقوم بإدخال الأرقام المعدلة مرة اخرى للمحمول الخاص بك

هل يمكن تأكيد ذلك؟

نعم هذا متاح وقد جربته ونجح

ولكنى أعتقد أن إمكانية عمل نسخة من الأسماء المخزنة فى ذاكرة الهاتف ليتم نسخها فى كارت الميمورى غير متاح فى جميع الأجهزة جهازى قام بها ببساطة نوكيا N73 ولكن جهازى الآخر لم يفلح فى ذلك

قام بنشر

استاذ / يوسف

شكراً على التاكيد ، واتمنى ان يكون الكون ذا فائدة لك

استاذ / عبدالله المجرب

شكراً على كلام الجميل

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

شكراً لكم جميعاً على كلماتكم الجميلة

  • 2 years later...
قام بنشر

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

ارجو مساعدتي لقد حاولت عمل الخطوات المذكورة ولكني لم استطع تنفيز المهم المطلوبة وهي تعديل الأرقام الموجودى لدى في ملف إكسل، وإن أمكن كيف يمكنني أن أضع علامة - شرطة بين كود الشركة والرقم مثال 0122-xxxxxxx أنا مبتدء في الإكسل ارجو شرح الخطوات كاملة، اعتزر للإطالة ولكن لدى نقطة ثانية كيف اجعلى إكسل يضيف 0 الذي تم حزفه بسبب تنسيق الخلية ليس نصي لأني أعاني من ذلك في عدد كبير من الأرقام. شاكر لاهتمامكم ومساعدتكم

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