Cần giúp về nhập liệu (1 người xem)

[nguyenmanhhao]

Nhờ các anh chị trên diễn đàn giúp tôi:
Tôi có 1 danh sách sử dụng điện hàng tháng gồm có:
Cột 1: Thứ tự
Cột 2: Họ tên
Cột 3: Địa chỉ
Cột 4: Điện thoại
Cột 5: Điện sinh hoạt (trong đó chia ra làm 2 cột là CHỉ số đầu và chỉ số cuối)
Cột 7: Điện kinh doanh (trong đó chia ra làm 2 cột là CHỉ số đầu và chỉ số cuối)
Cột 9: Điện công cộng (trong đó chia ra làm 2 cột là CHỉ số đầu và chỉ số cuối)
Vậy các anh chị tạo giúp form nhập liệu với yêu cầu:
Khi form xuất hiện và đánh số thứ tự là 1, thì họ tên, địa chỉ, số điện thoại, chỉ số đầu và chỉ số cuối của 3 loại điện trên để lấy chỉ số cuối của tháng trước thay cho chỉ số đầu tháng này và nhập chỉ số cuối của tháng này. Sau đó nhấn lưu và số liệu cập nhật mới sẽ thay thế số liệu cũ ở danh sách cố định (với điều kiện họ tên, địa chỉ, số điện thoại không thay đổi).
Rất mong sự giúp đỡ của các anh chị trên diễn đàn, tôi rất kém về VBA.
Thân

 

[MinhNguyệt]

Nhờ các anh chị trên diễn đàn giúp tôi:
Tôi có 1 danh sách sử dụng điện hàng tháng gồm có:
Cột 1: Thứ tự
Cột 2: Họ tên
Cột 3: Địa chỉ
Cột 4: Điện thoại
Cột 5: Điện sinh hoạt (trong đó chia ra làm 2 cột là CHỉ số đầu và chỉ số cuối)
Cột 7: Điện kinh doanh (trong đó chia ra làm 2 cột là CHỉ số đầu và chỉ số cuối)
Cột 9: Điện công cộng (trong đó chia ra làm 2 cột là CHỉ số đầu và chỉ số cuối)
Vậy các anh chị tạo giúp form nhập liệu với yêu cầu:
Khi form xuất hiện và đánh số thứ tự là 1, thì họ tên, địa chỉ, số điện thoại, chỉ số đầu và chỉ số cuối của 3 loại điện trên để lấy chỉ số cuối của tháng trước thay cho chỉ số đầu tháng này và nhập chỉ số cuối của tháng này. Sau đó nhấn lưu và số liệu cập nhật mới sẽ thay thế số liệu cũ ở danh sách cố định (với điều kiện họ tên, địa chỉ, số điện thoại không thay đổi).
Rất mong sự giúp đỡ của các anh chị trên diễn đàn, tôi rất kém về VBA.
Thân

Bạn sử dụng cái này xem sao nhé
Thân

 

[quylx12345678]

Xin Chào Minh Nghuyet
File cau ban rất hay
Cho mình hỏi làm thế nào mà ban ấn định được biến data cho một vùng dữ liệu vậy?

 

[langthangmang]

Xin Chào Minh Nghuyet
File cau ban rất hay
Cho mình hỏi làm thế nào mà ban ấn định được biến data cho một vùng dữ liệu vậy?

Bạn vào Insert / Name / Define --> Chọn data xem công thức ở hộp Refers to :
Đây là công thức tham chiếu
Thân

 

[nguyenmanhhao]

Hỏi thêm

Xin hỏi Minh Nguyệt là bạn vẽ nút lưu ntn? Chỉ cho mình biết nhé.
Thanhks

 

[langthangmang]

Bạn vào View / ToolBars / ControlToolbox . Trong thanh ControlToolbox Click chọn cái nào có tên là Command Button kéo ra ngoài, vẽ theo kích thước tùy ý.
Muốn có chữ " LUU " như trong file trên. Bạn Clịck trong Thanh ControlToolbox biểu tượng Properties kiếm Caption nhập bên cạnh ..... sau đó đóng.
Nhớ Exit Design Mode
Nếu bạn muốn biết nhiều hơn nữa thì phải VB thôi.

Chào bạn Minh Nguyệt

Bạn sử dụng cái này xem sao nhé
Thân

File của bạn làm giúp cho Bạn nguyenmanhhao rất hay, nhưng mình thấy có điểm là khi
không nhập liệu lỡ tay bấm " LUU "
Do đoạn code
Cells(n + 4, i) = Cells(i + 9, 14)
thì nó sẽ xóa cả tiêu đề Đầu Cuối
nên chăng sử dụng thêm
If Cells(10, 14) = "" Then
MsgBox " Ban Chua Nhap STT"
Else
...........
...............
.............
end if
....
Mình biết rất ít về VB nên không biết điều mình nói có hợp lí không ?
Thân

 

[nguyenmanhhao]

Nhờ giúp đỡ

Xin chào bạn langthangmang.
Mình áp dụng cách của bạn Minh Nguyệt tạo form để nhập liệu, nhưng khi mình làm cái form đó ở một sheet khác và nhập dữ liệu lưu vào 1 sheet khác thì lại không thực hiện được. Bạn sửa lại code giúp mình đươc không. (Ý của mình là tạo 1 form nhập liệu ở sheet khác mà không phải là tại sheet danh sách).
Thanhks

 

[langthangmang]

Chào bạn nguyenmanhhao

Xin chào bạn langthangmang.
Mình áp dụng cách của bạn Minh Nguyệt tạo form để nhập liệu, nhưng khi mình làm cái form đó ở một sheet khác và nhập dữ liệu lưu vào 1 sheet khác thì lại không thực hiện được. Bạn sửa lại code giúp mình đươc không. (Ý của mình là tạo 1 form nhập liệu ở sheet khác mà không phải là tại sheet danh sách).
Thanhks

Mình nói trước nhé về kiến thức Lập trình VBA mình chỉ ABC thôi. Nếu muốn áp dụng file của bạn Minh Nguyệt bạn phải hiểu Code đó viết như thế nào ( .... ) chứ mình không thể máy móc chép code đó cho cơ sở dữ liệu khác của mình được. Bạn thử Up file của bạn lên để các bạn giỏi VBA trên diển đàn giúp cho. Mình cũng cố thử xem sao
Thân

 

[nguyenmanhhao]

Bạn Minh Nguyệt à. Giúp mình cái form nhập liệu này đi. Minh muốn làm form ở một sheet khác mà không phải tại sheet có danh sách. Bạn sửa lại code giúp mình nhé.
Thanhks

langthangmang à.
Vấn đề của mình thì không khác so với sự giúp đỡ của MinhNguyệt mà chỉ khác ở chỗ, mình không làm form nhập liệu cùng với cái danh sách đó mà mình muốn làm form ở 1 sheet khác nhưng khi mình nhấn lưu thì nó vẫn lưu ở sheet danh sách, nhưng mình chưa biết cách sửa code. Bạn giúp mình đi nhé.

 

[MinhNguyệt]

Bạn Minh Nguyệt à. Giúp mình cái form nhập liệu này đi. Minh muốn làm form ở một sheet khác mà không phải tại sheet có danh sách. Bạn sửa lại code giúp mình nhé.
Thanhks

Bạn xem file đính kèm. Nhập liệu ở Sheet Form, nhấn nút Luu, kết quả được chuyển sang lưu ở Sheet DanhSach.
Thân

 

[hoangngoc72007]

sao mình nhấn nút lưu không được nhỉ

 

[MinhNguyệt]

sao mình nhấn nút lưu không được nhỉ

Tools/Macro/Security chọn Medium
Tắt Excel, mở lại file , chọn Enabled Macro

 

[hoangngoc72007]

mình muốn tạo một form nhập liệu như thế này nhưng đọc tài liệu chẳng thấy chổ nào hướng dẫn cả bạn nào biết chỉ với

 

[MinhNguyệt]

mình muốn tạo một form nhập liệu như thế này nhưng đọc tài liệu chẳng thấy chổ nào hướng dẫn cả bạn nào biết chỉ với

Đây là dạng Form trên Sheet, bạn cứ search trên diễn đàn là có. Hoặc bạn nhấn Alt+F11 để xem code viết trong đó là gì rồi tự nghiên cứu thêm
Ngoài ra còn có UserForm nữa

 

[nguyenmanhhao]

Bạn Minh Nguyệt à.
Cảm ơn bạn nhé. Tôi đã làm được rồi. Mấy hôm trước lên mạng để nói mấy lời cảm ơn nhưng mạng của đơn vị bị rớt nên không làm được. Một lần nữa cảm ơn bạn nhiều, hy vọng nhận được nhiều sự giúp đỡ của bạn khi cần.
Thanhks

 

[1975hocmai]

CHo em hỏi thêm

Em cũng làm 1 File và vào VBA, copy lệnh rồi dán vào Sheet1 và Sheet 4. Nhưng không được. Cho em hỏi ngoài việc viết Code vào các Sheet còn cần phải làm động tác gì nữa?

 

[manhhung12]

http://www.giaiphapexcel.com/forum/showthread.php?t=27914
Em xem ở bài của anh gửi, để tham khảo.