Đánh tiếng việt có dấu trong câu lệnh sau (1 người xem)

[bongmaihung]

Label12.Caption = from & " dén só " & toval

Label12.Caption = from & "ChrW(273) & ChrW(7871) & "n s" & ChrW(7889)"
  & toval

Em muốn đánh chữ "dén só" thành đến số nhưng làm vẫn chưa được. Nhờ các anh chị giúp ah
from đã là một Range tương đương với số 1 , toval đã end(xldown) thành dòng cuối cùng rồi ah

Private Sub userform_activate()
from = Range("A5").Value
Range("A5").Select
toval = Selection.End(xlDown).Value
Label12.Caption = from & " den so " & toval

Đây là câu lệnh gốc ban đầu, em thử sửa dén só thành den so và save lại nhưng khi hiện trên form vẫn là dén só

 

[nghiaphuc]

Label12.Caption = from & " dén só " & toval

Label12.Caption = from & "ChrW(273) & ChrW(7871) & "n s" & ChrW(7889)"
  & toval

Em muốn đánh chữ "dén só" thành đến số nhưng làm vẫn chưa được. Nhờ các anh chị giúp ah
from đã là một Range tương đương với số 1 , toval đã end(xldown) thành dòng cuối cùng rồi ah

Private Sub userform_activate()
from = Range("A5").Value
Range("A5").Select
toval = Selection.End(xlDown).Value
Label12.Caption = from & " den so " & toval

Đây là câu lệnh gốc ban đầu, em thử sửa dén só thành den so và save lại nhưng khi hiện trên form vẫn là dén só

Đọc một hồi thấy tù mù quá. Tóm lại là bạn muốn nó thành "dén só" hay "den so" hay "đến số" vậy?

 

[hungpecc1]

Label12.Caption = from & " dén só " & toval

Label12.Caption = from & "ChrW(273) & ChrW(7871) & "n s" & ChrW(7889)"
  & toval

Em muốn đánh chữ "dén só" thành đến số nhưng làm vẫn chưa được. Nhờ các anh chị giúp ah
from đã là một Range tương đương với số 1 , toval đã end(xldown) thành dòng cuối cùng rồi ah

Private Sub userform_activate()
from = Range("A5").Value
Range("A5").Select
toval = Selection.End(xlDown).Value
Label12.Caption = from & " den so " & toval

Đây là câu lệnh gốc ban đầu, em thử sửa dén só thành den so và save lại nhưng khi hiện trên form vẫn là dén só

Thiết lập Label với font VNI, sau đó sửa code thành :

Private Sub userform_activate()
from = Range("A5").Value
Range("A5").Select
toval = Selection.End(xlDown).Value
[COLOR=#ff0000]Label112.Font.name ="VNI-Aptima"[/COLOR]
Label12.Caption = from & "ñeán soá" & toval

Dòng màu đỏ bạn có thể thiết lập từ lúc design time !

 

[nghiaphuc]

Thiết lập Label với font VNI, sau đó sửa code thành :

Private Sub userform_activate()
from = Range("A5").Value
Range("A5").Select
toval = Selection.End(xlDown).Value
[COLOR=#ff0000]Label112.Font.name ="VNI-Aptima"[/COLOR]
Label12.Caption = from & "ñeán soá" & toval

Dòng màu đỏ bạn có thể thiết lập từ lúc design time !

Nếu chỉ là hiển thị Label.Caption bằng tiếng Việt thì dùng Font Unicode cũng được mà, và cách sử dụng hàm ChrW để đưa tiếng Việt vào là đúng rồi. Vấn đề ở chỗ không biết tác giả làm kiểu gì và cần gì. Cách dễ dàng nhất là đưa file Excel lên thì tác giả lại chẳng chịu đưa.

 

[Quang_Hải]

Label12.Caption = from & " dén só " & toval

Label12.Caption = from & "ChrW(273) & ChrW(7871) & "n s" & ChrW(7889)"
  & toval

Bạn chỉ là bị thừa mấy cái dấu nháy thôi mà. Sửa lại chút thế này thôi:
Label12.Caption = from & Space(1) & ChrW(273) & ChrW(7871) & "n s" & ChrW(7889) & Space(1) & toval

 

[be_09]

bongmaihung

Để cho đơn giản Label phía trước bạn gõ đầy đủ là Đã nhập dữ liệu từ số 1 đến số và bạn sửa câu lệnh lại là

Label12.Caption = toval

 

[bongmaihung]

Có 2 đoạn cần sửa, do lúc đầu em ko để ý có 2 đoạn dén só, Nhờ sự giúp đỡ của anh chị, thầy cô em đã làm thành công rồi ah. Cách nào anh chị hướng dẫn đều rất ok
Em xin cảm ơn