اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search
doctor forex

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

Recommended Posts

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

شارك هذه المشاركه


رابط المشاركه
شارك

doctor forex

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

شارك هذه المشاركه


رابط المشاركه
شارك

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 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...