مشكل في استبدال الفاصلة بالنقطة

[dodo222]

السلام عليكم

اخواني الافاضل عندي مشكلة في الاكسل بحيت عتد تضليل كل خلايا العلامات واستبدال الفاصلة بالنقطة

تستبدل البعض منها فقط والبقية لا تستبدل

 

وعند استبدال الخلية لوحدها تأتيني رسالة الخطأ التالية

ارجو مساعدتكم بارك الله فيكم

 

 

[حسونة حسين]

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

من ملف الاكسل اتبع الخطوات الاتيه

File ___ advanced 

ازل علامه الصح من 

Use system separators

كما بالصورة الاتيه

ثم استبدل العلامه التى تريدها من الصورة الاتيه

[dodo222]

اعرف هذه الطريقة اخي...

انا اريد الاستبدال في هدا الملف فقط وليس في كامل البرنامج

[عبدالفتاح في بي اكسيل]

كان  من  الاجدر  ان  ترفق  ملف  مادام  اقتراح @hassona229 ليس  ما  تريده  حينها ستضطر  العمل  مع  كود  معين .

لا اعلم  اذا  فهمتك  جيدا  

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

Sub Replace_marks()
    Const MCOMMA = ","
    Const MDOT = "."
    Dim ws As Worksheet
    For Each ws In Worksheets
      ws.UsedRange.Replace MCOMMA, MDOT, xlPart
        Next ws
End Sub

 

تم تعديل ديسمبر 12, 2022 بواسطه عبدالفتاح في بي اكسيل

[dodo222]

2 ساعات مضت, عبدالفتاح في بي اكسيل said:

كان  من  الاجدر  ان  ترفق  ملف  مادام  اقتراح @hassona229 ليس  ما  تريده  حينها ستضطر  العمل  مع  كود  معين .

لا اعلم  اذا  فهمتك  جيدا  

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

Sub Replace_marks()
    Const MCOMMA = ","
    Const MDOT = "."
    Dim ws As Worksheet
    For Each ws In Worksheets
      ws.UsedRange.Replace MCOMMA, MDOT, xlPart
        Next ws
End Sub

 

شكرا لك اخي لدعمك لي

مجرد سؤال....لماذا عند تضليل كل الخلايا التي تحوي على علامات بها فواصل واستبدالها بنقاط  بعض العلامات تستبدل عادي والبعض منها لا يستبدل

[عبدالفتاح في بي اكسيل]

@dodo222

هل  جربت  الكود  الذي  اعطيتك اياه ؟

هل  هناك  مشكله  بالكود؟

يجب  ان  توضح  ماذا  حدث  معك بعد  تنفيذ  الكود

[dodo222]

 نعم جربت الكود شغال جيدا

الكود يشتغل على الملفات الخاصة بي

اما بالنسبة للملفات الخاصة بالمؤسسة التربوية لا يمكنني ادراج الكود كلها تكون محمية

ما اريده هو كيف يمكنني استبدال الفاصلة مكان النقطة في ملف محمي وشكرا لك اخي الفاضل

[حسونة حسين]

ارفق ملف ليرى الاخوة الاعضاء والاساتذه المشكله ليتمكنوا من حلها بدون ارفق مرفق هذا تضييع للوقت

[dodo222]

ليكن هذا الملف مثلا 

 

الفصل الثاني.xls

[dodo222]

21 ساعات مضت, hassona229 said:

ارفق ملف ليرى الاخوة الاعضاء والاساتذه المشكله ليتمكنوا من حلها بدون ارفق مرفق هذا تضييع للوقت

لقد ارفقت لكم الملف اخي 

[حسونة حسين]

اخى الكريم @dodo222

الملف (الفصل الثاني ) الذي ارفقته وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت كما ارفقت محمى

[dodo222]

أضن انك لم تفهمني جيدا 

للأسف دعك منه

[حسونة حسين]

اخى @dodo222

ممكن تشرح بالصور او فيديو لكى توضح لنا المطلوب

[عبدالفتاح في بي اكسيل]

اقتباس

ما اريده هو كيف يمكنني استبدال الفاصلة مكان النقطة في ملف محمي وشكرا لك اخي الفاضل

 

لم  يكن  هذا  سؤالك  من  البداية .  اقرا  توقيعي  قبل  ان  تضيف  اسئلة  جديدة .

يمكنك  اضافة  اجراء  في  بداية  الكود  لالغاء  الحماية  وفي  نهايته  لاعادة  الحماية حيث  سيقوم  بفك  الحماية  ثم  تنفيذ  الكود   ثم اعادة  الحماية  من جديد.

تحياتي.

[حسونة حسين]

اخى الكريم @عبدالفتاح في بي اكسيل

الملف (الفصل الثاني ) الذي ارفقه اخونا @dodo222وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت محمى

[dodo222]

12 ساعات مضت, hassona229 said:

اخى الكريم @عبدالفتاح في بي اكسيل

الملف (الفصل الثاني ) الذي ارفقه اخونا @dodo222وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت محمى

شكرا اخي hassona229 

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

[dodo222]

أما بخصوص الملف المحمي وضعت فيه الكود ولم يشتغل

الملف به الاكواد

 

الفصل الثاني.xls

[حسونة حسين]

اخى الكريم يمكنك اضافه الكود الخاص باخى @عبدالفتاح في بي اكسيل

في اي موديل ثم تشغيله سوف يعدل لك ما انت محتاجه فقط وهو الاستبدال النقطة بالفاصلة وبعد ان ينتهى الكود وتجد النتائج كما تريد امسح الكود واحفظ الملف 

الكود لن يؤثر على الملف

لن يعلم احد انك وضعت كود طالما انك مسحت الكود قبل حفظ الملف

[dodo222]

الله يجازيك