Định dạng chữ in hoa đầu từ

[thanhdo89]

Các anh chị cho e xin đoạn code vba được ko ạ. E có 1 file chứa nhìu sheet. E muon định dạng chữ in hoa đầu từ cho tất cả các sheet ( ở 2 cột bắt đầu từ D13:E500-Mỗi file có số dòng cuối cùng khác nhau) chỉ 1 lần chạy vba. Anh chị nào làm giúp cho e xin đc ko ạ. E cám ơn ạ

 

[snow25]

Các anh chị cho e xin đoạn code vba được ko ạ. E có 1 file chứa nhìu sheet. E muon định dạng chữ in hoa đầu từ cho tất cả các sheet ( ở 2 cột bắt đầu từ D13:E500-Mỗi file có số dòng cuối cùng khác nhau) chỉ 1 lần chạy vba. Anh chị nào làm giúp cho e xin đc ko ạ. E cám ơn ạ

Bạn nhận gợi ý hay là code.Nếu muốn code thì gửi file lên nhé.

 

[thanhdo89]

Bạn nhận gợi ý hay là code.Nếu muốn code thì gửi file lên nhé.

Dạ file của em đây ạ, chị xem giúp em với ạ, em cám ơn ạ

 

[snow25]

Dạ file của em đây ạ, chị xem giúp em với ạ, em cám ơn ạ

Bạn chạy code xem có đúng ý không nhé.

Sub inhoa()
Dim arr
Dim sh As Worksheet
Dim i As Long, j As Long
For Each sh In ThisWorkbook.Worksheets
    arr = sh.Range("D12:e500").Value
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            arr(i, j) = Application.Proper(arr(i, j))
        Next j
    Next i
    sh.Range("D12:d500").Value = arr
Next
End Sub

 

[thanhdo89]

Bạn chạy code xem có đúng ý không nhé.

Sub inhoa()
Dim arr
Dim sh As Worksheet
Dim i As Long, j As Long
For Each sh In ThisWorkbook.Worksheets
    arr = sh.Range("D12:e500").Value
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            arr(i, j) = Application.Proper(arr(i, j))
        Next j
    Next i
    sh.Range("D12:d500").Value = arr
Next
End Sub

Dạ em bấm nhưng nó không chạy chị ạ, chị xem lại giúp em với ạ, em cám ơn chị ạ

 

[snow25]

Dạ em bấm nhưng nó không chạy chị ạ, chị xem lại giúp em với ạ, em cám ơn chị ạ

Đây bạn xem nhé.Mà mình là nam bạn nhé.

 

[HeSanbi]

Đây bạn xem nhé.Mà mình là nam bạn nhé.

Kêu "chị" có vẻ đúng - bạn đấy có vẻ sáng ý

 

[thanhdo89]

Đây bạn xem nhé.Mà mình là nam bạn nhé.

em cám ơn anh ạ.