MinhCong
Thành viên gắn bó



- Tham gia
- 28/5/09
- Bài viết
- 1,645
- Được thích
- 1,806
- Nghề nghiệp
- Xây dựng Cầu đường
Chưa hiểu hết ý bạn, có phải là trong form có 2 textbox, bạn muốn chọn lựa mặt hàng trong đó với dữ liệu nguồn là cột A tương ứng textbox1, cột B tương ứng với cột textbox2, và khi ở sheet nhatky mở form, chọn dữ liệu trên form, bấm nút nhập thì nó sẽ nhập kết quả ở cell hiện hành = 2 textbox đó nối lại?Tôi có tạo 1 Form hỗ trợ nhập liệu, có tìm kiếm trên diễn đàn để về áp dùng cho trường hợp của Mình nhưng không được. Mong Anh chị giúp đỡ cho đoạn code (Trong File đính kèm Tôi có ghi rõ nội dung cần thực hiện).![]()
Đúng rồi đó Anh à. Cell hiện hành ở đây là cell nằm trên cột D nhé!Chưa hiểu hết ý bạn, có phải là trong form có 2 textbox, bạn muốn chọn lựa mặt hàng trong đó với dữ liệu nguồn là cột A tương ứng textbox1, cột B tương ứng với cột textbox2, và khi ở sheet nhatky mở form, chọn dữ liệu trên form, bấm nút nhập thì nó sẽ nhập kết quả ở cell hiện hành = 2 textbox đó nối lại?
Mong tin bạn
Đúng rồi đó Anh à. Cell hiện hành ở đây là cell nằm trên cột D nhé!
Chính xác là vậy!Đúng ý Em rồi Anh à. Anh cho hỏi vẽ cái nút mũi tên trong Form có phải dùng combobox để vẽ không?
Trước đây Em có chép của Anh 1 cái Form hỗ trợ nhập liệu đã học hỏi đoạn code trong đó rồi.Chính xác là vậy!
Tôi có 1 thắc mắc: Sau khi nhập xong 1 dòng, nếu muốn nhập tiếp dòng dưới thì sao? Chẳng lẽ bạn dùng chuột để... xuống dòng à? Mất công quá vậy?
Trước đây Em có chép của Anh 1 cái Form hỗ trợ nhập liệu đã học hỏi đoạn code trong đó rồi.
ActiveCell.Offset(1).Select
range("D65536").end("xlup").row +1
Cái này đôi lúc cũng không sử dụng là vì trừ trường hợp dưới cùng bảng tính có dòng dữ liệu nào đó. mà mình muốn nhập dữ liệu là khoảng giữa... Thôi thì tùy biến mà sử dụng vậy.Cái này bạn phải xác định dòng cuối cùng có dữ liệu để nhập vào.
Em muốn không cho nhập dữ liệu từ dòng số 1:5 (Tức chỉ cho nhập dữ liệu bắt đầu từ dòng thứ 6) thì thêm đoạn code như thế nào?Cái này bạn phải xác định dòng cuối cùng có dữ liệu để nhập vào.
Private Sub CommandButton2_Click()
[COLOR=Blue]If Not Intersect([A6:K65536], ActiveCell) Is Nothing Then
On Error Resume Next[/COLOR]
With Sheets("NhatKy")
.Cells(ActiveCell.Row, 4) = TextBox1 & " " & TextBox2
ActiveCell.Offset(1).Select
End With
End Sub
Em muốn không cho nhập dữ liệu từ dòng số 1:5 (Tức chỉ cho nhập dữ liệu bắt đầu từ dòng thứ 6) thì thêm đoạn code như thế nào?
Khi thêm đoạn code chữ màu xanh vào thì bị lỗi?Mã:Private Sub CommandButton2_Click() [COLOR=Blue]If Not Intersect([A6:K65536], ActiveCell) Is Nothing Then On Error Resume Next[/COLOR] With Sheets("NhatKy") .Cells(ActiveCell.Row, 4) = TextBox1 & " " & TextBox2 ActiveCell.Offset(1).Select End With End Sub
Private Sub CommandButton2_Click()
With Sheets("NhatKy")
If ActiveCell.Row <= 5 Then
MsgBox "Ban phai nhap tu dong so 6"
Exit Sub
End If
.Cells(ActiveCell.Row, 4) = TextBox1 & " " & TextBox2
End With
End Sub