كود يقوم بحفظ الارقام الطويلة اكثر من 15 رقم في خلية اكسل كنص

[محمد الزريعي]

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

عيدكم مبارك وكل عام وانتم بخير . 

لاول مرة اعرف ان خانات اكسل لها عدد محدود  للأرقام اي  طول الاعداد فقط 15 رقم وبعد كذا اي رقم بعد  15 رقم يعتبرة صفر ملف اكسل . وهذه مشكلة ، عندي . 

هل  بالامكان وضع الكود التالي لحل هذه المشكلة هو : 

اذا كان اقل من 16 رقم يخزنه كرقم 

واذا كان اكبر من 15 رقم يخزنة كنص .. كما هو في الصورة 

ياليتكم تساعدوني في حل هذه المشكلة وشكراً . 

المطلوب كود يقوم بحفظ الارقام  اذا كان اقل او يساوي 15 خانة رقم يحفظة كرقم .  

واذا كان اكثر من ذالك يحفظة كنص .. ويقوم بتسيق الخلية نصية ، اي لها علامة خظراء على اليمين . 

 

[سليم حاصبيا]

جرب هذا الكود (يعمل فقط في العامود A اوتوماتيكياً)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False

  If Len(Target) <= 15 Then
  Target.NumberFormat = "general"
  Else
  Target.Value = "'" & Target.Value
  m = Target.Address
'
  t = "=LEFT(SUBSTITUTE(" & m & "," & """.""" & "," & """""" & "),FIND(" & """E""" & ",SUBSTITUTE(" & m & "," & """.""" & "," & """""" & "))" & "-1)"
  s = Evaluate(t)
  Target.Value = s
  End If
Application.EnableEvents = True

'===========================
End Sub

 

[قلم-الاكسل(عبدالعزيز)]

هو فيه الماني عامل اضافة للارقام الطويله

وسيعامل الاكسل الارقام الطويل كارقام وليست كنص

لكن لا ادري هل سينجح مع الاكسل اللي فوق 2007

 

EN.Karatsuba.zip

الاكسل لازم يكون بلغة اجنبية انكليزي او الماني او فرنسي

تم تعديل سبتمبر 15, 2016 بواسطه قلم-الاكسل(عبدالعزيز)