للتحويل من الحروف الصغيره للكبيرة

[SPHINX]

to change from lower or proper case to upper case

هذا الكود لكامل ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''''''''''''''''''''
'Forces all text to UPPER case
''''''''''''''''''''''''''''''''''''''''''''
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

    On Error Resume Next
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
    On Error GoTo 0
    
End Sub


وفي حاله الرغبة بتحديد خلايا معينة يستخدم الكود الاتي

Private Sub Worksheet_Change(ByVal Target As Range)

''''''''''''''''''''''''''''''''''''''''''''

'Forces text to UPPER case for the range A1:B20

''''''''''''''''''''''''''''''''''''''''''''

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

On Error Resume Next

If Not Intersect(Target, Range("A1:B20")) Is Nothing Then

Application.EnableEvents = False

Target = UCase(Target)

Application.EnableEvents = True

End If

On Error GoTo 0

End Sub

[seif eldin]

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

كنت أعرف الموضوع في الورد

وهذه أول مرة أعرف أنه يمكن في الأكسيل

شكرا لك