siso3 قام بنشر فبراير 6, 2023 قام بنشر فبراير 6, 2023 السلام عليكم ورحمة الله وبركاته فى البداية: احب ان اقدم شكري وتقديري لجميع اعضاء وافراد المنتدى لما يقدموه من اسهامات ومجهودات في عطاءاتهم الوفيرة والغزيرة وجزاكم الله عنا خير الجزاء. الطلب : مطلوب كود لتغيير اللغة عربي وإنجليزي في اعمده معينة واخيرا تحياتي للجميع مع دعواتي بان يزيدكم الله من علمه والسلام عليكم ورحمة الله وبركاته مثال للتوضيح والتعديل عليهتحديد لغة الباركود.xlsx المطلوب جعل الكتابة فى عمود الباركود ذو اللون الاخضر يتحول تلقائيا الى اللغة الانجليزية ثم فى باقى الاعمدة تلقائيا يتحول المؤشر الى اللغة العربية
أبومروان قام بنشر فبراير 6, 2023 قام بنشر فبراير 6, 2023 لتغيير لغة عربية إلى لغة إنجليزية في عمود معين في Excel: Sub ChangeArabicEnglish() Dim i, j As Integer For i = 1 To 10 For j = 1 To 10 Cells(i, j).Value = StrConv(Cells(i, j).Value, vbProperCase) Next j Next i End Sub هذا الكود سوف يحول أي نص عربي في العمود المحدد للغة إنجليزية. يمكنك أيضًا تحديد عمود أو صف يحتوي على النص الذي تريد تغييره إلى إنجليزي، عن طريق تحديد الخطوة الاخيرة في الأوامر في الكود أعلاه.
أفضل إجابة lionheart قام بنشر فبراير 6, 2023 أفضل إجابة قام بنشر فبراير 6, 2023 In standard module put the following code #If Win64 Then Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long Private Declare PtrSafe Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As LongPtr #Else Private Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long Private Declare Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As Long #End If Public Function GetCurrentKeyboardLayout() As String GetCurrentKeyboardLayout = Hex(GetKeyboardLayout(0)) End Function Public Sub SetEnglish() Call Keyboard("00000409", 1) End Sub Public Sub SetArabic() Call Keyboard("00000401", 1) End Sub Then in worksheet module put the following code Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Then If GetCurrentKeyboardLayout = "00000409" Then Exit Sub Call SetEnglish Else If GetCurrentKeyboardLayout = "00000401" Then Exit Sub Call SetArabic End If End Sub 3 1
siso3 قام بنشر فبراير 7, 2023 الكاتب قام بنشر فبراير 7, 2023 @lionheart #lionheart شكرا جدا الطريقة شغالة تمام ولكن السؤال لو انا عايز اعمل اكتر من عمود يعنى العمود رقم 2 والعمود رقم4 والعمود رقم7 يكونوا باللغة الانجليزية وباقي الشيت عربي لو فيه طريقة اكون شاكر جدا لحضرتك في 6/2/2023 at 16:46, lionheart said: In standard module put the following code #If Win64 Then Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long Private Declare PtrSafe Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As LongPtr #Else Private Declare Function GetKeyboardLayout Lib "user32" (ByVal idThread As Long) As Long Private Declare Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As Long #End If Public Function GetCurrentKeyboardLayout() As String GetCurrentKeyboardLayout = Hex(GetKeyboardLayout(0)) End Function Public Sub SetEnglish() Call Keyboard("00000409", 1) End Sub Public Sub SetArabic() Call Keyboard("00000401", 1) End Sub Then in worksheet module put the following code Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Then If GetCurrentKeyboardLayout = "00000409" Then Exit Sub Call SetEnglish Else If GetCurrentKeyboardLayout = "00000401" Then Exit Sub Call SetArabic End If End Sub
siso3 قام بنشر فبراير 7, 2023 الكاتب قام بنشر فبراير 7, 2023 في 6/2/2023 at 16:11, كريم نظيم said: لتغيير لغة عربية إلى لغة إنجليزية في عمود معين في Excel: Sub ChangeArabicEnglish() Dim i, j As Integer For i = 1 To 10 For j = 1 To 10 Cells(i, j).Value = StrConv(Cells(i, j).Value, vbProperCase) Next j Next i End Sub هذا الكود سوف يحول أي نص عربي في العمود المحدد للغة إنجليزية. يمكنك أيضًا تحديد عمود أو صف يحتوي على النص الذي تريد تغييره إلى إنجليزي، عن طريق تحديد الخطوة الاخيرة في الأوامر في الكود أعلاه. استاذ كريم نظيم شكرا لحضرتك للاهتمام ومحاولة المساعدة ولكن للاسف انا مافهمتش انا ممكن اطبق الطريقة دى ازاى وده طبعا بسبب فهمى القاصر وقلة علمى ولو امكن من حضرتك تطبيقها على المثال المرفق علشان تساعدنى على الفهم واخيرا تحياتى واحترامى لحضرتك وشكرا للمساعدة 1
lionheart قام بنشر فبراير 7, 2023 قام بنشر فبراير 7, 2023 Change this line to suit you If Target.Column = 2 Or Target.Column = 4 Or Target.Column = 6 Then 2 1
siso3 قام بنشر فبراير 13, 2023 الكاتب قام بنشر فبراير 13, 2023 lionheart ياباشا لك منى جزيل الشكر ووافر الاحترام والتقدير واسف جدا تعبت حضرتك معاية واخيرا مقدرش اوفيك حقك الا بدعوى خالصة من القلب جزاك الله خيرا 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.