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

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

كود PHP:

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

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

كود PHP:

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

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

مع تمنياتي لكم بالمتعة و الفائدة

اترك تعليقك

الاسم
:
 

البريد الإلكتروني
:
 


رقم الهاتف
:
 
 


التعليق
:
 

التعليقات