Code chuyển dạng text thành số?

[HongHac]

Giả sử mình có text box nhập số tiền, và số tiền là 123.456.789 đ.

Nhưng trong VBA, mình chỉ nhập được dạng 123456789, nhìn rất rối mắt.

Làm sao khi ngay khi nhập liệu máy đã định dạng sẵn thành 123,456,789.0, nghĩa là khi nhập 1234, máy hiện 1,234, nhập 12345 hiện 12,345?

Xin các cao thủ giúp dùm, chân thành cảm ơn!

 

[MinhNguyệt]

Giả sử mình có text box nhập số tiền, và số tiền là 123.456.789 đ.

Nhưng trong VBA, mình chỉ nhập được dạng 123456789, nhìn rất rối mắt.

Làm sao khi ngay khi nhập liệu máy đã định dạng sẵn thành 123,456,789.0, nghĩa là khi nhập 1234, máy hiện 1,234, nhập 12345 hiện 12,345?

Xin các cao thủ giúp dùm, chân thành cảm ơn!

Giả sử cái textbox nhập số tiền của bạn có tên là txtSoTien, trong code của form, bạn ghi nhụ sau :

Private Sub txtSoTien_AfterUpdate()
      txtSoTien = Format(txtSoTien,"#,##0")
End Sub

 

[sealand]

Bạn đặt code của Minh Nguyet vào Sub txtSoTien_change() hợp lý hơn

 

[HongHac]

Thanks cả hai bạn, mình đã thử cả 2 cách, tuy nhiên dùng thủ tục _AfterUpdate thì nhập được số liệu, còn dùng thủ tục _change thì mình mới chỉ nhập số đầu tiên là 1 thì máy đã hiển thị 1,0 và con trỏ nháy ở sau số 0 rồi.

Cảm ơn nhiều

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Dữ liệu của mình nhiều nên mình định dùng Multipages.

Tuy nhiên, mình muốn khi khởi động form thì con trỏ luôn nháy ở một textbox cố định, và có thể dùng nút Tab để di chuyển con trỏ sang các textbox kế tiếp ở các trang tiếp theo mà không cần dùng chuột.

Mình đã thử như sau:

sub Userform_activate()
ngaypo.setfocus ' ngaypo la txt ma minh muon nhay chuot truoc
end sub

Code này nó không thèm chạy. Con chuột nó cứ nằm ở các text ở page 2.

Lại làm phiền các bạn thêm nữa vậy.

Chân thành cảm ơn

 

[quochuy86]

to: honghac
bạn thêm đoạn code sau trong sự kiện change:

Private Sub ngayPO_Change()
Me.ngayPO = Format(ngayPO, "#,##0")

End Sub

chúc bạn vui.

to: honghac
bạn thêm đoạn code sau vào vào sự kiện active userform là được
"Private Sub UserForm_Activate()
Me.ngayPO.SetFocus
End Sub"
chú ý: khi ấn tab con trỏ chuột sẽ nhảy theo thứ tự textbox1 > 2 ,... nên bạn nên đặt tên các text bõ theo thứ tự để nó nhảy theo ý muốn của bạn

 

[Hai Lúa Miền Tây]

Nếu muốn dùng tab để di chuyển sang textbox thì bạn chỉ di chuyển được trên Page hiện hành thôi, còn di chuyển sang textbox khác ở page khác thì trước tiên bạn phải di chuyển đến page đó trước. Phím nóng để di chuyển giữa các page là Ctrl+PageUp, Ctrl+PageDown.
Thân

 

[hoa35ktxd]

Bạn đặt code của Minh Nguyet vào Sub txtSoTien_change() hợp lý hơn

Không nên làm như thế vì sự kiện change sẽ chạy liên tục (gọi là đệ quy hay là cái gì đó tôi không nhớ lắm)

 

[hoa35ktxd]

chú ý: khi ấn tab con trỏ chuột sẽ nhảy theo thứ tự textbox1 > 2 ,... nên bạn nên đặt tên các text bõ theo thứ tự để nó nhảy theo ý muốn của bạn

Không phải là đặt tên theo thứ tự mà phải đặt cái thuộc tính TabIndex theo thứ tự mà bạn muốn chuyển.
Khi load Form thì Textbox nào có TabIndex nhỏ nhất sẽ được tự động select vì thế nếu muốn 1 cái Textbox nào đó tự động được chọn thì chỉ cần set cái TabIndex = 0 là Ok.

 

[quochuy86]

to: hoakkttxd
ví dụ: mình có 3 texbox như sau
texbox1
texbox2
texbox3
Mình muốn khi ấn tab thì nó nhảy theo thứ tự các texbox là 1>3>2 thì mình sẽ set TabIndex như sau có đúng không:
texbox1 TabIndex =0
texbox2 TabIndex =2
texbox3 TabIndex =1
Thân

 

[ndu96081631]

to: hoakkttxd
ví dụ: mình có 3 texbox như sau
texbox1
texbox2
texbox3
Mình muốn khi ấn tab thì nó nhảy theo thứ tự các texbox là 1>3>2 thì mình sẽ set TabIndex như sau có đúng không:
texbox1 TabIndex =0
texbox2 TabIndex =2
texbox3 TabIndex =1
Thân

Đúng nhưng chưa đủ ---> Phải set TabStop = True cho cả 3 TextBox nữa

 

[quochuy86]

to: ndu
"TabStop = True" có ý nghĩa gì vậy bạn ơi. Mình vẫn chưa tìm ra được.

 

[ndu96081631]

to: ndu
"TabStop = True" có ý nghĩa gì vậy bạn ơi. Mình vẫn chưa tìm ra được.

Xem hình dể thấy hơn:

 

[quochuy86]

TO: NDU
Ý mình muốn hỏi ý nghĩa của việc chọn "tabstop : = true hoặc false" có ý nghĩa jì cơ. mình lanh quanh mãi mà vẫn chưa hiêu được ý nghĩa của nó.
Thân

 

[Hai Lúa Miền Tây]

Khi bạn chọn True Có nghĩa là khi bấm nút tab thì con trỏ sẽ nhảy đến ô đó, ngược lại bạn chọn False thì khi bấm tab nó sẽ không nhảy vào ô đó.

 

[ndu96081631]

TO: NDU
Ý mình muốn hỏi ý nghĩa của việc chọn "tabstop : = true hoặc false" có ý nghĩa jì cơ. mình lanh quanh mãi mà vẫn chưa hiêu được ý nghĩa của nó.
Thân

Nói ngắn gọn:
- TabSpop = True ---> Cho phép nó có tác dụng với việc bấm phím Tab
- TabStop = False ---> Ngược lại
----
Hơn nữa, mấy vấn đề này nhỏ như con thỏ, chẳng lẽ bạn không tự thí nghiệm được sao?

 

[quochuy86]

Trời đơn giản quá. Không hiểu sao hôm qua em cũng thí nghiệm mà lại không nhận thấy. zzz Làm phiền mọi người quá.