اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

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

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

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

رابط هذا التعليق
شارك

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

 

استاذ khmb

 

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

 

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

 

 

 

 

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

 

 

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

 

رقم فقط1.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 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
رابط هذا التعليق
شارك

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

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

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

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

 

اخيك /

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

رابط هذا التعليق
شارك

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

 

 

 

 

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

 

 

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

 

attachicon.gifرقم فقط1.rar

 

 

 

 

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

تم تعديل بواسطه محمد الخازمي
رابط هذا التعليق
شارك

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

 

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

تم تعديل بواسطه محمد الخازمي
رابط هذا التعليق
شارك

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

 

 

 

 

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

 

 

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

 

attachicon.gifرقم فقط1.rar

 

 

 

للرفع

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information