مساهدية نجيب قام بنشر فبراير 3, 2021 مشاركة قام بنشر فبراير 3, 2021 ارجو المساعدة في طريقة تحديد الكتابة في خلية محددة سواء انجيزي او عربي Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''If Sheet2.Range("g7").Select Then حدد الخلية ("g7") ChaingeLanguage "English" Else ChaingeLanguage "Arabic" End If End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة مساهدية نجيب قام بنشر فبراير 5, 2021 الكاتب أفضل إجابة مشاركة قام بنشر فبراير 5, 2021 شكرا وجدت الحل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("g7")) Is Nothing Then Call langue_FR Else Call langue_arab End If End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها