اريد لغة ثابتة لبعض الأعمدة .. مللت من تغيير اللغة بين الأعمدة

[doctor forex]

أرجو المساعدة .. اريد لغة ثابتة لبعض الأعمدة .. مللت من تغيير اللغة بين الأعمدة  .. بمعنى لو انا فى اى خلية فى العامود  الأول أريد اللغة عربى .. أريد عندما أنقل لأى خلية فى العامود الثانى أن تتغير اللغة اوتوماتيكيا اللى اللغة الإنجليزية  .. أرجع للعامود الأول تتغير اللغة أوتوماتيكيا  الى العربية  .. و هكذا 

أرجو الإفادة يا جهابزة الأوفيس  ولكم جزيل الشكر 

[أ / محمد صالح]

في حدث عند تغيير التحديد Worksheet_SelectionChange

ضع كود تغيير اللغة إذا كان رقم العمود الحالي كذا اجعل اللغة كذا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
LoadKeyboardLayout "00000401", 1	'Arabic
Else
LoadKeyboardLayout "00000409", 1	'English
End If
End Sub

مع إضافة كود دالة تغيير لغة لوحة المفاتيح في موديول منفصل

#If Win64 Then
Declare PtrSafe Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
#Else
Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
#End If

خالص دعواتي بالتوفيق

[أحمد يوسف]

doctor forex

أين الضغط على الإعجاب لهذه الإجابة الممتازة على الرغم انك لم تقم برفع ملف وتوضيح المطلوب بكل دقة ؟!!!💙

[أ / محمد صالح]

شكرا لكلماتك الطيبة أستاذ @احمد يوسف