Nhờ các anh dạy cách thế chỗ chữ trong excel

[dailykem]

Nhờ các anh dạy cách thế chỗ chữ trong excel
e có bảng báo cáo của phần mềm nước ngoài, mỗi khi xuất file báo cáo thì nó viết những nội dung như: tên sản phẩm, hãng sản xuất ....bằng tiếng anh
nhưng e muốn nó việt hóa 1 chút cho những người ko biết tiếng anh dễ hiểu
vì vậy e thay các nội dung: sản phẩm, hãng sx bằng tiếng việt
diễn tả nó khó đúng ý ạ, mời các anh xem file đính kèm dễ hiểu hơn ạ
Chân thành cảm ơn các bác!!

 

[bebo021999]

tại vùng chứa dữ liệu (cột C và H) bên sheet tiếng Việt bạn tạo link qua bên cột C và H của sheet tiếng Anh là được thôi. ví dụ ô [C8]=AssetDetails!C7; Mỗ khi xuất file báo cáo mới, bạn dán đè lên sheet AssetDetails là xong.

 

[dailykem]

dạ khi xuất file báo cáo từ phần mềm ra nó chỉ xuất ra sheet "AssetDetails" thôi ạ, ko có sheet "nội dung cần thay"
em làm thêm sheet này để cho mọi người hình dung ý e cho dễ thôi ạ

tại vùng chứa dữ liệu (cột C và H) bên sheet tiếng Việt bạn tạo link qua bên cột C và H của sheet tiếng Anh là được thôi. ví dụ ô [C8]=AssetDetails!C7; Mỗ khi xuất file báo cáo mới, bạn dán đè lên sheet AssetDetails là xong.

e đã làm thử cách trên này rồi
làm như vậy nó thủ công quá
dữ liệu ít thì được
chứ dữ liệu nhiều thì mất nhiều thời gian đặt công thức cho từng ô tiếng anh ạ
nhờ các anh xem giúp tiếp ạ

 

[dailykem]

có ai chỉ giúp e cách làm với ạ

 

[TrungChinhs]

dạ khi xuất file báo cáo từ phần mềm ra nó chỉ xuất ra sheet "AssetDetails" thôi ạ, ko có sheet "nội dung cần thay"
em làm thêm sheet này để cho mọi người hình dung ý e cho dễ thôi ạ

e đã làm thử cách trên này rồi
làm như vậy nó thủ công quá
dữ liệu ít thì được
chứ dữ liệu nhiều thì mất nhiều thời gian đặt công thức cho từng ô tiếng anh ạ
nhờ các anh xem giúp tiếp ạ

Bạn phải tạo một Sheets mới Ví dụ "Vietnammese" trong đó một cột ghi tiếng Anh, một cột ghi tiếng Việt vào các dòng tương ứng (nếu thích thì giấu Sheets này đi - trong file đính kèm tôi đã giấu nó) rồi chép code này vào Module để chạy.

Sub Vietnammese()
    On Error Resume Next
    Application.ScreenUpdating = 0
    For Each cls In Sheets("Vietnammese").Range("B3:B" & [b65000].End(3).Row)
        Cells.Replace cls, cls(1, 2), 1
    Next
End Sub

 

[dailykem]

Vẫn đề bài như trên, nhờ anh TrungChinhs giúp e tiếp
e áp dụng marco trên nhưng ko làm theo dạng này được
mong các anh giải giúp
e cám ơn nhiều
cũng dạng bài như vậy

 

[TrungChinhs]

Vẫn đề bài như trên, nhờ anh TrungChinhs giúp e tiếp
e áp dụng marco trên nhưng ko làm theo dạng này được
mong các anh giải giúp
e cám ơn nhiều
cũng dạng bài như vậy

1. Xóa hết dấu : (2 chấm) bên Sheets Vietnammese
2. Sửa lại code như sau (bổ sung thêm chữ màu đỏ)

Sub Vietnammese()
    On Error Resume Next
    Application.ScreenUpdating = 0
    For Each cls In Sheets("Vietnammese").Range("B3:B" & [COLOR=#ff0000]Sheets("Vietnammese")[/COLOR].[b65000].End(3).Row)
        Cells.Replace cls, cls(1, 2), 1
    Next
End Sub