Giúp mình hoàn thành cái form nhập dữ liệu này với

[cupid240486]

Mình góp nhặt trên đây rồi chế ra cái form này, về cơ bản thì tạm xong rồi.
Còn 1 vài chỗ các bạn hướng dẫn mình nhé.

-Ở mục Rate mình có 2 lựa chọn radio button là USD và VND. mình muốn nếu mình chọn USD thì giá tiền sẽ nhập vào cột USD, mà chọn VND thì giá tiền sẽ vào cột VND.

-Ở các textbox "BOOKING DATE, CHECKIN DATE, CHECKOUT DATE" mình muốn nếu chưa có nhập ngày vào thì nó hiện là dd/mm/yyyy. Khi nhập ngày thì nó sẽ tự xoá dd/mm/yyyy đi và trở thành thế này 03/12/2011.

----Mong các bạn giúp đỡ-----

 

[cuongdoannhat]

Theo ý mình bạn code cho các TextBox mà bạn yêu cầu dựa trên sự kiện Exit (mình đang test trên Excel 2010). Bạn kiểm tra nếu textBox.Text="" thì textBox.Text="dd/MM/yyyy". Còn ở mục Rate cũng vậy khi xảy ra sự kiện Exit tùy vào Radio Button nào được chọn mà ghi dữ liệu vào cột đó. Đồng thời bạn nên chọn mặc định là VND hoặc USD khi design form trước đã. Chúc bạn thành công.

 

[cupid240486]

@cuongdoannhat: bạn chỉ rõ hơn được không nhỉ? vì mình không rành nên cũng hơi khó hiểu những gì bạn nói
Mình thấy trên forum có nói là dùng calendar để nhập ngày tháng nhưng mình dùng excel 2010 hình như không có tool Calendar thì phải

 

[cuongdoannhat]

Bạn mở frmNhapLieu, RClick trên TextBox bạn muốn thao tác (giả sử là txtCode) chọn View Code, bạn chọn sự kiện Exit. Đoạn code tương ứng với sự kiện xuất hiện. Bạn thêm đoạn code (minh họa thôi) bên dưới.
Private Sub txtCode_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if txtCode.Text="" then
txtCode.Text="dd/MM/yyyy"
End If
End Sub
Còn Tool Calendar thì mình không có sử dụng nên cũng không biết có hay không.

 

[cupid240486]

@cuongdoannhat: mình đã xử lý được phần ngày tháng, tuy không được trơn tru lắm nhưng cũng tạm được. Còn phần radio button thì phải giải quyết sao bạn nhỉ?

 

[cuongdoannhat]

Khi design bạn cho value của USD hoặc VND là true. Bạn xử lý sự kiện Click cho cmdAdd button ngay tại đoạn code mà bạn muốn ghi giá trị Rate vào bảng tính: thay ws.Cells(iRow, 7).Value = Me.txtRate.Value bởi (minh họa thôi)
if OptionButton1.Value = True then
ws.Cells(iRow, 8).Value = Me.txtRate.Value
else
ws.Cells(iRow, 7).Value = Me.txtRate.Value
End If

 

[jack nt]

-Ở các textbox "BOOKING DATE, CHECKIN DATE, CHECKOUT DATE" mình muốn nếu chưa có nhập ngày vào thì nó hiện là dd/mm/yyyy. Khi nhập ngày thì nó sẽ tự xoá dd/mm/yyyy đi và trở thành thế này 03/12/2011.

bạn làm trong sự kiện worksheet_selectionchange
if target = vbnullstring then target = "dd/mm/yyyy"