Các dạy em cách chuyển số sang chữ theo userform dưới đây ạ? (1 người xem)

[haikimcuong]

Em lập 1 bảng giờ muốn khi ghi vào textbox1 là số 123 hoặc các số khác thì bên dưới có 1 ô label 1 sẽ tự động diễn đạt thành "Một trăm hai ba" hoặc bất kỳ số nào được thể hiện trên tbox1 ạ.
Em cũng đã tham khảo ở các bài viết có ghi nhưng em thấy toàn phải làm thủ công nên mong các thầy giúp đỡ em vấn đề này ạ
Xin cảm ơn cac thầy.

 

[vu_tuan_manh_linh]

Làm thế này nhé bạn:
1. Viết 1 hàm đọc số và dán vào 1 modul
2. Viết thủ tục Textbox_change()
Đơn giản thế thôi ( Hàm đọc số thì trên diễn đàn bát ngát mênh mông luôn)
p/s: Bạn tùy chỉnh cho Label1 rộng hơn chút, cỡ chữ nhỏ đi để dòng chữ không bị tràn ra ngoài.
Có thể thêm đoạn code sau vào thủ thục Textbox_Change() để hiển thị số trên textbox được rõ ràng hơn
TextBox1.Value = Format(TextBox1.Value, "#,###")

 

[haikimcuong]

Làm thế này nhé bạn:
1. Viết 1 hàm đọc số và dán vào 1 modul
2. Viết thủ tục Textbox_change()
Đơn giản thế thôi ( Hàm đọc số thì trên diễn đàn bát ngát mênh mông luôn)
p/s: Bạn tùy chỉnh cho Label1 rộng hơn chút, cỡ chữ nhỏ đi để dòng chữ không bị tràn ra ngoài.
Có thể thêm đoạn code sau vào thủ thục Textbox_Change() để hiển thị số trên textbox được rõ ràng hơn
TextBox1.Value = Format(TextBox1.Value, "#,###")

Cảm ơn anh em đã làm được vào bang tính nhưng cho em hỏi chút nếu thay đơn vị tính từ đồng -> nghìn đồng thì them chữ nghìn vào đoạn code nào ạ vì em tìm nhưng không thấy ạ

 

[vu_tuan_manh_linh]

Cảm ơn anh em đã làm được vào bang tính nhưng cho em hỏi chút nếu thay đơn vị tính từ đồng -> nghìn đồng thì them chữ nghìn vào đoạn code nào ạ vì em tìm nhưng không thấy ạ

Phần Donvitien, đổi thành nghìn đồng là được thôi bạn!!

DonViTien = ";6E;67;68;EC;6E;20;111;1ED3;6E;67;20;2E;2F;2E"

 

[haikimcuong]

đã được thầy ạ, cảm ơn thầy em đang học nên có những cái không hiểu mong thầy và mọi người bỏ qua ạ.

 

[haikimcuong]

Phần Donvitien, đổi thành nghìn đồng là được thôi bạn!!

DonViTien = ";6E;67;68;EC;6E;20;111;1ED3;6E;67;20;2E;2F;2E"

Thầy cho em hỏi chút về vấn đề lỗi chùng lệnh như file em gửi dưới đây cách khắc phục làm sao ạ? có 2 câu lệnh chùng nhau nên không thể sử dung cả 2 đồng thời 1 lúc mà em thì không biết sửa ạ Đây đoạn này thầy ơi "'Private Sub UserForm_Initialize()" có 2 đoạn em đã bôi đỏ đó.

 

[vu_tuan_manh_linh]

Thầy cho em hỏi chút về vấn đề lỗi chùng lệnh như file em gửi dưới đây cách khắc phục làm sao ạ? có 2 câu lệnh chùng nhau nên không thể sử dung cả 2 đồng thời 1 lúc mà em thì không biết sửa ạ Đây đoạn này thầy ơi "'Private Sub UserForm_Initialize()" có 2 đoạn em đã bôi đỏ đó.

Có một dấu nháy đơn đầu thủ tục, bỏ nó đi bạn!!

 

[haikimcuong]

vấn đề là nếu em không để thủ tục đó thì nó sẽ lỗi không chạy thủ tục dưới anh ơi nên đành phải lựa chon thủ tục dưới để chạy còn thủ thục trên thì không chạy, vấn đề như code em đã copy ra word đó để anh giúp đỡ tìm cách cho cả 2 thủ tục đều chạy vì 2 thục tục này nó sung nhau anh ạ. 1 thủ tục bên trên để min, max và close userform còn thủ tục dưới là để hiện ngày tháng năm anh xem cố giúp em. cảm ơn anh

 

[vu_tuan_manh_linh]

vấn đề là nếu em không để thủ tục đó thì nó sẽ lỗi không chạy thủ tục dưới anh ơi nên đành phải lựa chon thủ tục dưới để chạy còn thủ thục trên thì không chạy, vấn đề như code em đã copy ra word đó để anh giúp đỡ tìm cách cho cả 2 thủ tục đều chạy vì 2 thục tục này nó sung nhau anh ạ. 1 thủ tục bên trên để min, max và close userform còn thủ tục dưới là để hiện ngày tháng năm anh xem cố giúp em. cảm ơn anh

Bạn thử bỏ đoạn thủ tục ở trên đi, ghép đoạn code trong thủ tục trên vào đầu đoạn code trong thủ tục dưới

Private Sub UserForm_Initialize()
Dim hWnd As Long
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84CA0080  '<-- Min only
 'SetWindowLong hWnd, -16, &H84CD0080  '<-- Max only
 'SetWindowLong hWnd, -16, &H84CF0080  '<-- Max and Min
With UserForm1
   .Label8.Caption = Day(Date)
   .Label9.Caption = Month(Date)
   .Label10.Caption = Year(Date)
   .textbox8.Enabled = False
   .textbox9.Enabled = False
   .textbox9.Enabled = False
   .TextBox1.SetFocus
End With

Hy vọng là được!!!

 

[haikimcuong]

được anh ạ, hôm qua em cũng có thử kiểu thế ở 1 máy khác thì không được hôm này thì lại được đúng là lạ thật