مساعدة ..اريد خلية لا تقبل الا لغة واحدة

[يونس م]

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

 

من فضلكم هل توجد في الاكسل هاته الخاصية

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

 

وشكرا

[ابو القبطان]

اليك اخينا يونس احدى مقتنياتي وهي لأحد عباقرة المنتدى 

وكما هو واضح من المرفق اعمده معينه لا تقبل الا لغة محدده عربيه او انجليزيه

يمكن تغيير اللغة لأي عمود من خلال الكود 

تغيير لغة الادخال الياً test.rar

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

السلام عليكم

 

حميل جداً

[Mr. Peter]

اريد معرفة كيف تغيير العامود من محرر الأكواد

[ابو القبطان]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 3 Or Target.Column = 5 Then
    ChaingeLanguage "Arabic"
Else
    ChaingeLanguage "English"
End If
End Sub

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

الكود في حدث الورقه 

يمكنك التغيير كما تشاء 

[Mr. Peter]

شكرا على الموضوع المميز