نجوم المشاركات

بسم الله الرحمن الرحيم الإخوة الأعزاء السلام عليكم ورحمة الله وبركاته اتمنى ان تكونوا بأفضل حال، وفي صحة جيدة بعد صدور قرار هيئة الإتصالات المصرية بتعديل بادئات ارقام المحمول لتصبح 11 رقماً بدلاً من 10 ارقام، قلت لما لا اقوم بتجربة تعديل الأرقام من خلال الإكسل فكانت النتيجة هذا الشيت ملحوظة : هذا العمل لا يساعد على تغيير الأرقام المخزنة على محمولك (في حالة انك من مصر) إنه فقط محاولة للتفكير في إيجاد حل لاحد الموضوعات المعاصرة ، ورغبة في تحسين مستواي في التعامل مع البرنامج ملحوظة 2 : إذا كان بالإمكان تعديل الكود المرفق بحيث يكون اقصر قليلا فأرجو المشاركة (تقصير الكود يعني استخدام اسلوب متقدم في التكويد وتحليل المشكلة بالتأكيد ) 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