Giúp đỡ về định dạng texbox.

[kingofarms]

Trong Form tôi có 2 Textbox: txtSoHD và txtNgayHd.
Khi người nhập vào txtSoHD chỉ được phép nhập số không được nhập chữ và hiện lên thông báo là chỉ được nhập số vào.
Và Textbox thứ 2 là txtNgayHd, khi lick chuột vào thi sẽ hiện ra bảng ngày tháng (lịch dd/mm/yyyy) cho mình chọn.

Xin hướng dẫn, cảm ơn.

 

[Hoàng Trọng Nghĩa]

Vấn đề thứ nhất:

Private Sub txtSoHD_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

(Đã không cho nhập thì cần gì hiện thông báo! Huống chi trên Form đã có ghi sẳn rồi! Càng thông báo, càng mất thời gian thôi).

Vấn đề thứ hai: Bạn nên xem tại đây: http://www.giaiphapexcel.com/forum/showthread.php?52124-Giúp-Hoàn-Thiện-Code-Cho-Nút-Bấm-Tạo-Sheets-Mới!&p=330013#post330013