كيف جعل الخلية تقبل ارقام فقط عن طريق كود

[محمد الورفلي1]

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

 

اريد كود لجعل الخلية تقبل  رقم فقط عن طريق كود

 

 

 

رقم فقط.rar

[KHMB]

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

تفضل اخي مرع نص في الفورم لايقبل سوى ارقام فقط

 

يقبل ارقام فقط.rar

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

بارك الله فيك أبا الحسن والحسين

 

لإثراء الموضوع ..إليك أخي الفاضل محمد الخازمي رابط الإصدار الأخير من مكتبة الصرح

http://www.officena.net/ib/index.php?showtopic=57935&page=10#entry373606

في صندوق البحث اكتب كلمة [التحكم] ثم اضغط بحث لتجد مجموعة أكواد تخص طلبك وزيادة

تقبلوا تحياتي

[محمد الورفلي1]

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

 

استاذ khmb

 

استاذ الفاضل ياسر

 

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

 

بارك الله لكم ملاحظة مكتبة الموقع  جميلة جداً جداً وعلي فكر لم اجد هذا الكود الذي طلبة وارجوا ان تكون هذه الفكر موجودة حتي نضعها في مكتبة الموقع

[KHMB]

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

اخي الفاضل محمد الخازمي

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

ارجوا المعذره لازم فيه غير مستحيل وممكن يكون بسيط  كرر الرفع في هذا الطلب بين الحين والآخر حتى يأتي احد الاساتذه .

[محمد الورفلي1]

استاذ khmb

احسنت احسن الله اليك في هذا الكلام الطيب

[محمد الورفلي1]

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

[الصـقر]

اخى الكريم

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

تقبل تحياتى

رقم فقط.zip

[عبد الله بولنوار]

جرب

بماكرو مسجل

 

 

 

رقم فقط.rar

[محمد الورفلي1]

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

 

 

 

 

لقد اقتربنا من الحل العملية نجحت عند ادراج حرف في الشيت يتم الماكرو برفضة  ولكن الان عند الادخال من  الفورم يتم تثبيت الحرف

 

 

الشرح بالمرفق

 

رقم فقط1.rar

[KHMB]

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

شكرا اخي حسام واخي ابو الانوار

لكن معقول مافية كود بالفيجول بيسك طرق كثيرة

شوفوا لنا مثلا الخلية لاتقبل إلا ارقام فقط او حروف فقط او عربي فقط او انجليزي فقط

عندي كود فقط يحول مؤشر الكتابة الي عربي او انجليزي علي كافة الشيت.

حاولوا ابحثوا جزاكم الله خير

[محمد الورفلي1]

استاذ KHMB

 

الاستاذ ابو النوار اعتقد انه اقترب بالماكرو الموجود بالمرفق يريد بعض التعديل ......  التعديل هو ان الخلية تكون نشطة لاي تغير يحدث لها ان كان الادخال مباشر او عن طريق فورم ان كان الادخال رقم فتبقيٍِ علية وان كان غير ذالك  نص او ما شابه ذالك علامة مثلاً + او - او علامة = اوعلامة $

( يتم حذفها .................        والله الموفق

[الصـقر]

 استاذى الحبيب  KHMB  ما فى شئ يغلى عليك

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

استاذى الفاضل /  محمد الخازمى

 

 

جربق المرفق بالاكواد هل هو المطلوب يتم العمل على المنطقه المظلله باللون الاصفر

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("c36:g37")) Is Nothing Then
        If Not IsNumeric(Target.Value) Then: MsgBox " الرجاء ادخال ارقام فقط ", vbCritical, "تنبية": Target.Value = "": Exit Sub

    End If
End Sub

يمكن من خلال هذا السطر تعديل النطاق المراد العمل علية هو حاليا c36:g37

 If Not Intersect(Target, Range("c36:g37")) Is Nothing Then 

تقبلوا تحياتى

رقم فقط.zip

[KHMB]

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

اخي محمد الخازمي شكرا جزيلا علي الإضاح وجزاك الله خير

 

اخيك /

ابو الحسن والحسين

تم تعديل مارس 29, 2015 بواسطه KHMB

[KHMB]

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

اخي الفاضل والغالي حسام عيسى

تمت التجربة 100% وهذا ماكنت اريده ولي به اغراض اخرى

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

 

اخيك /

ابو الحسن والحسين

[محمد الورفلي1]

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

 

 

 

 

لقد اقتربنا من الحل العملية نجحت عند ادراج حرف في الشيت يتم الماكرو برفضة  ولكن الان عند الادخال من  الفورم يتم تثبيت الحرف

 

 

الشرح بالمرفق

 

رقم فقط1.rar

 

 

 

 

ارجو التعديل علي هذا المرفق التي بالمشاركة رقم ( 0 1) نظراً لوجود الفورم بهذا المرفق واصبح الكود قريب للحل وكذالك بارك الله فيكم ياريت كود يكون متماشي مع اوفيس  2003

تم تعديل مارس 29, 2015 بواسطه محمد الخازمي

[محمد الورفلي1]

انا متأمل خيراً ان شاء الله ان شاء الله  يكون هناك حل لدي الاساتذة

 

ملاحظه ::::: لعدم التشتيت المشاركة رقم 10 هي التي يتم العمل عليها

تم تعديل مارس 30, 2015 بواسطه محمد الخازمي

[محمد الورفلي1]

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

 

 

 

 

لقد اقتربنا من الحل العملية نجحت عند ادراج حرف في الشيت يتم الماكرو برفضة  ولكن الان عند الادخال من  الفورم يتم تثبيت الحرف

 

 

الشرح بالمرفق

 

رقم فقط1.rar

 

 

 

للرفع