الفرق بين العدد و الحرف

[الســـــــاهر]

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

 

الاخوة الكرام اسرة منتدى اوفيسنا 

 

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

 

 

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

Book2.rar

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub CommandButton1_Click()

For Each cl In Range("Officena")
If cl.Address = ActiveCell.Address And Not IsNumeric(cl) Then CommandButton1.Caption = cl.Value
Next

End Sub

[الســـــــاهر]

الله يجزاك خير استاذنا الكريم ابو  حنين

 

تمام هذا هو المطلوب

 

 

الله يبارك لك في علمك  و يضاعف لك الاجر