doctor forex قام بنشر يونيو 24, 2020 مشاركة قام بنشر يونيو 24, 2020 أرجو المساعدة .. اريد لغة ثابتة لبعض الأعمدة .. مللت من تغيير اللغة بين الأعمدة .. بمعنى لو انا فى اى خلية فى العامود الأول أريد اللغة عربى .. أريد عندما أنقل لأى خلية فى العامود الثانى أن تتغير اللغة اوتوماتيكيا اللى اللغة الإنجليزية .. أرجع للعامود الأول تتغير اللغة أوتوماتيكيا الى العربية .. و هكذا أرجو الإفادة يا جهابزة الأوفيس ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يونيو 25, 2020 أفضل إجابة مشاركة قام بنشر يونيو 25, 2020 في حدث عند تغيير التحديد Worksheet_SelectionChange ضع كود تغيير اللغة إذا كان رقم العمود الحالي كذا اجعل اللغة كذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then LoadKeyboardLayout "00000401", 1 'Arabic Else LoadKeyboardLayout "00000409", 1 'English End If End Sub مع إضافة كود دالة تغيير لغة لوحة المفاتيح في موديول منفصل #If Win64 Then Declare PtrSafe Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else 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 #End If خالص دعواتي بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يونيو 25, 2020 مشاركة قام بنشر يونيو 25, 2020 doctor forex أين الضغط على الإعجاب لهذه الإجابة الممتازة على الرغم انك لم تقم برفع ملف وتوضيح المطلوب بكل دقة ؟!!!💙 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 26, 2020 مشاركة قام بنشر يونيو 26, 2020 شكرا لكلماتك الطيبة أستاذ @احمد يوسف رابط هذا التعليق شارك 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.