Nhờ tạo đoạn code hỗ trờ cập nhật cho Form nhập liệu! (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

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
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).!$@!!
 

File đính kèm

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).!$@!!
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
 
Upvote 0
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é!
 
Upvote 0
Đú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?
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?
 
Upvote 0
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
 
Upvote 0
Upvote 0
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.
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.
 
Upvote 0
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?
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
Khi thêm đoạn code chữ màu xanh vào thì bị lỗi?
 
Upvote 0
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?
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
Khi thêm đoạn code chữ màu xanh vào thì bị lỗi?

Bạn thử code sau nhé:
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
 
Upvote 0
Cho tôi hỏi làm thế nào để cho dwx liệu vào listbox?
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom