Giúp điều chỉnh code nhập giá trị bằng form!

[luckylucke_2009]

Nhờ các Bác chỉnh sửa giúp form nhập liệu.
Cách gán trị trong macro hình như có vấn đề ("Me.txtnumber).
Xin chỉ giáo thêm. Rất cám ơn!

 

[tungson_mrcc]

Nhờ các Bác chỉnh sửa giúp form nhập liệu.
Cách gán trị trong macro hình như có vấn đề ("Me.txtnumber).
Xin chỉ giáo thêm. Rất cám ơn!

Bạn sửa "Me.txtnumber" thành "Form11.txtnumber" là được

 

[sealand]

1/ Sửa Code theo ý bạn:
Bạn bỏ Private trong sub của Module đi. Đây là Module công cộng nên tiền tố Me không sử dụng được mà phải ghi trực tiêp:

Sub nhap()
ActiveCell = Form11.txtnumber
End Sub

2/Bạn không nên để code như trong file. Sub này nên để trong phần code của Form thì hợp lý hơn.

Private Sub Nut_lenh_Click()
'Neu ko nhap noi dung cho txtNoidung thi se bao loi
  If Me.txtnumber = vbNullString Then
     MsgBox "Yeu cau nhap du lieu"
     Exit Sub
   Else
        gangiatri
    End If
  Unload Me
End Sub
'----------------------------------------
Sub gangiatri()
   ActiveCell.FormulaR1C1 = Me.txtnumber
End Sub