tạo form nhập dữ liệu (1 người xem)

[giaosy]

Xin các cao thủ chỉ cho em cách tạo form nhập liệu với. Làm thế nào để kết nối form với bảng dữ liệu được.

 

[voda]

Bạn dùng DataForm. (Xem File)

 

[giaosy]

Rất cảm ơn bác voda. phương pháp vừa gian tiện vừa tận dụng được cái sẵn có mà hiệu quả.

 

[ngthethat]

Xin các cao thủ chỉ cho em cách tạo form nhập liệu với. Làm thế nào để kết nối form với bảng dữ liệu được.

Bạn tham khảo cái này xem sao?

 

[giaosy]

Cảm ơn bác ngthethat đã giúp em. em đã nghiên cứu và hiểu cách làm rồi. Nhưng em vẫn thắc mắc về vùng: range("A1") bác để ở trong đoạn code này có tác dụng gì.
Sheets("NKSC").Select
Range("MyDBStart").Select
ActiveCell.Offset(Range("TotalRecord").Value, 0).Range("A1").Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value = XSo
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = XDate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = XLyDo
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = XNo
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = XCo
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = XTien
Em đã thử bỏ Range("A1") trong các dòng trên, chương trình vẫn chạy không vấn đề gì.
Mong bác và các bậc cao thủ chỉ thêm cho em với.
Cảm ơn các bác nhiều

 

[PhanTuHuong]

Em đã thử bỏ Range("A1") trong các dòng trên, chương trình vẫn chạy không vấn đề gì.
Mong bác và các bậc cao thủ chỉ thêm cho em với.
Cảm ơn các bác nhiều

Đúng là thừa, bạn có thể chỉnh sửa dạng này cho gọn, từ 1 ô gốc (Select) có thể offset sang các hàng, cột theo ý muốn. Ví dụ:

Sheets("NKSC").Select
Range("MyDBStart").Select
ActiveCell.Offset(Range("TotalRecord").Value, 0).Select
With ActiveCell
    .Offset(0, 0).Value = XSo
    .Offset(0, 1).Value = XDate
    .Offset(0, 1).Value = XLyDo
    .Offset(0, 1).Value = XNo
    .Offset(0, 1).Value = XCo
    .Offset(0, 1).Value = XTien
End With

 

[ngthethat]

Em đã thử bỏ Range("A1") trong các dòng trên, chương trình vẫn chạy không vấn đề gì.
Mong bác và các bậc cao thủ chỉ thêm cho em với.
Cảm ơn các bác nhiều

Làm như của bạn PhanTuHuong thì rất là gọn rồi. Cám ơn rất nhiều.

Vì cái code này mình viết từ lâu lắm rồi, lúc mới bắt đầu tự học VBA kia. Chủ yếu là dùng macro record lại thôi. Lúc đó cú pháp lệnh sao thì phải viết vậy không biết cách rút ngắn. Thông cảm nhé các bạn

 

[ongtrungducmx25]

Bạn dùng DataForm. (Xem File)

pác voda cho em hỏi một tí là sau khi mở bảng tính thì em thấy xuất hiện from-sheét nhưng vào trong vba thì không thấy cái UF đâu cả làm thế nào để khi ẩn hiện UF-sheet1 khi đang nhập liệu, nếu tắt nó đi thì không hiện lại được nữa ! làm thế nào để làm được như zậy

 

[voda]

-Loại Form này được Excel làm sẵn nên ta không thể nhìn thấy code của nó. Muốn tắt, ta bấm nút close trên Form. Còn muốn hiện, tạo 1 button và dùng code sau:

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
    ActiveSheet.ShowDataForm
Application.DisplayAlerts = True
End Sub

 

[nhopt]

Em quan tâm đề tài này quá
Em xin hỏi tài liệu hướng dẫn lập form được thảo luận ở box nào nhỉ?

Cám ơn các bác

 

[quoc nhat]

bạn vào mục tìm kiếm của diễn đàn và tiềm kiếm chẳng cần biết ở box nào đậu bạn, gõ là thấy ngay, Chúc bạn thành công!