كيف أقسم الحقل الى جزأين؟؟

مرحباً..

ماهو الرقم (تليفون ام رقم معرف ام ماذا)؟

وهل هو بعدد اربع digits ام انه يتغير؟

اذا كنت تعلم ان التنسيق كرقم لا يقبل هذا الامر فلماذا لا تحول نوع البيانات الى نص ثم تفعل ما تشاء؟

اذا كان لا بد ان يكون رقما فلماذا تريد اظهاره بهذه الصورة؟

لماذا لا ترفق مثالا وتوضح به ما تريد بالضبط؟

بارك الله فيك

بعد اذن اخي الفاضل واستاذي العظيم أ/ ايهاب عثمان

ممكن اجواب علي قدر علمي الضعيف

توصلت الي الكود قد يفي بالغرض الي ان يجد احد العباقره الوقت للإجابه الاحترافيه

On Error GoTo ERR
Dim c As String
Dim a As String

c = Len(a1)
a = c / 2
a2 = Mid$(a1, 1, a) & "/" & Mid$(a1, a + 1, c)
ERR:
Exit Sub