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

[Yasser Fathi Albanna]

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

أحبائى وأساتذتى ومعلمينى وأعضاء هذا الصرح العلمى العظيم

أقدم لكم اليوم موضوع

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

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

الكود الأول يوضع بــ  Modules :

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

 

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

[Yasser Fathi Albanna]

الظاهر إن الموضوع لم يرى إعجاب من أحد

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي ياسر فتحي

موضوع متميز كسائر موضوعاتك بالتأكيد ..

ربما لأن الموضوع مكرر ..!!

دائماً ما ينال الجديد الإعجاب .. .. لا تزعل مقصدش أزعلك .. لو زعلت قولي عشان أصالحك

تقبل تحياتي

[Yasser Fathi Albanna]

حبيبى الغالى على قلبى أستاذى ومعلمى القدير / ياسر خليل

ألف ألف شكر على كلماتك الرائعة وتشجيعك الدائم لى

وأعزرنى أخى الحبيب لا أدرى أن الموضوع مكرر من قبل

فأنا أحاول جاهدا البحث عن كل ماهو مفيد وجديد لهذا المنتدى العظيم الذى أكن له كل إحترام وتقدير وأقر له بالجميل

فأنا تعلمت منه الكثير والكثير  وما زلت أتعلم من أساتذة هذا الصرح العلمى الهائل

وبعدين أنا مقدرش أزعل من أخويا

ربنا يديم المعزة والأخوة بيننا

تقبل خالص تحياتى وتقديرى

[هاشم بركات]

بارك الله فيك استاذ ياسر

فعلا نحن في امس الحاجة لهذا الكود

 

 

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير " ياسر فتحي البنّا " على الكود المميّز و الرّائع روعة أعمالك و إطلالاتك

صدّقني أخي الكريم أوّل مرّة أشاهد هذا الموضوع .. صحيح مرّ عليّ موضوع مشابه لكنّي لم أرَ إطلاقًا موضوعك هذا إلاّ بهذه اللّحظات

فائق إحتراماتي و إعجاباتي

[Yasser Fathi Albanna]

حبيبى الغالى أ / عبد العزيز

الذى يسعدنى ويشرفنى ويشجعنى دائما بمرورة الدائم لموضوعاتى المتواضعة

أشكرك على كلامك الرائع ودعائك الطيب

تقبل خالص تحياتى وتقديرى لشخصكم الكريم