خطأ في الكود

[جابر القاسمي]

قمت بوضع الكود التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

g = "=type(a1)"
Cells(1, 2) = g
If g = 2 Then Cells(1, 1).Interior.ColorIndex = 24 Else Cells(1, 1).Interior.ColorIndex = 0
End Sub
قيمة (g) هي إما (1) أو (2) تكون (g) اذا كانت الخلية (a1) رقما و تكون (2) اذا كنت الخلية (a1) حرفا عندما اشترط عليه ان يغير لون الخلية اذا كانت قيمة (g) تساوي (1) فانه لا يستجيب بمعنى أن أن قيمة (g) لا تساوي (1) وعندما استعلم الدالة عن قيمة (g) تعطيني القيمة (1). يا ترى ما الخطأ

أما اذا اعطيت قيمة () لخلية اخرى واشترط قيمة الخلية الجديدة يقوم بتلوين الخلية.

 

number or text.zip

تم تعديل يناير 2, 2017 بواسطه جابر القاسمي

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

استخدم هذا الجزء

If Cells(1, 2) = 2