Xác định ô hay một cột viết hoa

[baohoangvuong94]

Em mới tập tành về VBA. Em muốn xác định 1 ô hay một cột viết hoa toàn bộ bằng range. Nhưng không biết viết code như thế nào, bác nào có thể giúp em với ạ. Em có tìm qua bloghocexel thì phải chọn trước 1 cell xong chạy thì rất mất thời gian. Mình xác định một khoảng thì nhanh hơn.

 

[CHAOQUAY]

Em mới tập tành về VBA. Em muốn xác định 1 ô hay một cột viết hoa toàn bộ bằng range. Nhưng không biết viết code như thế nào, bác nào có thể giúp em với ạ. Em có tìm qua bloghocexel thì phải chọn trước 1 cell xong chạy thì rất mất thời gian. Mình xác định một khoảng thì nhanh hơn.

Kết quả mong muốn theo file đính kèm là thế nào

 

[baohoangvuong94]

Kết quả mong muốn theo file đính kèm là thế nào

Mình muốn cả cột có tên đó tự động chuyển sang viết hoa khôngđược hiện kết quả bên cạnh. Thường thì
Ví dụ Nguyễn Thị Hằng => NGUYỄN THỊ HẰNG.
Mong anh chỉ dạy

 

[CHAOQUAY]

Em mới tập tành về VBA. Em muốn xác định 1 ô hay một cột viết hoa toàn bộ bằng range. Nhưng không biết viết code như thế nào, bác nào có thể giúp em với ạ. Em có tìm qua bloghocexel thì phải chọn trước 1 cell xong chạy thì rất mất thời gian. Mình xác định một khoảng thì nhanh hơn.

Thử code dưới đây.
Kết quả điền xuống sheet có thể điều chỉnh lại sau

Option Explicit

Sub test()
Dim Nguon, slD, slC
Dim i
Dim Kq

Nguon = Sheet1.Range("C5:C15")
slD = UBound(Nguon)
slC = UBound(Nguon, 2)
ReDim Kq(1 To slD, 1 To 1)
For i = 1 To slD
    Kq(i, 1) = UCase(Nguon(i, 1))
Next i

Sheet1.Range("E5").Resize(slD, slC).Clear
Sheet1.Range("E5").Resize(slD, slC) = Kq
End Sub

 

[baohoangvuong94]

Thử code dưới đây.
Kết quả điền xuống sheet có thể điều chỉnh lại sau

Option Explicit

Sub test()
Dim Nguon, slD, slC
Dim i
Dim Kq

Nguon = Sheet1.Range("C5:C15")
slD = UBound(Nguon)
slC = UBound(Nguon, 2)
ReDim Kq(1 To slD, 1 To 1)
For i = 1 To slD
    Kq(i, 1) = UCase(Nguon(i, 1))
Next i

Sheet1.Range("E5").Resize(slD, slC).Clear
Sheet1.Range("E5").Resize(slD, slC) = Kq
End Sub

cám ơn nhiều nhé. mình làm được rồi