الرئيسية | مايكروسوفت اوفيس | مايكروسوفت اكسل | عدل ارقام المحمول في اقل من 8 دقائق – اكواد ومعادلات

عدل ارقام المحمول في اقل من 8 دقائق – اكواد ومعادلات

أصدرت هيئة الإتصالات المصرية قراراً بتعديل ارقام المحمول ليصبح رقم المحمول مكون من 11 رقم بدلاً من 12، فإذا كان رقم المحمول مثلاً 0101234567 سيصبح بعد التعديل 01001234567، وبالطبع في حالة وجود عدد كبير من الأرقام المخزنة لديك فإن القيام بعملية التعديل يدوياً ستصبح مرهقة جداً وستستغرق وقتاً طويلاً.
لذلك اليوم سنستعرض معاً كيفية إتمام هذه المهمة في أقل من 5 دقائق إن لم يكن أقل!!.
الأكواد القديمة والأكواد الجديدة المقابلة لها

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

ملحوظة : لحاملي الجهاز Nokia يمكنكم إستخدام برنامج Nokia PC Suite

الخطوة الثانية : إضافة الكود التالي للشيت وذلك كالتالي

  1. نذهب لمحرر الأكواد VBE من خلال الإختصار Alt+F11
  2. من القائمة Insert نختار الأمر Module، بذلك سيتم إضافة وحدة نمطية جديدة وهي الموضع الذي سيتم إضافة الكود به (مرجع)
  3. نقوم بنسخ الكود التالي ونضعه في الوحدة النمطية Module (الخطوة السابقة)
  4. نستخدم الدالة UMN بحيث تكون القيمة التي سيتم إدخالها للدالة هي الخلية التي تشتمل على رقم المحمول
Function UMN(Mobile As Range) As String
 
' Update Mobile Number
' Written by : Moatasem Sherif
' Source : www.et3lmonline.com/
 
    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

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

ملحوظة اخيرة : إذا كنت لا تريد إستخدام الأكواد فيمكنك إستخدام المعادلة التالية

=VLOOKUP(IF(LEN(A1)=10;LEFT(A1;3);LEFT(A1;4));{“012″,”0122″;”017″,”0127″;”018″,”0128″;”0150″,”0120″;”011″,”0111″;”014″,”0114″;”0152″,”0112″;”010″,”0100″;”016″,”0106″;”019″,”0109″;”0151″,”0101”};2;0)&RIGHT(A1;7)

على ان يكون رقم المحمول في الخلية A1

تحديث 1 في 12/ 10/ 2011
تم تعديل الكود لكي يتمكن من التعامل مع المقيمين خارج ج.م.ع. (مصر) بشكل صحيح، حيث انهم يقومون بتسجيل الأرقام بالبادئة +2 ثم رقم المحمول.

شاهد أيضاً

إيجاد القيم المتشابهه بين خليتين – مايكروسوفت اكسل VBA

هل تريد معرفة إن كان هناك كلمة /كلمات مشتركة بين خليتين واستخراج هذه الكلمة/الكلمات؟ في ...