طرق نسخ او نقل بعض الاكواد او المعادلات الخاصة

[ghreeb197]

اخواني الاعزاء

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

اما الملف الثالث ففيه كود لإزالة المسافات كيف استطيع ان اغير الخلية بدلا مثلا من A اجعلها C او اي خلية اخرى

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

 

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

معادلة ازالة المسافات ما عدا المسافات المفردة.rar

معادلة فصل الحروف عن الارقام2.rar

دالة لاخذ الارقام من خلية دون الحروف.rar

[الصـقر]

اخى الكريم

بالنسبة لكود ازالة المسافات 

اليك المرفق به المطلوب

معادلة ازالة المسافات ما عدا المسافات المفردة.zip

[ghreeb197]

اخي الفاضل

شكرا لتجاوبك السريع

المطلوب في هذا الملف هو ملف ما شاء الله عليه ومن استاذ كبير الاخ باقشير

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

محتاج شرح كيف انقل الكود الى ملف اخر وفي نفس الوقت استطيع وضعه في خلية اخرى او اجعله يعمل على خليتين .

 

وشكرا لك

[ghreeb197]

احبابي واخواني

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

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

اردت شرح طريقة نقل بعض المعادلات في الملف الثاني والثالث في ملف اخر حيث قمت بنقل هذة المعادلات لملف اخر فيظهر لي #name#

اما الملف الثالث ( المسافات ) فهي لعلامة الاكسل الاستاذ عبدالله باقشير شرح بسيط كيف استطيع نقل هذا الكود من هذا الملف اللى ملف اخر  مع تغيير في الخلية بدلا من B اغيرها الى D او F او اجعلها تعمل على خلييتين مع بعض .

 

شاكر لكم حسن تعاونكم

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

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

 

اردت شرح طريقة نقل بعض المعادلات في الملف الثاني والثالث في ملف اخر حيث قمت بنقل هذة المعادلات لملف اخر فيظهر لي #name#

 

هذه الدالات معمولة بالكود يجب نقل الكود الخاص بالدالة الى ملفك

 

ما الملف الثالث ( المسافات ) فهي لعلامة الاكسل الاستاذ عبدالله باقشير شرح بسيط كيف استطيع نقل هذا الكود من هذا الملف اللى ملف اخر  مع تغيير في الخلية بدلا من B اغيرها الى D او F او اجعلها تعمل على خلييتين مع بعض .

 

 

استخدم هذا الكود يعمل على اي خلايا يتم تحديدها

Sub kh_TrimSelection()
On Error Resume Next
Dim cel As Range
For Each cel In Selection.Cells
    If Not IsNumeric(cel) Then
        cel.Value = WorksheetFunction.Trim(cel)
    End If
Next
On Error GoTo 0
End Sub

تحياتي

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

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

كود رائع وسهل جدا ومرن وهو أفضل من الملف الأول من حيث المرونة لأنه غير محدد بنطاق أو عمود معين

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

 

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

كود رائع وسهل جدا ومرن وهو أفضل من الملف الأول من حيث المرونة لأنه غير محدد بنطاق أو عمود معين

 

نورت المنتدى

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

تقبلوا تحياتي وشكري

[ghreeb197]

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

بارك الله فيك دائما مبدع

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

Sub kh_TrimSelection()
On Error Resume Next
Dim cel As Range
For Each cel In Selection.Cells
    If Not IsNumeric(cel) Then
        cel.Value = WorksheetFunction.Trim(cel)
    End If
Next
On Error GoTo 0
End Sub

جزاك الله خيرا اخي العالم العلامه عبد الله باقشير

[ghreeb197]

اخواني الاعـــــزاء

سقاكم الله من فيض العلم الكثير وأثابكم عليه

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

فمثلا توجد معادلة    كهذة                      Kh_Replace_Text($B2,TRUE)=

 

واخرى كهذة                                             (IF(A1="","",horoof(A1,1))=

 

وكهذة                                                                            (gettext(I5)=

 

وكهذة                                                                   (GetNumbers(I5)=

 

عند محاولتي نقلها وتطبيقها في ملف اخر لم تعمل معي اما اذا نسختها في نفس الملف تجدها تعمل

سااااعدوني ما السر في ذلك .

 

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

دالة لاخذ الارقام من خلية دون الحروف.rar

معادلة فصل الحروف عن الارقام2.rar

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

الأخ غريب يبدو أنك لم تقوم بنسخ الكود الخاص بهذه الدوال إلى ملفك ولهذا يحدث الخطأ ..

قم ببساطة بنسخ الكود الخاصة بالدالة إلى ملفك وسيعمل بشكل جيد

إذا لم يتم حل المشكلة قم رفقا بإرفاق الملف الذي تعمل عليه وسنطلع بإذن الله على موطن الخطأ

[ghreeb197]

تحياتي لك اخوي ياسر خليل

 

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

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

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

 

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

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

الاخ الغالي غريب

ببساطة قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer ثم Visual Basic

ستجد في الجهة اليسرى ناذة بعنوان Project واضغط على كلمة Module ستظهر لك في الناحية اليمنى أكود يكون الشكل العام لها كالتالي

Sub Test()
هنا أسطر برمجية
End Sub

حيث Test هو اسم الإجراء البرمجي المراد تنفيذه

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

 

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

أرجو أن تكون قد استفدت

[ghreeb197]

جااااري التطبيق

مشكور على اجابتك وشرحك باااقي التطبيق

[ghreeb197]