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

بسم الله الرحمن الرحيم الإخوة الأعزاء السلام عليكم ورحمة الله وبركاته اتمنى ان تكونوا بأفضل حال، وفي صحة جيدة بعد صدور قرار هيئة الإتصالات المصرية بتعديل بادئات ارقام المحمول لتصبح 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

السلام عليكم ورحمة الله وبركاته هنا فكرة عمل قوائم للاكسل في اعلى الصفخة باستخدام الفورم حيث تم استخدام الفورم لعمل قوائم مميزة وباسلوب جديد هنا مرفق قوائم لبرنامج مع واجهة ترحيبية للبرنامج طبعا القوائم لا تحتوي على اوامر كون الرنامج فارغ ويمكن وضع الاوامر المختلفة لها ببساطة شاهدوا المرفق قوائم جديد.rar

اخي هذه احدى الطرق اجعل تنسيق الخلية التي ستدخل بها الارقام بتنسيق نص ثم ضع هذه المعادلة في الخلية B1 بفرض ان خلية الارقام هي A1 =DATE((MID(A1;5;4));MID(A1;3;2);MID(A1;1;2)) ولاحظ النتيجة ابواحمد

السلام عليكم اخي خالد القدس بارك الله فيك اين انت مختفي من مدة --------------------------------- اخي ابو عبدالله / حمور ما شاء الله عليك انت مدرسة بحق بعلمك واخلاقك بارك الله فيك ---------------------------------- اخي ياسر ... اكتفي بتعليقك ---------------------------------- اخي ابو عبدالله / الجزيرة عذرا على التاخير وهنا التعديل في المرفق بياااااااان شامل عن قطع الغيارlsm.rar