محمدي عبد السميع قام بنشر أبريل 30, 2012 مشاركة قام بنشر أبريل 30, 2012 بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** الكود الاول هذا كود يجعل صفحة الاكسيل عندما تكتب فيها تكتب باللغة العربيه دائما حتى ولو كانت لغة الكتابة في لوحة المفاتيح انجليزي طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز 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 5 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر مايو 1, 2012 مشاركة قام بنشر مايو 1, 2012 ويوجد ايضا هذا الكود من اعمال المنتدي يغير اللغة حسب الرغبة تغيير لغة الادخال - مع زر.rar رابط هذا التعليق شارك More sharing options...
an1_77 قام بنشر أكتوبر 10, 2012 مشاركة قام بنشر أكتوبر 10, 2012 طيب يا أخى أنا محتاج نفس الشىء بس يكون فى نطاق معين داخل ورقة العمل و ليس كل الملف ، يعنى مثلا العمود B تكون الكتابه به عربى ، اما العمود F فلا تكون الكتابه به الا بالانجليزية ، يرجى الرد :) رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر أكتوبر 10, 2012 مشاركة قام بنشر أكتوبر 10, 2012 استاذ 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 رابط هذا التعليق شارك More sharing options...
رعد العزاني قام بنشر أكتوبر 10, 2012 مشاركة قام بنشر أكتوبر 10, 2012 اخي الكريم جزاك الله الف خير ولو تكرمت ان تسوي جميع الاكواد بملف واحد اكون لك من الشاكرين ايميل هو azzaniam@hotmail.com وفقكم الله رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أبريل 3, 2013 مشاركة قام بنشر أبريل 3, 2013 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
السعدووني قام بنشر أكتوبر 27, 2013 مشاركة قام بنشر أكتوبر 27, 2013 السلام عليكم شكرا على المجهودات جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
kamiliraq قام بنشر أبريل 1, 2015 مشاركة قام بنشر أبريل 1, 2015 ممكن تضيف الكود الذي يعمل على نظام 64 بت رابط هذا التعليق شارك More sharing options...
spyhearts قام بنشر أغسطس 14, 2023 مشاركة قام بنشر أغسطس 14, 2023 السلام عليكم ورحمه الله وبركاته بارك الله فيك @محمدي عبد السميع ممكن تعديل في الكود ليصبح فقط الكتابة في خلية D5 انجليزي فقط وليس عربي وشكرا لكم رابط هذا التعليق شارك More sharing options...
أبوأحـمـد قام بنشر أغسطس 14, 2023 مشاركة قام بنشر أغسطس 14, 2023 بعد اذن الأستاذ محمدي عبد السميع حتى لا يتأخر طلب الغالي 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 2 رابط هذا التعليق شارك More sharing options...
spyhearts قام بنشر أغسطس 16, 2023 مشاركة قام بنشر أغسطس 16, 2023 السلام عليكم ورحمه الله وبركاته بارك الله فيك استاذ أبوأحـمـد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.