كود تغيير لغة الكتابة الى اللغه العربيه

[محمدي عبد السميع]

بسم الله الرحمن الرحيم

الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ،

تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ،

الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار،

وشغلهم بمراقبته وإدامة الأفكار ،

وملازمة الاتعاظ والادكار،

ووفقهم للدؤوب في طاعته والتأهب لدار القرار،

والحذر مما يسخطه ويوجب دار البوار،

والمحافظة على ذلك مع تغاير الأحوال والأطوار.

أحمده أبلغ حمد وأزكاه، وأشمله وأنماه.

أما بعد:

رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته

ولذا رأيت أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ،

ولهذا ساقدم

سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له

في موضوع مستقل

وسأشرح كيفية استخدام الكود ماتيسر لي

إن شاء الله

وعلى الله قصد السبيل

******************************************

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

عندما تكتب فيها تكتب باللغة العربيه دائما

حتى ولو كانت لغة الكتابة في لوحة المفاتيح انجليزي

طريقة الاستفادة من الكود

افتح ملف اكسيل

اضغط على الرز ALT وانت ضاغط على الزر

اضغط على F11 الموجود أعلا لوحة المفاتيح

ستظهر شاشة الماكرو

اضغط على This Workbook ستجد

Private Sub Workbook_Open()

hosami "00000401", 1

End Sub

انسخه

والصقة في ملفك الجديد في نفس الموقع This Workbook

ثم

اضغط على موديول 1

سيتم فتح الموديول هذا

Declare Function hosami Lib _

"user32" Alias "LoadKeyboardLayoutA" (ByVal A As String _

, ByVal B As Long) As Long

انسخه وضعه في نفس المكان وهو موديول 1 في ملفك الجديد

احفظ الملف واعد فتحه ولاحظ لغة الكتابه في لوحة المفاتيح

ودمتم في حفظ الله

تغيير لغة الكي بورد الى العربي.rar

تغيير لغة الكي بورد الى العربي بطريقة اخرى.rar

[خالد الشاعر]

ويوجد ايضا هذا الكود من اعمال المنتدي

يغير اللغة حسب الرغبة

تغيير لغة الادخال - مع زر.rar

[an1_77]

طيب يا أخى أنا محتاج نفس الشىء بس يكون فى نطاق معين داخل ورقة العمل و ليس كل الملف ، يعنى مثلا العمود B تكون الكتابه به عربى ، اما العمود F فلا تكون الكتابه به الا بالانجليزية ، يرجى الرد :)

[خالد الشاعر]

استاذ an1_77

ضع هذا الماكرو فى حدث الورقة المراد تغير اللغة بها

هذا الرقم يرمز الى رقم العمود

If Target.Column = 2 Then

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

 

[رعد العزاني]

اخي الكريم جزاك الله الف خير

ولو تكرمت ان تسوي جميع الاكواد بملف واحد اكون لك من الشاكرين

ايميل هو

azzaniam@hotmail.com

وفقكم الله

[قصي]

جزاكم الله خيرا

[السعدووني]

السلام عليكم

شكرا على المجهودات

جزاكم الله خيرا

[kamiliraq]

ممكن  تضيف الكود  الذي يعمل على نظام 64 بت 

[spyhearts]

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

بارك الله فيك @محمدي عبد السميع

ممكن تعديل في الكود ليصبح فقط الكتابة في خلية D5 انجليزي فقط وليس عربي

وشكرا لكم

[أبوأحـمـد]

بعد اذن الأستاذ محمدي عبد السميع حتى لا يتأخر طلب الغالي  spyhearts

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Target.Column = 3 And Target.Row = 5 Then
ChaingeLanguage "English"
Else
ChaingeLanguage "Arabic"
End If
End Sub

 

[spyhearts]

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

بارك الله فيك استاذ أبوأحـمـد