كيفية إضافة نقطة في نهاية جملة أو فقرة نصية بالكود

[ًعبد من عباد الله]

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

هل بالإمكان إنشاء كود يقوم بوضع نقطة في نهاية كلام جملة أو فقرة نصية إذا لم تكن موجودة بالأصل وإن كانت موجودة فلا يضع شيء علماً بأنه سيقوم بذلك لحوالي 40 ألف صف بالمرفق نموذج مصغر للتطبيق عليه وشكراً.

وضع رمز كنقطة أو علامة استفهام لنهاية نص جملة أو فقرة.xlsx

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

بمكن ذلك

Option Explicit
Sub add_point()
Dim i#
i = 2
 Do Until Cells(i, 1) = vbNullString
  If Right(Cells(i, 1), 1) <> Chr(46) Then
   Cells(i, 1) = Cells(i, 1) & Chr(46)
   End If
   i = i + 1
  Loop
 
End Sub

 

[ًعبد من عباد الله]

الشكر الجزيل للأستاذ الكبير / سليم حاصبيا

أسعدك الله كما اسعدتني واستميح حضرتك بإستفسار أخر وهو:

ماذا علي أن أفعل إذا أردت تغير النقطة بعلامة استفهام في الكود ليقوم الكود بنفس العمل ولكن بوضع بعلامة استفهام في نهاية الكلام بدلاً من النقطة لأن لدي فقرات علي هيئة أسئلة وجزاك الله كل خير

تم تعديل ديسمبر 24, 2018 بواسطه وائل أبو عبد الرحمن

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

استبدل الرقم 46 بالرقم 63 او الرقم 191

[ًعبد من عباد الله]

أستاذي الكريم

بالفعل هو الرقم 191 حيث يمثل علامة الاستفهام العربية

ارجو أن يتسع صدر حضرتك لطلب أخير إن كان بالإمكان وهو إفادتنا بكامل أكواد الحروف والرموز العربية في لغة VBA سواء من ملف في المنتدي أو من خلال رابط خارجي

أيضا ماذا علي أن اضيف للكود إذا اردت أن يكون الرمز بعد مسافة واحدة من أخر الكلام وليس ملاصقا لأخر حرف كما هو الحال الآن

ولكم منا جزيل الشكر

 

تم تعديل ديسمبر 24, 2018 بواسطه وائل أبو عبد الرحمن

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

استبدل هذا السطر 

Cells(i, 1) = Cells(i, 1) & Chr(46)

بهذا    (مع كتابة الرقم الصحبج 191)

Cells(i, 1) = Cells(i, 1) &" "& Chr(46)

 

[ًعبد من عباد الله]

أستاذنا الكريم جزاك الله كل خير وبارك فيك وزادك علما وحلما وأعتذر إن كنت قد اتعبتك معي

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

 

 

تم تعديل ديسمبر 24, 2018 بواسطه وائل أبو عبد الرحمن