siso3

lionheart   

 ياباشا لك منى جزيل الشكر ووافر الاحترام والتقدير

واسف جدا تعبت حضرتك معاية

واخيرا مقدرش اوفيك حقك الا بدعوى خالصة من القلب

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

في 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

 

هذا الكود سوف يحول أي نص عربي في العمود المحدد للغة إنجليزية. يمكنك أيضًا تحديد عمود أو صف يحتوي على النص الذي تريد تغييره إلى إنجليزي، عن طريق تحديد الخطوة الاخيرة في الأوامر في الكود أعلاه.

استاذ كريم نظيم

شكرا لحضرتك للاهتمام ومحاولة المساعدة

ولكن للاسف انا مافهمتش انا ممكن اطبق الطريقة دى ازاى

وده طبعا بسبب فهمى القاصر وقلة علمى

ولو امكن من حضرتك تطبيقها على المثال المرفق علشان تساعدنى على الفهم

واخيرا تحياتى واحترامى لحضرتك وشكرا للمساعدة

@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

 

استاذى الفاضل محي الدين ابو البشر

اكرر شكرى لحضرتك لانى طوال هذه الفترة وانا اعمل بما قدمته يداك

ولى طلب اخير من حضرتك هلى يمكن ان لا اجعل الباسوورد ظاهر يكون على شكل نجوم اثناء كتابته

حتى لايظهر للاخرين اثناء مراقبتى وانا اعدل على الملف

واخيرا لك من خالص التحية وجزيل الشكر

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

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

فى البداية: احب ان اقدم شكري وتقديري لجميع اعضاء وافراد المنتدى لما يقدموه من اسهامات ومجهودات في عطاءاتهم الوفيرة والغزيرة وجزاكم الله عنا خير الجزاء.

الطلب : مطلوب كود لتغيير اللغة عربي وإنجليزي في اعمده معينة

واخيرا تحياتي للجميع مع دعواتي بان يزيدكم الله من علمه

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

                                          مثال للتوضيح والتعديل عليهتحديد لغة الباركود.xlsx

المطلوب جعل الكتابة فى عمود الباركود ذو اللون الاخضر يتحول تلقائيا الى اللغة الانجليزية

ثم  فى باقى الاعمدة تلقائيا يتحول المؤشر الى اللغة العربية

استاذى الفاضل محي الدين ابو البشر

شكرا جزيلا لحضرتك 

الكود يعمل بكفائة "ممتاز"

اسف جدا لتعبك معاية 

واسف للتاخير فى الرد

وفى الاخير تحياتى واحترامى لحضرتك وللجميع

اخى الفاضل

كما تعودت منكم دائما علم واسع وعطاء بلا قيود

""زادكم الله من علمه ونفعكم بما تعلمتم ونفعنا بما تعلمنا منكم وجزاكم الله عنا خير الجزاء""

مشكور كتير على الكود يعمل بشكل ممتاز

ولكن المشكلة انه بيقفل كل الشيت ويفتحها بدون مايطلب منى ادخل الباسوورد

طبعا لانى وضعت الباسوورد فى الكود فهل يوجد طريقة انى اجعله يقفل الشيت وعند الفتح يطلب من الباسوورد ويشتغل بنفس الطريقة زى ماهو

لو فيه طريقة يبقى اكثر من ممتاز

ولو مافيش يبقى برضه مافيش مشكلة ولك منى جزيل الشكر 

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

فى البداية: احب ان اقدم شكرى وتحياتى  لجميع اعضاء وافراد المنتدى لما يقدموه من اسهامات ومجهودات فى عطائاتهم الوفيره والغزيره وجزاكم الله عنا خير الجزاء.

ثانيا: انا موظف حكومى بشتغل ببرامج الاكسيل بنظام اليوميات يعنى ملف الاكسيل الواحد بيكون 31شيت ب31يوم فى الشهر

غير صفحة الدخول والبيانات وغيره ولازم الملف يكون محمى ومغلق جيد جدا لانى بعطيه لكل الزملاء فى جميع المكاتب علشان يشتغلوا عليه وممكن يتلفوه عن غير عمد لعدم خبرتهم

المشكلة: انى عندما اريد اجراء اى تعديلات على الملف اضطر الى فتح الحماية عن جميع الصفحات واجراء التعديل واعادة اغلاقها مرة اخرى وهى عملية مملة وتاخذ الكثير من الوقت

الطلب : والمطلوب لو فيه كود لغلق و فتح جميع الشيتات فى الملف مرة واحدة بباسورد اكون شاكر جدا

واخيرا تحياتى للجميع مع دعواتى بان يزيدكم الله من علمه

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