Đổi tên Sheet tiếng việt có dấu

[888x888x888]

File excel của mình từ phầm mềm xuất ra có tên các sheet là Tiếng việt có dấu ví dụ như "Tổng hợp", "Khối lượng"
Mình dùng hàm Sheets("Oldname").Name = "Newname" để đổi tên các sheets cho dễ chạy VBA nhưng không biết viết tên sheet có dấu kiểu gì
(mình định dùng Sheets Code name nhưng vì copy từ file khác sang nên số Code name mỗi lần 1 khác chứ không cố định ạ)
Mọi ng giúp mình với ạ

 

[truongvu317]

Bạn thay cái tên đó bằng "T" & VBA.ChrW(7893) & "ng h" & VBA.ChrW(7907) & "p"

 

[ptm0412]

Dùng Sheets(1).Name = "NewName"
Nếu đúng thứ tự thì lặp
Sheets(i).Name = NewName(i)
Phần mềm nào mà xuất dữ liệu ẹ vậy?

 

[888x888x888]

Dùng Sheets(1).Name = "NewName"
Nếu đúng thứ tự thì lặp
Sheets(i).Name = NewName(i)
Phần mềm nào mà xuất dữ liệu ẹ vậy?

Phần mềm dự toán ấy bạn, xuất ra toàn có dấu hết mà
Cách của bạn ko được vì mình đá nói rồi, dùng Code Name ko được vì mình copy sang nên Code name mỗi lần nó 1 khác

Bài đã được tự động gộp: 26/4/23

Bạn thay cái tên đó bằng "T" & VBA.ChrW(7893) & "ng h" & VBA.ChrW(7907) & "p"

Chuẩn rồi bác ơi.

 

[ptm0412]

Phần mềm dự toán ấy bạn, xuất ra toàn có dấu hết mà
Cách của bạn ko được vì mình đá nói rồi, dùng Code Name ko được vì mình copy sang nên Code name mỗi lần nó 1 khác

Bạn biết cái gì về code name? Phát biểu tầm bậy tầm bạ.

 

[888x888x888]

Bạn biết cái gì về code name? Phát biểu tầm bậy tầm bạ.

Thì mình cũng gà thôi, Code name là cái này phải ko bác

 

[namvu230397]

Phần mềm dự toán ấy bạn, xuất ra toàn có dấu hết mà

phần mềm dự toán họ không dùng VBA bác nhé, viết bằng ngôn ngữ khác như VB.net, C#, ... các ngôn ngữ này hỗ trợ unicode bác muốn viết kiểu gì cũng được

 

[VetMini]

Tự biết mình không rành về Worksheet thì tím cách làm cho dễ.
Mở một file, đăt tên là DichTenSheets.xlsx
Đổi tên sheet1 của nó thành DichTenSheets
Cột A, gõ tên tiếng Việt có dấu
Cột B, gõ tên không có dấu.

Trong code đổi tên sheets, mở file này ra, đọc lấy cái bảng mã dịch tên sheets vào array a, đóng file lại. Tự tìm lấy code mở file, đọc mảng vao Array, và đóng lại. Có đầy dẫy trên diễn đàn này.

Code đổi tên Sheet:

For i = 1 to WorkSheets.Count
tenMoi = Application.VLookup(WorkSheets(i).Name, a, 2, 0)
If Not IsError(tenMoi) Then
Worksheets(i).Name = tenMoi
Else
' viết log hoặc hiện thông báo "sheet " & WorkSheets(i).Name & " khong tim duoc"
End If
Next i

 

[ptm0412]

Code name là cái này phải ko bác

Cái đó là code name, đúng. Vậy tôi hướng dẫn Sheets(1) và Sheets(i) có liên quan gì đến code name? Thế mà chẳng phải phát biểu tầm bậy tầm bạ à?

 

[HieuCD]

File excel của mình từ phầm mềm xuất ra có tên các sheet là Tiếng việt có dấu ví dụ như "Tổng hợp", "Khối lượng"
Mình dùng hàm Sheets("Oldname").Name = "Newname" để đổi tên các sheets cho dễ chạy VBA nhưng không biết viết tên sheet có dấu kiểu gì
(mình định dùng Sheets Code name nhưng vì copy từ file khác sang nên số Code name mỗi lần 1 khác chứ không cố định ạ)
Mọi ng giúp mình với ạ

Dùng toán tử like tìm sheet với tên tiếng Việt có dấu, copy từ "Tổng hợp" và dán vào code VBA trong toán tử Like

 

[VetMini]

Dùng toán tử like tìm sheet với tên tiếng Việt có dấu, copy từ "Tổng hợp" và dán vào code VBA trong toán tử Like

Bạn không làm chủ được đầu vào. Khó mà biết được bọn xuất file chúng đặt tên Sheets cách nào. Nếu chúng đặt theo nhóm có tiền tố (TH1_*, TH2_*, ...) thì LIKE hơi khó.
Trường hợp của thớt là bị bọn dự toán chúng ỷ mình, muốn đưa đầu ra thế nào thì ra.

phần mềm dự toán họ không dùng VBA bác nhé, viết bằng ngôn ngữ khác như VB.net, C#, ... các ngôn ngữ này hỗ trợ unicode bác muốn viết kiểu gì cũng được

Máy thằng này chủ ỷ tài rồi chơi vậy thôi. Chứ dân chuyên nghiệp thì "Interface" và "Data Muagration" mới là quan trọng. Gặp dân chuyên người ta cố gắng làm đầu ra của mình càng dễ dùng cảng tỏ rõ tay nghề.