Image كود لجعل اللغة العربية في العامود الأول واللغة الإنجليزية في العامود الثاني

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

كثيراً ما نحتاج في أعمالنا التنقل ما بين اللغتين العربية و الإنجليزية
فنجد أنفسنا بحاجة لإستخدم مفاتيح الإختصار
Ctrl+Shift
من جهة اليمين للتحويل للغة العربية
Ctrl+Shift
من جهة الشمال للتحويل للغة الإنجليزية

و لكن في الإكسيل يمكننا إعتماد الكود التالي للقيام بالعملية أعلاه :

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
Sub ChaingeLanguage(KBLang As String)
Dim pwszKLID As String
Select Case KBLang
Case "Arabic"
pwszKLID = "00000401"
Case "English"
pwszKLID = "00000409"
End Select
LoadKeyboardLayout pwszKLID, 1
End Sub

و في حدث فتح الصفحة ضع الكود التالي:

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

و لتحميل الملف من خلال الرابط التالي:
http://excel4us.com/vb/showthread.php?t=2208




مع العلم أن هذا الكود من إبداعات الأخ أبو تامر
مع تمنياتي لكم بالمتعة و الفائدة