با حروف بزرگ فقط نام خانوادگی

Question

شریل از یک کاربرگ استفاده می کند که در ستون A، نام های مشتری با قالب «اسمیت، جین» دارد. او می خواهد فقط نام خانوادگی را با حروف بزرگ بنویسد، مانند "SMITH, Jane" و بقیه نام را بدون تغییر باقی بگذارد.

اگر یک و تنها یک کاما وجود دارد که نام خانوادگی را از نام کوچک جدا می کند، می توانید فرمولی برای انجام تبدیل ایجاد کنید. با فرض اینکه نام در A1 باشد، فرمول به صورت زیر خواهد بود:

=UPPER(LEFT(A1,FIND(",",A1)-1))&MID(A1,FIND(",",A1),LEN(A1))

اگر ترجیح می دهید از فرمول استفاده نکنید (که ممکن است ظاهر کاربرگ شما را خراب کند)، می توانید از یک ماکرو نیز برای تبدیل نام ها در محل استفاده کنید. موارد زیر را در نظر بگیرید:

Sub CapitalizeSurnames()
    Dim rCell As Range
    Dim iComma As Integer
    For Each rCell In Selection
        iComma = InStr(rCell, ",")
        If iComma > 0 Then
            rCell = UCase(Left(rCell, iComma - 1)) & _
              Mid(rCell, iComma)
        End If
    Next
    Set rCell = Nothing
End Sub

به سادگی سلول هایی را که می خواهید تبدیل کنید (مانند آنهایی که در ستون A هستند) انتخاب کنید و سپس ماکرو را اجرا کنید. تبدیل به نام در سلول ها را انجام می دهد.