اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

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

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

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

  • أفضل إجابة

في حدث عند تغيير التحديد 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

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

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

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