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

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

قام بنشر

السلام عليكم

كيف يمكن ان يتم اضافة الصفر في الخلية مثلا الرقم الجوال 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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information