Change Case VBA for Microsoft Excel

Huruf Besar

Sub Uppercase() For Each Cell In Selection If Not Cell.HasFormula Then Cell.Value = UCase(Cell.Value) End If Next Cell End Sub

Huruf Kecil

Sub Lowercase() For Each Cell In Selection If Not Cell.HasFormula Then Cell.Value = LCase(Cell.Value) End If Next Cell End Sub

Sentence Case

Sub Propercase() For Each Cell In Selection If Not Cell.HasFormula Then Cell.Value = _ Application _ .WorksheetFunction _ .Proper(Cell.Value) End If Next Cell 

End Sub