مكرو لحذف الفراغات في الخلايا مع ظهور رسالة حتى اﻹنتهاء من التنفيذ

[أنس دروبي]

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

أخواني اشتقت لكم كثيراً

لدي هذا الملف المرفق فيه الشرح بالمطلوب

وأرجو اﻹهتمام بالطلب الثاني

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

وشكراً

أخوكم

أنس دروبي

Blank Delete.rar

[الـعيدروس]

السلام عليكم

بالنسبة للرسالة تعتبر كشخه فقط

ولا يهمك ياعم اكشخ براحتك

هذا الكود

Sub ALidroos_CP_S()

Dim A_R As Range, ALI_R As Range

CreateObject("Wscript.shell").Popup "إنتظر قليلاً حتى الإنتهاء من معالجة البيانات", 1, "إنتظار !!!!", vbExclamation

Set ALI_R = Range("A2:A86")

For Each A_R In ALI_R

    A_R = Trim(WorksheetFunction.Substitute(A_R, "-", ""))

    A_R = Trim(WorksheetFunction.Substitute(A_R, "_", ""))

Next

CreateObject("Wscript.shell").Popup "تمت معالجة البيانات بنجاح", 5, "تمت العملية والحمد لله ", vbInformation

End Sub

جرب وبلغنا بالنتائج

تحياتي

تم تعديل ديسمبر 25, 2011 بواسطه alidroos

[عبدالله باقشير]

السلام عليكم

الرسالة هذه فعلا كشخة (رائعة)

من شخص رائع

بارك الله فيك

[الـعيدروس]

السلام عليكم

اشكرك استاذ عبدالله على هذا المرور العطر

ومروركم شرف كبير لنا ونعتز به

[القومي]

استاذنا / ابو نصار

كود رائع وانتم تعطون من وقتكم الكثير والكثير

شكرا لكم وجزاك الله كل خير

[mhrrd]

عند وضع اعداد بها مسافات لايتم حذف المسافات الموجوده بين الاعداد

واذا كتبنا اسم شخص بينه وبين اسم والده عدة مسافات لايتم الحذف

ارجو الافاده

[abouelhassan]

استاذ ابو نصار

كل الاحترام للروائع التى تقدمه

والله احترام من قلبى

[أنس دروبي]

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

أولاً أعتذررررر كثيرررراً عن التأخير في الرد على الموضوع

ثانياً أستاذ أبو نصار الله يجزيك الخير على الكود الرائع الذي قدمته لي في حل الموضوع

ولكن الموضوع لم يكتمل بالشكل الصحيح بعد وهو أن الكود ينفذ ظهور الرسالة وبعد مرور ثانية واحدة يتم إغلاق الرسالة وبعدها تحذف الفراغات والفواصل

الذي كنت أريده هو ظهور الرسالة وأثناء ظهورها يتم حذف الفراغات معاً ليس بعد اختفاء الرسالة

ﻹنه عندما تم نقل الكود الى الملف الخاص بي ويوجد به ما يقل على (٢٠٠٠٠) خلية أصبحت معالجة البيانات بطيئة جداً لذلك كانت الرسالة اﻷولى هي الفكرة

فأرجو الحل وهو أثناء ظهور الرسالة يتم حذف الفراغات

والسلام عليكم

وشكرأ

أنس دروبي

[احمدزمان]

السلام عليكم

اخي ابو نصار

ماشاء الله تبارك الله

عمل رائع من اخ مبدع

جزاك الله كل خير

[الـعيدروس]

السلام عليكم

اشكرك استاذ احمد على هذا المرور العطر

والكلمات الطيبه

الاخ الفاضل Creation World

اطلع على المرفق

طريقتين StatusBar واطار فورم

عله يفي بالغرض

ودعواتك يالغالي

B_ALIDROOS.rar

تم تعديل ديسمبر 29, 2011 بواسطه alidroos

[الـعيدروس]

===========================

تم تعديل المرفق في المشاركة السابقة

لخصنا الكود نوع ما الكود في السابق

كان على حلقتين مما يسبب بطئ في حال

البيانات كثيره والان ان شاء الله يعمل بكفائه

تحياتي

تم تعديل ديسمبر 29, 2011 بواسطه alidroos

[أنس دروبي]

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

الله يجزيك الخير أخي أبو نصار على هذا الحل البارز عن شخص محترف ومبدع

فلم يكن يخطر لعقلي فكرتك الجميلة StatusBar لكي يتم تنفيذ الكود بشكل صحيح

وألف شكر مرة أخرى وتم حل المطلوب ١٠٠ ٪

********

والسلام عليكم

أخوكم

أنس دروبي

[cat101]

عند وضع اعداد بها مسافات لايتم حذف المسافات الموجوده بين الاعداد

واذا كتبنا اسم شخص بينه وبين اسم والده عدة مسافات لايتم الحذف

ارجو الافاده

عندي نفس المشكله نريد الرد

[أنس دروبي]

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

اﻷخ السائل يوجد في الكود معادلتين

اﻷولى لحذف اﻹشارة (-) والثانية لحذف اﻹشارة(_)

لكي تقوم بحذف الفراغ الواقع بين اﻷسماء أو اﻷعداد قم بتبديل أي من اﻹشارتين بمسافة الفراغ المراد حذفه

أرجو أن أكون أوصلت الفكرة المطلوبة

والسلام عليكم

أخوكم

أنس دروبي