Nhờ sửa vùng dữ liệu của code VB form nhập liệu (2 người xem)

[ntquantn]

Chào các bạn,

Mình có đoạn code như bên dưới dùng để tạo form nhập liệu. Dữ liệu liệu mình muốn nhập vào các cột B,C, -->H và Cột M, bắt đầu từ hàng thứ 10 trở đi.
Vấn đề của mình là các cột A, J,K... thì mình đã để sẵn công thức nên khi sử dụng đoạn code trên thì dữ liệu nhập vào nhảy xuống dòng dưới cùng +1 (là dòng mình không đặt công thức tại các cột A,I,J,K...)

Rất mong các bạn sửa giúp mình đoạn code này.

P/s: Mình mù tịt về VB, đoạn code này là mình học từ 1 clip hướng dẫn trên mạng, và chỉnh sửa một chút theo nhu cầu.

Private Sub btnDHT_Click()
Dim EndR As Long
With Sheets("Banle")
EndR = .Range("B" & Rows.Count).End(xlUp).Row
.Range("B" & EndR + 1) = txtNgayBL.Text
.Range("C" & EndR + 1) = txtKHBL.Text
.Range("D" & EndR + 1) = txtPhoneBL.Text
.Range("E" & EndR + 1) = txtADDbl.Text
.Range("F" & EndR + 1) = txtNoteBL.Text
.Range("G" & EndR + 1) = txtMABL.Text
.Range("H" & EndR + 1) = txtSLBL.Text
.Range("M" & EndR + 1) = txtKMBL.Text
End With
Dim ctr As Control
For Each ctr In Me.Controls
If TypeName(ctr) = "Textbox" Then
ctr.Text = ""
End If
Next ctr
txtNgayBL.SetFocus
End Sub

Private Sub btnDong_Click()
Unload Me
End Sub

Private Sub btnSPT_Click()
Dim EndR As Long
With Sheets("Banle")
EndR = .Range("B" & Rows.Count).End(xlUp).Row
.Range("B" & EndR + 1) = txtNgayBL.Text
.Range("C" & EndR + 1) = txtKHBL.Text
.Range("D" & EndR + 1) = txtPhoneBL.Text
.Range("E" & EndR + 1) = txtADDbl.Text
.Range("F" & EndR + 1) = txtNoteBL.Text
.Range("G" & EndR + 1) = txtMABL.Text
.Range("H" & EndR + 1) = txtSLBL.Text
.Range("M" & EndR + 1) = txtKMBL.Text
End With
txtMABL.Text = ""
txtSLBL.Text = ""
txtKMBL.Text = ""
Dim ctr As Control
For Each ctr In Me.Controls
If TypeName(ctr) = "Textbox" Then
ctr.Text = ""
End If

Next ctr
txtMABL.SetFocus
End Sub

 

[ntquantn]

Để tiếp tục, tác giả bài đăng cần cho biết:

(.) Số lương khách hàng nới bạn;
(.) Số lương mặt hàng hiện giờ hay trong tương lai gần;
(.) Số hóa đơn thường fải lập trong 1 ngày.

& Nên nhớ rằng thiết kế cấu trúc các trang dữ liệu hoàn hảo rồi mới đi đến việc xử lí dữ liệu. Mình thấy rằng cấu trúc dữ liệu của bạn đang có vấn đề
Thêm nữa, trong Excel ơới dự định xài VBA không nên trộn ô.

Về nội dung bố cục file excel của mình (Mình đã làm hoàn thiện xong theo nhu cầu của mình nhưng khá nặng ~ 3Mb) trong đó có

1. Sheet data : gồm mã, tên sản phẩm, đơn vị, đơn giá tương ứng (hiện tại có khoảng 150 mã, dự kiến sẽ còn tăng thêm nữa) tại sheet này phải nhập dữ liệu thủ công
2. Sheet nhập kho: gồm có các tên, mã tương ứng như sheet data và theo dõi lượng hàng nhập vào. Số lượng hàng sẽ đc nhập theo ngày.
3 Sheet tồn kho: Theo dõi tồn kho (trong đó có mục tồn đầu kỳ thì phải nhập thủ công, còn xuất trong kỳ thì lấy dữ liệu từ sheet bán lẻ, nhập trong kỳ lấy từ sheet nhập kho)
4. Sheet Bán lẻ: Gồm các thông tin về khách hàng và đơn hàng (trong đó thông tin khách hàng thì phải nhập thủ công). Thông tin đơn hàng thì chỉ cần nhập mã hàng, số lượng và khuyến mại (nếu có) --Tự tạo số hóa đơn (không trùng nhau, dựa vào thông tin ngày, khách hàng)
5. Sheet Hóa đơn: chỉ cần chọn số hóa đơn rồi in
6. Sheet nhật ký chi: Ghi nhật ký chi thanh toán mua bán....-->nhập thủ công hoàn toàn
7. các Sheet còn lại (Lương, chi hoạt động, mua sắm thiết bị, tổng kết....): đều chỉ là lọc lấy dữ liệu từ các sheet trên

Do người nhập là đứa em rất kém về kỹ năng sử dụng nên mình đặt công thức sẵn cho toàn bộ file nên file khá nặng. Nên mình muốn xử lý lại cho file nhẹ nhàng thuận lợi hơn khi sử dụng. càng ít thao tác càng tốt. Ví dụ như mình đang muốn đặt cái nút in tại sheet hóa đơn để khi chọn số hóa đơn là bấm in đc ngay.

 

[Hoang2013]

File của bạn giống như 1 fần mềm rồi! Nhưng như vậy ta fải bỏ hầu hết các công thức đi & chuyển sang xài VBA mới mong nhẹ gánh.

So với file ban đầu thì là chuyện khác hoàn toàn rồi; & như vậy mình không đủ khả năng tiếp tục nữa.

Mong bạn thông cảm!

 

[huuthang_bd]

Về nội dung bố cục file excel của mình (Mình đã làm hoàn thiện xong theo nhu cầu của mình nhưng khá nặng ~ 3Mb) trong đó có

1. Sheet data : gồm mã, tên sản phẩm, đơn vị, đơn giá tương ứng (hiện tại có khoảng 150 mã, dự kiến sẽ còn tăng thêm nữa) tại sheet này phải nhập dữ liệu thủ công
2. Sheet nhập kho: gồm có các tên, mã tương ứng như sheet data và theo dõi lượng hàng nhập vào. Số lượng hàng sẽ đc nhập theo ngày.
3 Sheet tồn kho: Theo dõi tồn kho (trong đó có mục tồn đầu kỳ thì phải nhập thủ công, còn xuất trong kỳ thì lấy dữ liệu từ sheet bán lẻ, nhập trong kỳ lấy từ sheet nhập kho)
4. Sheet Bán lẻ: Gồm các thông tin về khách hàng và đơn hàng (trong đó thông tin khách hàng thì phải nhập thủ công). Thông tin đơn hàng thì chỉ cần nhập mã hàng, số lượng và khuyến mại (nếu có) --Tự tạo số hóa đơn (không trùng nhau, dựa vào thông tin ngày, khách hàng)
5. Sheet Hóa đơn: chỉ cần chọn số hóa đơn rồi in
6. Sheet nhật ký chi: Ghi nhật ký chi thanh toán mua bán....-->nhập thủ công hoàn toàn
7. các Sheet còn lại (Lương, chi hoạt động, mua sắm thiết bị, tổng kết....): đều chỉ là lọc lấy dữ liệu từ các sheet trên

Do người nhập là đứa em rất kém về kỹ năng sử dụng nên mình đặt công thức sẵn cho toàn bộ file nên file khá nặng. Nên mình muốn xử lý lại cho file nhẹ nhàng thuận lợi hơn khi sử dụng. càng ít thao tác càng tốt. Ví dụ như mình đang muốn đặt cái nút in tại sheet hóa đơn để khi chọn số hóa đơn là bấm in đc ngay.

Từ không biết gì mà 2 tuần làm ra cái file này thì đúng là đại tài.

 

[ntquantn]

Từ không biết gì mà 2 tuần làm ra cái file này thì đúng là đại tài.

Bạn không tin sao??? Mình có thấy gì là đại tài đâu nhỉ??? Các lệnh trong file cũng là mình xem các file mẫu, clip hướng dẫn rồi cop nhặt chỉnh sửa theo nhu cầu của mình thôi mà?

 

[ntquantn]

File của bạn giống như 1 fần mềm rồi! Nhưng như vậy ta fải bỏ hầu hết các công thức đi & chuyển sang xài VBA mới mong nhẹ gánh.

So với file ban đầu thì là chuyện khác hoàn toàn rồi; & như vậy mình không đủ khả năng tiếp tục nữa.

Mong bạn thông cảm!

Mình vẫn chưa hiểu lắm cơ chế hoạt động khi dùng vb làm userform. Mục đích của mình vẫn chỉ là nhập liệu các thông tin bán hàng (ngày tháng, khách hàng, đơn hàng..) như ở file đầu tiên mình post.

Mình đang xem bài này http://www.giaiphapexcel.com/diendan/threads/hỏi-cách-tạo-2-combobox-phụ-thuộc-nhau.66539/

Trong đó có bài mà bạn huuthang_bd đã làm rất hay, và giống giống với nhu cầu của mình, cơ mà mình copy về rồi chỉnh sửa mãi mà không chạy được hic

 

[ntquantn]

Mình tạo post mới tại link này
http://www.giaiphapexcel.com/dienda...a-in-ra-file-và-xuất-vùng-in-sang-pdf.129967/

Xin nhờ các bạn xem và sửa giúp nhé

Mình cảm ơn nhiều