Cách nhập dữ liệu trong Excel bằng form tự tạo

[thaibinh_excel]

Các bạn giúp mình nhé,

Mình có 1 Form số liệu mà nếu nhập bằng cách trực tiếp thì rất dài và mất thời gian, còn nếu dùng lệnh Form của Excel thi nó không thể hiện hết nổi các sheet và phải dùng Tab mới chuyển được.

Mình muốn tạo 1 Form riêng để nhập số liệu tiết kiệm thời gian hơn bằng cách hễ mình nhập trong Form của mình là nó sẽ tự cập nhật qua sheet tổng hợp, nhập xong mình xóa đi nhập dữ liệu khác là nó tự động xuống 1 hàng để chuyển tiếp dữ liệu mà không mất đi dữ liệu của mình. Mình có đính kèm file để các bạn xem thử ?

Không biết Excel có làm được cái này không nhỉ? Các bạn xem và giúp mình nhé.

Cảm ơn các bạn nhiều

 

[curong]

trời ơi!không ai giúp em à!

Mọi người ơi! Giúp em đi, trời ơi, chết mất thôi

 

[bogay]

Form của các bạn rất hay. Trên cơ sở này mình cũng đã tạo một form nhưng khi đến thủ tục này thì bào lỗi:
Private Sub TenCT_Change()
If TenCT = "" Then Exit Sub
ch = Me.TenCT.ListIndex + 4 'Báo lỗi ở dòng này'
Me.txtHDchinh = Sheet2.Range("c" & ch)
Me.txtNDHDchinh = Sheet2.Range("d" & ch)
Me.txtTDHDchinh = Sheet2.Range("e" & ch)
Me.txtHDBSL1 = Sheet2.Range("f" & ch)
Me.txtNDHDBSL1 = Sheet2.Range("g" & ch)
Me.txtTDHDBSL1 = Sheet2.Range("h" & ch)
Me.txtHDBSL2 = Sheet2.Range("i" & ch)
Me.txtNDHDBSL2 = Sheet2.Range("j" & ch)
Me.txtTDHDBSL2 = Sheet2.Range("k" & ch)
Me.txtHDBSL3 = Sheet2.Range("l" & ch)
Me.txtNDHDBSL3 = Sheet2.Range("m" & ch)
Me.txtTDHDBSL3 = Sheet2.Range("n" & ch)
End Sub
Các bác xử lý hộ mình tí nhé. Thank!
PS Còn một vấn đề nữa là làm thế nào để Update nội dung còn thiếu và nội dung đã nhập (tức là ghi đè lên dữ liệu đã có từ trước)

 

[be_09]

vâng được thế thì tốt quá ạ!
Ý của em là: Khi đánh biển số xe vào ô biển số xe và ấn nút tìm kiếm: nó sẽ hiện sheet tổng tìm đến biển số xe đó trong sheet tổng và ấn tiếp tìm kiếm nếu số tiền về không đúng, tìm đến khi đúng số tiền thì đánh số tiền vào ô số tiền và ngày thanh toán, và ấn nút nhập để số tiền và ngày thanh toán hiện vào dòng có biển số xe đó ở sheet tổng. Sau đó lưu lại dữ liệu. Nút lưu là do em hay quên lưu nên để đó cho nhớ, mỗi lần điền dữ liệu là lưu luôn ạ! Mong các anh đừng chê cười ạ!
Cảm ơn các anh nhiều ạ!

Ý của anh ở bài 167 là rõ ràng rồi còn gì (khi click vào Combo chọn dữ liệu thì nó sẽ load kết quả vào Form, nhấn nút sửa để sửa hoặc thêm, bớt cái mình cần ngay trên Form, Click nút chấp nhận nó sẽ lưu kết quả vào bảng tính).

 

[be_09]

bogay.
Theo anh thì chỉ vần thêm cột "hợp đồng lần", như vậy trong sheet HOPDONG chỉ cần tiêu đề như sau: TT, Tên công trình, lần hợp đồng, Giá trị HĐ, Nội dung HĐ, Tiến độ, Ghi chú là đủ. Mỗi lần thay đổi hợp đồng thì nhập 1 dòng mới và ở cột lần hợp đồng em chỉ cần nhập HĐ lần 1 hoặc HĐ lần 2 thì mới sử dụng PivotTable để tổng hợp giá trị hợp đồng của từng công trình và giá trị hợp đồng theo từng lần hợp đồng bổ sung.

 

[vuthao32]

nhờ sửa

Nhờ Anh Hoài giúp em với:
Cái PA thu vụ 10 hôm trước anh lam cho em rất OK rồi em rất cám ơn nhưng bây giờ có vấn đề phát sinh là nó tăng thêm lên mấy thôn nữa nhưng ở phần phiếu thu chổ có nốt bấm chọn thôn lại mặc định là 8 thôn bây giờ em muốn thêm vào thì làm như thế náo anh có thể chỉ giúp cho em với được không anh?
Cám ơn anh nhiều

 

[be_09]

Form của các bạn rất hay. Trên cơ sở này mình cũng đã tạo một form nhưng khi đến thủ tục này thì bào lỗi:
Private Sub TenCT_Change()
If TenCT = "" Then Exit Sub
ch = Me.TenCT.ListIndex + 4 'Báo lỗi ở dòng này'
Me.txtHDchinh = Sheet2.Range("c" & ch)
Me.txtNDHDchinh = Sheet2.Range("d" & ch)
Me.txtTDHDchinh = Sheet2.Range("e" & ch)
Me.txtHDBSL1 = Sheet2.Range("f" & ch)
Me.txtNDHDBSL1 = Sheet2.Range("g" & ch)
Me.txtTDHDBSL1 = Sheet2.Range("h" & ch)
Me.txtHDBSL2 = Sheet2.Range("i" & ch)
Me.txtNDHDBSL2 = Sheet2.Range("j" & ch)
Me.txtTDHDBSL2 = Sheet2.Range("k" & ch)
Me.txtHDBSL3 = Sheet2.Range("l" & ch)
Me.txtNDHDBSL3 = Sheet2.Range("m" & ch)
Me.txtTDHDBSL3 = Sheet2.Range("n" & ch)
End Sub
Các bác xử lý hộ mình tí nhé. Thank!
PS Còn một vấn đề nữa là làm thế nào để Update nội dung còn thiếu và nội dung đã nhập (tức là ghi đè lên dữ liệu đã có từ trước)

Trong tuần này tôi sẽ giúp bạn, theo nội dung trong File thì bạn cần tổng hợp báo cáo với nội dung gì thì nói luôn để tôi biết mà giúp luôn 1 thể.
Theo tôi thì ở sheet HOPDONG ở tiêu đề cột phải như thế này: TT, Tên công trình, số hợp đồng, ngày ký hợp đồng tổng giá trị hợp đồng, nội dung hợp đồng, lần bổ sung HĐ không cần chia nhiều cột để theo dõi mà sử dụng chung 1 cột mỗi lần bổ sung thì nhập 1 dòng và ghi lần đầu, lần 1, lần 2..v..v... mục đích tổng hợp báo báo cho thuận tiện, còn mục tiến độ thì không cần mà chuyển sang theo dõi chung với sheet THANHTOAN, trong sheet DATA em dự kiến theo dõi khoảng bao nhiêu công trình cho anh biết để tao sẳn dữ liệu để khi bổ sung nó tự load vào Combo của Form để chọn công trình mà không cần nhập.

Tốt nhất là em Upload 1 File thực theo dõi khoảng 10 dòng dữ liệu (nếu sợ lộ thông tin thì em giả định tên công trình), có số liệu đầy đủ thì mới thuận tiện cho người giúp (không ai rãnh để nhập dữ liệu giùm cho bạn).

 

[vuthao32]

Nhờ Anh Hoài giúp em với:
Cái PA thu vụ 10 hôm trước anh lam cho em rất OK rồi em rất cám ơn nhưng bây giờ có vấn đề phát sinh là nó tăng thêm lên mấy thôn nữa nhưng ở phần phiếu thu chổ có nốt bấm chọn thôn lại mặc định là 8 thôn bây giờ em muốn thêm vào thì làm như thế náo anh có thể chỉ giúp cho em với được không anh?
Cám ơn anh nhiều

 

[vuthao32]

Nhờ Anh Hoài giúp em với:
Cái PA thu vụ 10 hôm trước anh lam cho em rất OK rồi em rất cám ơn nhưng bây giờ có vấn đề phát sinh là nó tăng thêm lên mấy thôn nữa nhưng ở phần phiếu thu chổ có nốt bấm chọn thôn lại mặc định là 8 thôn bây giờ em muốn thêm vào thì làm như thế nào, Và anh giúp em làm một cái tổng hợp phương án . Là khi mình bấm vào nút tổng hợp phương án thì tất cả nó sẽ tự tổng hợp sang như biểu mẫu mình có sẵnanh có thể chỉ giúp cho em với được không anh?
Cám ơn anh nhiều
Em tải lên đây anh giúp em với nhé:

 

[vuthao32]

em nhờ anh sửa hộ em với nhé

 

[be_09]

em nhờ anh sửa hộ em với nhé

Hổm rày anh bận sắp xếp hồ sơ chuẩn bị bàn giao để chuyển phòng và nhận nhiệm vụ mới nên chưa rảnh để giúp em, qua đầu tháng 4 nhận nnhiệm vụ mới xong anh sẽ giúp.

 

[viehoai]

em nhờ anh sửa hộ em với nhé

File này mình đã làm cho bạn rồi, sao còn hỏi nữa nhỉ?

 

[vuthao32]

cái này em nhờ anh lập cho em cai from nhập dữ liệu anh ạ dò để nhập từng hộ một vừa chậm lại hay bị nhâm anh ạ

 

[viehoai]

cái này em nhờ anh lập cho em cai from nhập dữ liệu anh ạ dò để nhập từng hộ một vừa chậm lại hay bị nhâm anh ạ

Chẳng hiểu câu này (màu đỏ) nói gì
File đã đưa rồi bạn tải lại làm gì cho mất tài nguyên diễn đàn?

 

[vuthao32]

em muốn nhờ anh lập cho em cai from để nhập dữ liệu vào các thôn cho đỡ bị nhầm vì em nhập vào từng hộ hay bị nhầm quá cái file em gửi lên đã vẽ cài from đó rồi đó anh
Anh tải về cái em vừa gửi lên đó anh. Anh cố gắng giúp em với nhé

 

[viehoai]

em muốn nhờ anh lập cho em cai from để nhập dữ liệu vào các thôn cho đỡ bị nhầm vì em nhập vào từng hộ hay bị nhầm quá cái file em gửi lên đã vẽ cài from đó rồi đó anh
Anh tải về cái em vừa gửi lên đó anh. Anh cố gắng giúp em với nhé

Bạn thiết kế form được không? rồi tôi sẽ viết code giúp bạn
Nhưng nhìn mẫu form khó hiểu sao a. Bạn nêu thêm ý muốn form đó
Nghĩa là ban đầu bạn nhập gì rồi kết quả cần gì trên Form?
---------
Ah, tôi hiểu cơ bản rồi đấy, nhưng bạn phải chờ kết quả

 

[viehoai]

em muốn nhờ anh lập cho em cai from để nhập dữ liệu vào các thôn cho đỡ bị nhầm vì em nhập vào từng hộ hay bị nhầm quá cái file em gửi lên đã vẽ cài from đó rồi đó anh
Anh tải về cái em vừa gửi lên đó anh. Anh cố gắng giúp em với nhé

Bạn xem file đúng ý bạn không nhé

 

[vuthao32]

Em xem rồi em lập lại cái from anh giúp em với nhé cái của anh lập em mở lên nó báo lỗi gì ấy anh ạ.
Anh giúp em lập lại với nhé

 

[viehoai]

Em xem rồi em lập lại cái from anh giúp em với nhé cái của anh lập em mở lên nó báo lỗi gì ấy anh ạ.
Anh giúp em lập lại với nhé

Làm theo ý bạn đây. Trên cơ sở đó bạn cứ làm yiếp đi nhé

 

[viehoai]

Bạn trao đổi trực tiếp lên đây, tin nhắn đôi lúc tôi khô để ý đâu
Bạn nói file bị lỗi cụ thể như thế nào?

 

[vuthao32]

khi em bấm vào cho load from thì nó chạy luôn vào vb và bảo lỗi dòng này Private Sub TextBox1_Change() và dòng này Me.Spreadsheet1.Range("a4:G4").Value = Arr1 mầu vàng anh xem giúp em theo cai from em lập ấy được không anh?
(anh co nic yahoo không cho em xin em gui pass va id Teamviewer) em mở cho anh xem