엑셀 VBA 코드 모든 셀

Question

목표 :
목표 아래 그림에서 결과를 얻을 수있다

문제 :
현재의 상황이

어떻게해야 이하 VBA 코드를 사용하여 목표를 달성하기 위해이 작업을 수행합니다.

Answer 1

하면이 코드

Sub sample() 
Range("B4:E7") = [index(upper(B4:E7),)] 
End Sub 

Answer 2

Dim rng As Range 
Dim cell As Range 

Set rng = Range("C4:F7") 

For Each cell In rng 
    cell.Value = UCase(cell) 
Next cell 

Answer 3

이전 대답 당신이 범위를 포함하기를보십시오. 이것은 모든 세포에 대해 이야기하는 경우에 효과적입니다. 내가 본

sub EverythingToUpperCase() 
    For Each Cell in ActiveSheet.UsedRange.Cells 
     Cell.Value = UCase(Cell.value) 
    Next 
End Sub 

Answer 4

짧은 버전 : 목표

'(맨 아래 엔드)

Target = UCase(Target) 'Ucase or Lcase 

    'Target = StrConv(Target, vbProperCase) '<< PROPER 

와 .. 주님이 1 라이너 :

Selection.Value = UCase(Selection.Value) 'YES << 1 LINER UCASE (tested, worked), add a range