اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

كيف يمكن ان يتم اضافة الصفر في الخلية مثلا الرقم الجوال 055 او0505 او011 او 012 بحيث يكون الصفر في البداية موجود

 

قام بنشر

استاذى الله يحفظك عندى عمود كامل به اكثر من 1000 رقم اريد ازالة هذه العلامة من العمود بالكامل

اقوم بعمل كوبى وبيست سبشيال واختار ادد وذلك لازالة هذه العلامة التى تحول الرقم لنص هل من طريقة اسهل واسرع او ماكرو 

مع خالص الشكر والتقدير وخالص الدعاءللاخوة بلبنان

 

قام بنشر

لو فرضنا ان هذه العلامة موجودة في العامود الأول A

هذا الماكرو يقوم بما تريد

Option Explicit

Sub Test()
Dim Ro#, i#
Ro = Cells(Rows.Count, 1).End(3).Row

For i = 1 To Ro
  If Range("A" & i) <> vbNullString Then
   Range("A" & i) = _
   Replace(Range("A" & i), Chr(39), """")
  End If
Next
End Sub

 

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

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

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information