Tìm hiểu về hàm chrW()

[NH_DK]

A/C ơi, em muốn tìm hiểu hàm chuyển đổi số thành chữ. A/C vui lòng hướng dẫn em cách dùng và cho những ví dụ cụ thể để chứng minh nhé!
Cám ơn các A/C nhiều!

 

[ndu96081631]

A/C ơi, em muốn tìm hiểu hàm chuyển đổi số thành chữ. A/C vui lòng hướng dẫn em cách dùng và cho những ví dụ cụ thể để chứng minh nhé!
Cám ơn các A/C nhiều!

Cụ thế bạn muốn tìm hiểu cái gì? Hàm ChrW hay hàm chuyển đổi số thành chữ?
Nếu tim hiểu về đổi số thành chữ thì trên GPE có đầy rồi đấy, tải về mà tìm hiểu thôi
Riêng hàm ChrW thì đây:

Chr(charcode)
The required charcode argument is a Long that identifies a character.
Remarks
Numbers from 0 – 31 are the same as standard, nonprintable ASCII codes. For example, Chr(10) returns a linefeed character. The normal range for charcode is 0 – 255. However, on DBCS systems, the actual range for charcode is -32768 to 65535.
Note The ChrB function is used with byte data contained in a String. Instead of returning a character, which may be one or two bytes, ChrB always returns a single byte. The ChrW function returns a String containing the Unicode character except on platforms where Unicode is not supported, in which case, the behavior is identical to the Chr function.
Note Visual Basic for the Macintosh does not support Unicode strings. Therefore, ChrW(n) cannot return all Unicode characters for n values in the range of 128 – 65,535, as it does in the Windows environment. Instead, ChrW(n) attempts a "best guess" for Unicode values n greater than 127. Therefore, you should not use ChrW in the Macintosh environment.

 

[sealand]

Bạn nhập code sau vào 1 file tạm, chạy code. Về sheet1i xem tương ứng mã trả về để sử dụng mã theo yêu cầu (Nếu cần thiết mở rộng vòng lặp ra)

Sub Test()
Dim i
For i = 1 To 5000
Sheet1.Cells(i, 1) = i
Sheet1.Cells(i, 2) = ChrW(i)
Next
End Sub

 

[thanhlanh]

Bạn nhập code sau vào 1 file tạm, chạy code. Về sheet1i xem tương ứng mã trả về để sử dụng mã theo yêu cầu (Nếu cần thiết mở rộng vòng lặp ra)

Sub Test()
Dim i
For i = 1 To 5000
Sheet1.Cells(i, 1) = i
Sheet1.Cells(i, 2) = ChrW(i)
Next
End Sub

Vậy muốn tìm ngược lại thì code như thế nào Bạn? ví dụ muốn biết chữ A tương ứng với số bao nhiêu của mã Uni và mã ABC ... là bao nhiêu?

 

[hoangdanh282vn]

Vậy muốn tìm ngược lại thì code như thế nào Bạn? ví dụ muốn biết chữ A tương ứng với số bao nhiêu của mã Uni và mã ABC ... là bao nhiêu?

Bạn nghiên cứu thử hàm ASCW(...) nha.