بسم الله الرحمن الرحيم
الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ،
تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ،
الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار،
وشغلهم بمراقبته وإدامة الأفكار ،
وملازمة الاتعاظ والادكار،
ووفقهم للدؤوب في طاعته والتأهب لدار القرار،
والحذر مما يسخطه ويوجب دار البوار،
والمحافظة على ذلك مع تغاير الأحوال والأطوار.
أحمده أبلغ حمد وأزكاه، وأشمله وأنماه.
أما بعد:
رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته
ولذا رأيت أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ،
ولهذا ساقدم
سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له
في موضوع مستقل
وسأشرح كيفية استخدام الكود ماتيسر لي
إن شاء الله
وعلى الله قصد السبيل
******************************************
الكود الاول هذا كود يجعل صفحة الاكسيل
عندما تكتب فيها تكتب باللغة العربيه دائما
حتى ولو كانت لغة الكتابة في لوحة المفاتيح انجليزي
طريقة الاستفادة من الكود
افتح ملف اكسيل
اضغط على الرز 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