Chuyển từ không dấu sang có dấu trong excel

Liên hệ QC
phamduylong đã viết:
Giải pháp như vầy, không biết có đúng với VT01 không?
Trong tập tin Themdau.xls có sheet DATA có 2 cột: Khong dauCó dấu. VT01 nhập dữ liệu liên tục vào 2 cột này (không bỏ dòng trống). Muốn bổ sung thêm cứ nhập tiếp.
Muốn thêm dấu, mở tập tin cần thêm dấu và Themdau.xls.
- Chọn liên tục các ô cần thêm dấu
- Nhấn Ctrl+Shift+A hoặc chạy macro ThemDau để thêm dấu.
Mã:
Sub ThemDau()
If ActiveSheet.Name = "DATA" Then Exit Sub
Set data = ThisWorkbook.Sheets("DATA")
rc = data.Cells(1, 1).End(xlDown).Row
Set khongdau = Range(data.Cells(1, 1), data.Cells(rc, 1))
On Error Resume Next
For Each mycell In Selection
  r = 0
  myfind = mycell.Value
  If myfind = "" Then Exit Sub
  r = WorksheetFunction.Match(myfind, khongdau, 0)
  If r > 0 Then
    mycell.Value = data.Cells(r, 2)
  End If
Next
MsgBox "Da them dau xong"
End Sub
Chú ý vùng chọn phải có dữ liệu liên tục, gặp ô trống nó kết thúc.


sau mình làm theo pác chỉ thì không thấy gì xãy ra hết zay, em cũng chọn ctr+sh+A thì có thấy thêm dấu gì đâu nhỉ
 
ongtrungducmx25 đã viết:
sau mình làm theo pác chỉ thì không thấy gì xãy ra hết zay, em cũng chọn ctr+sh+A thì có thấy thêm dấu gì đâu nhỉ
ongtrungducmx25 tạo mới hay mở Themdau.xls ? Nếu làm bảng tính mới và copy sub Themdau vào module thì Ctrl+Shift+A đâu có tác dụng.

vt01 đã viết:
Khi chọn cell a2 nhấn CS+A ok, nhưng chọn Row1 thì ko có tac dụng, mr Long có cách nào ko nếu như convert từng cell chắc chết quá
Bạn tải về ThemdauRC.zip, cho phép bạn chọn dữ liệu ở nhiều dòng, nhiều cột.
 

File đính kèm

  • Them dauRC.zip
    10 KB · Đọc: 88
Anh Long oi anh làm cho em cái nút lệnh trên toolbar nhe, bấm 3 phím có lúc "ăn", lúc "ko ăn" anh oi
 
vt01 đã viết:
Anh Long oi anh làm cho em cái nút lệnh trên toolbar nhe, bấm 3 phím có lúc "ăn", lúc "ko ăn" anh oi
Nút lệnh làm sao sử dụng được ? Nó ở bên ThemdauRC, khi mở tập tin để chuyển dấu nó che mất làm sao sử dụng.
Tôi tạo menu trên thanh menu. Click vào nó thi hành.
 

File đính kèm

  • Them dauRC.zip
    9.9 KB · Đọc: 114
Theo mình thì Dịch từ không dấu sang có dấu sẽ không chính xác. Vì 1 từ, cụng từ không dấu dịch ra có dấu lại cho ra 2 hay nhiều nghĩa Đúng.
VD: mai di choi voi chung toi nha -> mai đi chơi với chúng tôi nha hoặc mãi đi chơi với chúng tôi nha hoặc mai đi chơi Voi chung tôi nha => vậy cái nào là đúng ? do đó chúng ta phải biết cái câu văn chính xác đầu tiên có dấu của tác giả.

Để chính xác đo nhu cầu 1 số ứng dụng công việc không thể đọc được Tiếng Việt nên chúng ta sẽ mã hóa tiếng việt có dấu thành không dấu sau đó chuyển đổi lại.
VD: ngọc -> mã hóa (Ngo5c)
Mai đi chơi không -> mã hóa không dấu ( Mai d9i cho7i kho6ng) -> chuyển sang tiếng việt Mai đi chơi không

Vậy sẽ chính xác 100%

Tiểu Long Trương
 
Web KT
Back
Top Bottom