Form nhập dữ liệu cho ra 2 bảng kết quả (1 người xem)

[pl2906]

Nhờ các bạn chỉ giúp.

Bảng dữ liệu của tôi có cột A có giá trị không đổi, các cột B, C, D, E, F có giá trị biến đổi.
Tôi muốn làm 1 form nhập dữ liệu để có thể tạo ra 2 bảng kết quả như sau:
Bảng 1: Các giá trị thực hiện tại
Bảng 2: Các giá trị đã được nhập cho đến hiện tại.
Nhờ các bạn hướng dẫn thêm cho tôi lệnh tìm kiếm và sửa lỗi(trong trường nhập sai) để gép vào Form.
Hiện tại tôi mới chỉ biết làm bảng số 2 với CODE như dưới đây.

Sub Nhapdulieu()
　　Dim LastRow As Long
　　With Worksheets("Sheet2")
　　　　LastRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
　　　　.Range("A" & LastRow).Value = Worksheets("Sheet1").Range("A2").Value
　　　　.Range("B" & LastRow).Value = Worksheets("Sheet1").Range("B2").Value
　　　　.Range("C" & LastRow).Value = Worksheets("Sheet1").Range("C2").Value
　　　　.Range("D" & LastRow).Value = Worksheets("Sheet1").Range("D2").Value
　　　　.Range("E" & LastRow).Value = Worksheets("Sheet1").Range("E2").Value
　　　　.Range("F" & LastRow).Value = Worksheets("Sheet1").Range("F2").Value
　　End With

　　With Worksheets("Sheet1")
　　　　Range("A2").Value = ""
　　　　Range("B2").Value = ""
　　　　Range("C2").Value = ""
　　　　Range("D2").Value = ""
　　　　Range("E2").Value = ""
　　　　Range("F2").Value = ""
　　End With

End Sub

 

[phucbugis]

Nhờ các bạn chỉ giúp.
...

chào bạn,
- mình đọc xong #1 + đã xem file nhưng chưa hiểu lắm,
- cột A có giá trị không đổi ? --> tại Sheet1 thì ko có số liệu gì cả vậy giá trị ko đổi này là 1 row hay nhiều row?
---> bạn tạo thêm 1 ít số liệu thực tế để mọi người dễ hình dung hơn.

'- - -
có phải bạn đang tạo 1 file theo dõi việc thuê phòng
(bạn tải file đính kèm, tham khảo form đó xem sao)

Link: https://www.mediafire.com/?0z7jaymd9c6p3wj

 

[leonguyenz]

Nhờ các bạn chỉ giúp.
Bảng dữ liệu của tôi có cột A có giá trị không đổi, các cột B, C, D, E, F có giá trị biến đổi.
Tôi muốn làm 1 form nhập dữ liệu để có thể tạo ra 2 bảng kết quả như sau:
Bảng 1: Các giá trị thực hiện tại
Bảng 2: Các giá trị đã được nhập cho đến hiện tại.
Nhờ các bạn hướng dẫn thêm cho tôi lệnh tìm kiếm và sửa lỗi(trong trường nhập sai) để gép vào Form.
Hiện tại tôi mới chỉ biết làm bảng số 2 với CODE như dưới đây.

Thử lệnh tìm kiếm với phương thức Find xem, tham khảo (code đặt trong Sheet1)
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fnd As Range
If Not Intersect(Target, [A2]) Is Nothing Then
Set Fnd = Sheet2.[A:A].Find(Target.Value, , xlValues, xlWhole)
If Not Fnd Is Nothing Then
Fnd.Offset(, 1).Resize(1, 5).Copy Target.Offset(, 1)
Else
Target.Offset(, 1).Resize(1, 5).ClearContents
End If
End If
End Sub
[/gpecode]

 

[pl2906]

Mình đã xem thử nhưng không thấy các lệnh của form, nên chưa hiểu cơ chế hoạt động của nó thế nào.

Về Form mình muốn làm,
Ví dụ mình có 1 khách sạn mini 5 tầng, mỗi tầng 5 phòng.
Cột A là cột khách ghi số phòng cố định không thay đổi. các cột B,C,D,E,F là các cột có giá trị biển đổi theo khách đặt phòng.
Mình muốn làm 1 file quản lý như sau:
Bảng 1: Thể hiện hiện trạng các phòng: Tên khách và số điện thoại
Bảng 2: Ghi chi tiết các thay đổi. Ví dụ khi có khách vào đặt phòng, Ở bảng 1 chỉ hiện tên khách đang thuê hiện tại, nhưng tra cứu bảng 2 sẽ biết được khách đặt phòng trước đó...
Cách lập bảng số 2 hiện nay mình đã làm được, còn làm Bảng 1, ghi lại thay đổi và ghi vào ô cố định(VD ô A3= phòng 201; B3 tên khách...) thì mình chưa biết cách làm

 

[pl2906]

Thanks leonguyenz
Mình đã cho chạy thử trong Sheet1 nhưng nó không hoạt động. Có lẽ mình làm chưa đúng cách?

 

[leonguyenz]

Thanks leonguyenz
Mình đã cho chạy thử trong Sheet1 nhưng nó không hoạt động. Có lẽ mình làm chưa đúng cách?

Bạn thử gõ số phòng đã có trong sheet2 vào ô A2 ở sheet1 thử xem. Đây là dùng phương thức Find, bạn tham khảo xem có áp dụng được hay không, thực tế số phòng sẽ được nhập nhiều lần, Find chỉ tìm được 1 giá trị đầu thôi. Còn bạn nói Form thì lại khác, vẽ Form ra rồi thực hiện trên Form.

 

[pl2906]

Thanks leonguyenz

Mình đã làm lại mẫu Fom như mình muốn theo dõi theo góp ý của leonguyenz.
leonguyenz có thể hướng dẫn mình làm sao để
1/ khi kết quả được nhập vào sẽ hiện lên ở Bảng 1"Hiện trạng thuê phòng" và cũng được ghi ở Bảng 2 "theo dõi tổng hợp" không?
2/ Trường hợp chưa check out thì ô check out sẽ được để trống, làm sao để cửa sổ msg hiện lên nhưng vẫn cho ghi kết quả?

Cám ơn sự giúp đỡ của leonguyenz

 

[leonguyenz]

Thanks leonguyenz

Mình đã làm lại mẫu Fom như mình muốn theo dõi theo góp ý của leonguyenz.
leonguyenz có thể hướng dẫn mình làm sao để
1/ khi kết quả được nhập vào sẽ hiện lên ở Bảng 1"Hiện trạng thuê phòng" và cũng được ghi ở Bảng 2 "theo dõi tổng hợp" không?
2/ Trường hợp chưa check out thì ô check out sẽ được để trống, làm sao để cửa sổ msg hiện lên nhưng vẫn cho ghi kết quả?

Cám ơn sự giúp đỡ của leonguyenz

Tôi làm sẵn Form, bạn xem có dùng được hay không.
Check In, Out: Double Click vào để lấy thời gian hệ thống.

 

[pl2906]

Rất cám ơn leonguyenz về giải đáp của bạn.
Mình tải về và xin phép tìm hiểu các code, các thủ thuật của bạn. Nếu có j không hiểu sẽ hờ bạn giải thích giúp.

Xin cám ơn bạn nhiều