Em muốn replace tiếng việt (1 người xem)

[luuphong69]

Chào cả nhà.
Em là mem mới, vấn đề em hỏi này em cũng ko biết nó nằm trong phần nào nên ko biết post chỗ này có đúng hok, nếu sai mod move giùm em chứ đừng xóa nhé

Em cần replace tiếng Việt trong file excel, lúc đầu em tạo các macro (view - record macro)để làm nhưng khi save lại thì macro bị lỗi font.

Các anh chị ai có giải pháp xử lý cái này xin vui lòng giúp em với. Em không rành về excel nên vui lòng hướng dẫn cụ thể giùm em chút. Em xin cảm ơn.

Như trong file thì em cần replace các từ như :
Phim truyện = PT
- tập = - Tập
(Phim TQ= (xóa đi)
........
File mẫu

http://minus.com/lbxwDIU4EvIBHX

 

[ndu96081631]

Chào cả nhà.
Em là mem mới, vấn đề em hỏi này em cũng ko biết nó nằm trong phần nào nên ko biết post chỗ này có đúng hok, nếu sai mod move giùm em chứ đừng xóa nhé

Em cần replace tiếng Việt trong file excel, lúc đầu em tạo các macro (view - record macro)để làm nhưng khi save lại thì macro bị lỗi font.

Các anh chị ai có giải pháp xử lý cái này xin vui lòng giúp em với. Em không rành về excel nên vui lòng hướng dẫn cụ thể giùm em chút. Em xin cảm ơn.

Như trong file thì em cần replace các từ như :
Phim truyện = PT
- tập = - Tập
(Phim TQ= (xóa đi)
........
File mẫu
http://www.mediafire.com/view/?kezqzsogqc2enek

Điều đầu tiên bạn cần làm là đưa ra 1 bảng gồm 2 cột: Cột 1 là những từ cần thay đổi, cột 2 là những từ sẽ thay thế tương ứng
Làm xong bảng này, đưa lên đây rồi ta tính tiếp

 

[luuphong69]

Em làm rồi đó anh, anh giúp em với

 

[Quang_Hải]

Em làm rồi đó anh, anh giúp em với

Có cảm giác nick này chủ yếu là quảng cáo trên chữ ký chứ không phải cần giúp đở.

 

[luuphong69]

Có cảm giác nick này chủ yếu là quảng cáo trên chữ ký chứ không phải cần giúp đở.

xin lỗi, nếu trên forum này ko cho add link vào chữ ký thì em bỏ, chứ em vào đây là nhờ giúp đỡ thật.

 

[Quang_Hải]

xin lỗi, nếu trên forum này ko cho add link vào chữ ký thì em bỏ, chứ em vào đây là nhờ giúp đỡ thật.

Bạn thử hàm tự tạo này.
Copy code vào 1 module, tại B1 của sheet3 nhập = WordChange(a1)

Function WordChange(cell As Range) As String
Dim data(), i, tam
data = Sheet1.Range(Sheet1.[A8], Sheet1.[A65536].End(3)).Resize(, 2).Value
tam = cell.Value
   For i = 1 To UBound(data)
      tam = Replace(Replace(tam, data(i, 1), data(i, 2)), ")", "")
   Next
   WordChange = tam
End Function

 

[luuphong69]

Copy code vào 1 module




tại B1 của sheet3 nhập = WordChange(a1)





Em làm như thế này có đúng ko anh ?
Nó báo lỗi #NAME? là sao ạ

 

[Quang_Hải]

Copy code vào 1 module




tại B1 của sheet3 nhập = WordChange(a1)





Em làm như thế này có đúng ko anh ?
Nó báo lỗi #NAME? là sao ạ

Hic nhập công thức vào C1 mới đúng C1= Tach(B1)

 

[ndu96081631]

Hic nhập công thức vào C1 mới đúng C1= Tach(B1)

Ủa! Tach là cái quỷ gì ta? Chắc là cái Tach ở bửa tiệc đây?
???!!!
-------------
Ngoài ra, theo như hình của tác giả thấy báo lỗi #NAME?, có thể là chưa Enable macro chăng?
-------------
Mà cái hàm này cũng lạ ghê hen! Có cái vụ:

data = Sheet1.Range(Sheet1.[A8], Sheet1.[A65536].End(3)).Resize(, 2).Value

rồi hổng biết áp dụng sang file khác bằng cách nào nữa?

 

[luuphong69]

Hic nhập công thức vào C1 mới đúng C1= Tach(B1)

Em làm công thức =Tach(B1) và =WordChange(a1) rồi mà nó vẫn là #NAME? hết anh ơi.

Ngoài ra, theo như hình của tác giả thấy báo lỗi #NAME?, có thể là chưa Enable macro chăng?

Enable macro chỗ nào anh ?
Em hok rành excel nên mong các anh chỉ cụ thể chút ạ

 

[Quang_Hải]

Em làm công thức =Tach(B1) và =WordChange(a1) rồi mà nó vẫn là #NAME? hết anh ơi.

Enable macro chỗ nào anh ?
Em hok rành excel nên mong các anh chỉ cụ thể chút ạ

Bữa nay xỉn quá. Lúc đầu thấy tác giả nói có biết record macro mà

C1= WordChange(B1)

Function WordChange(cell As Range) As String
Dim data(), i, tam
data =Sheet1.Range(Sheet1.[A8], Sheet1.[A65536].End(3)).Resize(, 2).Value
tam = cell.Value
   For i = 1 To UBound(data)
      tam = Replace(Replace(tam, data(i, 1), data(i, 2)), ")", "")
   Next
   WordChange = tam
End Function

 

[vanle33]

Enable macro chỗ nào anh ?
Em hok rành excel nên mong các anh chỉ cụ thể chút ạ

Bạn xem bài #2 http://www.giaiphapexcel.com/forum/...m-Security-Macro-Setting-trong-2007-nằm-ở-đâu

 

[thanhlanh]

Theo mình nhận định, trong file của tác giả có những từ như vậy nằm rải rác, bây giờ muốn thay thế các từ đó bằng các từ khác tương ứng chỉ bằng một cái bấm nút, nhưng vì font là font Unicode, VBA không hổ trợ nên tác giả không làm được. Phải vậy không tác giả? Nếu vậy thì dùng hàm sao được? và các bạn đang đi sai đường rồi!

 

[Quang_Hải]

Ủa! Tach là cái quỷ gì ta? Chắc là cái Tach ở bửa tiệc đây?
???!!!
Mà cái hàm này cũng lạ ghê hen! Có cái vụ:

data = Sheet1.Range(Sheet1.[A8], Sheet1.[A65536].End(3)).Resize(, 2).Value

rồi hổng biết áp dụng sang file khác bằng cách nào nữa?

Bữa nay xỉn quá anh ơi.
............
Em gán cho biến Data vùng dữ liệu để dò tìm đúng rồi mà anh. Hay hôm nay anh cũng xỉn ta?
Có đi qua sheet nào thì sheet1 cũng không thể thay đổi mà.

 

[luuphong69]

Mấy anh xem em làm như dzầy có đúng hok mà vẫn ra #NAME

Bỏ Code vào trong module1 chỗ này có đúng hok (nhấn Alt F11 mở cửa sổ này)


Enable macro như vầy được chưa ạ ?




À, em xài office 2013 64bit ko biết có vấn đề gì với code này ko ?

 

[luuphong69]

Theo mình nhận định, trong file của tác giả có những từ như vậy nằm rải rác, bây giờ muốn thay thế các từ đó bằng các từ khác tương ứng chỉ bằng một cái bấm nút, nhưng vì font là font Unicode, VBA không hổ trợ nên tác giả không làm được. Phải vậy không tác giả? Nếu vậy thì dùng hàm sao được? và các bạn đang đi sai đường rồi!

Dạ đúng rồi anh, tuy em ko rành excel này nhưng khi làm macro bị lỗi font thì em có lên mạng tìm hiểu là do VBA ko hỗ trợ unicode.
Em hok biết làm sao để xử lý vấn đề này nên lên đây nhờ giúp đỡ.

 

[Quang_Hải]

Bạn xem file cho nhanh nhé

 

[luuphong69]

được rồi anh, do em bỏ cái module sai chỗ . Em cảm ơn nhiều

Ủa anh ơi, sao cái - Tập em viết hoa chữ T mà replace thành chữ - tập vậy ?, sửa giùm em với

 

[TrungChinhs]

File đính kèm dùng VBA, Bạn thử xem có đúng ý bạn không ?

 

[luuphong69]

File đính kèm dùng VBA, Bạn thử xem có đúng ý bạn không ?

Mình qua sheet 3 thay thế nội dung trong đó thế nào bạn ?