منع الفراغات قبل و بعد محتوى الخلية

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

السلام عليكم

مستفاد من شروح أخرى

لمنع المسافة الفارغة قبل و بعد محتوى الخلية

باستثناء الفراغات بين الكلمات

اختر بيانات

التحقق من صحة البيانات

مخصص

واكتب المعادلة الموجودة بالمرفق

منع المسافة قبل و بعد محتوى الخلية.zip

[أيسم إبراهيم]

السلام عليكمالأخ الكريم ياريت ترفق الملف بتنسيق 2003 ولك ألف شكر

[طارق محمود]

السلام عليكم

أخي kemas

فكرة بسيطة وجميلة

أخي أيسم

تفضل الملف 2003 بعد إذن أخي kemas

Delete_Spaces.rar

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

شكرا

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

و الملف الأصلى 2003!

تم تعديل ديسمبر 19, 2009 بواسطه kemas

[ابرار و ابراهيم]

الشكر للاخوه على افادتهم لنا ولكن يوجد لدي ملفات موجود فيها فراغات فما هي الطريقه للتخلص من الفراغات الموجوده ولكم الشكر

[يحيى حسين]

الأخت أبرار يمكنك إستخدام الدالة

TRIM

للتخلص من المسافات

[احمد فضيله]

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

[يحيى حسين]

يمكن التخلص من الفراغات بكود بسيط

 

Sub TrimMyData()

Dim c As Range

	For Each c In Selection

    	c.Value = WorksheetFunction.Trim(c.Value)

	Next c

End Sub

بعد تحديد المدى نقوم بتفعيل هذا الكود

و ستم الغاء كل الفراغات

[خالد الشاعر]

الاستاذ / يحي

كود جميل و ممتاز تسلم ايدك

ولكن هل ممكن تثبيت عمود معين ينفذ علية الكود

الف شكرأ

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

[يحيى حسين]

السلام عليكم

أخي لا أتوقع أن تحتاج عامود كامل

و لكن جرب هذا الكود لعلى و عسى أن يفي بطلبك

Sub TrimMyData()

Dim c As Range

Dim Rng As Range

Dim LR As Long

LR = Range("a" & Rows.Count).End(xlUp).Row

Set Rng = ActiveSheet.Range("a1:a" & LR)

    	For Each c In Rng

    	c.Value = WorksheetFunction.Trim(c.Value)

    	Next c

End Sub

[محمدي عبد السميع]

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

[هشام شلبى]

السلام عليكم

الى ابرار وابراهيم

اذا كان الفصد هو ان البيانات موجودة بالفعل ونريد ازالة المسافات فاليك الحل بدون معادلات ولا اكواد

تحياتى

حذف مسافات.rar

[هشام شلبى]

السلام عليكم

اخى يحيى رائع زادك الله من نعيمه

[ابرار و ابراهيم]

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

[يحيى حسين]

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

أخي هشام طريقتك جميلة و لكن لا يمكن الاعتماد عليها

حيث سيتم حذف كامل الفراغات داخل الخلية مما قد يربك البيانات

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

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

الأخت أبرار

1. إضغطي على المفتاح Alt+F11 و ذلك لفتح محرر الفيجوال بيسك

2. ثم قومي بادراج موديل جديد من خلال

insert

Module

3. قومي بنسخ الكود أعلاه

4. أغلقي محرري الفيجوال بيسك

و هكذا سيكون الكود لديك جاهز للعمل

و سيكون مدي هذا الكود في العمود A

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

إضغطي على Alt+F8

و ستظهر شاشاة سيكون بها اسم الكود

إضغطي على الزر Run

و سيقوم الكود بمسح جميع الفراغات قبل و بعد أي كلمة في المدى A

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

و دمتم في حفظ الله و رعايته

[ابرار و ابراهيم]

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

أخي هشام طريقتك جميلة و لكن لا يمكن الاعتماد عليها

حيث سيتم حذف كامل الفراغات داخل الخلية مما قد يربك البيانات

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

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

الأخت أبرار

1. إضغطي على المفتاح Alt+F11 و ذلك لفتح محرر الفيجوال بيسك

2. ثم قومي بادراج موديل جديد من خلال

insert

Module

3. قومي بنسخ الكود أعلاه

4. أغلقي محرري الفيجوال بيسك

و هكذا سيكون الكود لديك جاهز للعمل

و سيكون مدي هذا الكود في العمود A

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

إضغطي على Alt+F8

و ستظهر شاشاة سيكون بها اسم الكود

إضغطي على الزر Run

و سيقوم الكود بمسح جميع الفراغات قبل و بعد أي كلمة في المدى A

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

و دمتم في حفظ الله و رعايته

اخي العزيز مشكور على الشرح حيث طبقت تعليماتك وان الشرح وافيا وقد استفدة منه كثيرا ولكن لدي موضوع طرحته اكثر من مره ولم اجد الحل واتمنى ان يكون الحل عندك موضوعي انه لدي ملف اعمل عليه منذسنوات ولكن منذ فتره اصبحت لا استطيع اخفاء الاعمهده حيث تظهر لي رساله """لا يمكن ازاحة الكائنات خارج الورقه"""" وارفقت الملف عسى ان تتمكن من مساعدتي

الحسابات.rar

[خالد القدس]

السلام عليكم

كود رائع جدا ومفيد للغاية

بارك الله فيك استاذ يحيى ورزقك من حيث لا تحتسب

[يحيى حسين]

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

الأخت أبرار المشكلة تكمن في Comment التعليقات

لقد قمت بإلغائها

و هذا هو ملفك يعمل الان

جربيه و أعلميني

الحسابات لأبرار و ابراهيم.rar

تم تعديل فبراير 25, 2010 بواسطه يحيى حسين

[ابرار و ابراهيم]

كل الشكر لك يا استاذي العزيز حيث انني تعبت وانا ابحث عن الحل لذا كل الشكر لك

[vbnet20]

السلام عليكم

اشكركم على نشر العلم و ارجو الصحة و الفلاح للكل

المشكلة: اقوم ادخال بيانات الى قاعدة بيانات لاسم الطالب

بحيث يكون الاسم في حقل و الاب في حفل و الجدالثالث و

الرابع في حقل, المشكلة ان البيانات تاتي في حقل واحد بالاسم

كاملا.
اريد كود لدالة يمكن اقتصاص اول اسم لحقل الاسم
اريد كود لدالة يمكن اقتصاص ثاني اسم لحقل الاب
اريد كود لدالة يمكن اقتصاص باقي الاسم لحقل الجد

ملحوظة استفسار مهم  لو كان اول الاسم عبد و بعده مسافة يتم حذف

المسافه ليكونا اسم واحد مثل عبدالعظيم  بدل من عبد العظيم
 

مثال ليوضح ما اريد

[أم عبد الله]

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

 

إليك الملف به كود لأستاذنا الكبير العلاّمة / عبد الله باقشير جزاه الله خيراً على جميع أعماله وجعلها الله في ميزان حسناته.

نسخة من السادس الابتدائى.rar

[mimas]

في 12/19/2009 at 10:06, طارق محمود said:

السلام عليكم

أخي kemas

فكرة بسيطة وجميلة

 

أخي أيسم

تفضل الملف 2003 بعد إذن أخي kemas

Delete_Spaces.rar

 

السلام عليكم ... وعذراً بأني أوقظ موضوعاً مضى عليه وقت طويل ..

ولكن الحقيقة لزمني هذا الأمر ، واطلعت على طريقتم الرائعة ، ولكنها تعمل فقط مع الأحرف ، أما الأرقام فلا تقبلها ، على ما يبدو أنها تعتبرها فراغات !!

مع الشكر الجزيل .

[ياسر خليل أبو البراء]

أخي الكريم 

يرجى طرح موضوع جديد بمشكلتك مع إرفاق ملف للإطلاع عليه

تقبل تحياتي