Nhờ chỉnh sửa Code cho Form nhập liệu (1 người xem)

[tiendungnst]

Private Sub cmdThem_Click()Dim RowCount As Long
Dim ctl As Control
Worksheets("DATA").Range("B17:H17").ClearContents
'Write data to worksheet
RowCount = Worksheets("DATA").Range("B16").CurrentRegion.Rows.Count
With Worksheets("DATA").Range("B16")
.Offset(RowCount, 0).Value = Me.cbxNguoinhanBC.Value
.Offset(RowCount, 1).Value = Me.txtNguoilapBC.Value
.Offset(RowCount, 2).Value = Me.txtNguoiduyetBC.Value
.Offset(RowCount, 3).Value = Me.cbxChucdanhduyetBC.Value
.Offset(RowCount, 4).Value = Me.txtNgaylapBC.Value
.Offset(RowCount, 5).Value = Me.txtSothangBC.Value
.Offset(RowCount, 6).Value = Me.txtThoigianBC.Value
End With
Unload Me
End Sub

MAU1"Đây là Code để nhập dữ liệu từ Form, nhưng có hạn chế là khi Click nút "nhập thông tin" ở Sheet "MAU 1" thì phải nhập đầy đủ tất cả thông tin ở các Cell, nếu ô nào ko nhập thì Code xóa luôn thông tin cũ và Cell đó rỗng

Nhu cầu của mình là muốn sửa đoạn code để nếu chỉ cần cập nhật thông tin cho một Cell nào đó thì chỉ có tác dụng ở Cell ấy, các Cell khác giữ nguyên thông tin cũ, hoặc nếu cần nhập tất cả Thông tin mới thì nhập tất cả để thay đổi tất cả các Cell

Hoặc nhờ mọi người có thể sửa Code theo cách: khi mở Form thì sẽ hiện những thông tin của các Cell hiện có, nếu cần thay đổi thông tin ở Cell nào thì thay đổi, nếu kiểm tra không cần phải thay đổi thông tin gì thì End Sub vẫn giữ lại các thông tin như cũ

Tải File đính kèm không được, các bạn xem file ở link sau nhé: https://drive.google.com/file/d/0B7dYUGZOAAcUSTc4aFVoUGlfTXc/view?usp=sharing

 

[giaiphap]

Private Sub cmdThem_Click()Dim RowCount As Long
Dim ctl As Control
Worksheets("DATA").Range("B17:H17").ClearContents
'Write data to worksheet
RowCount = Worksheets("DATA").Range("B16").CurrentRegion.Rows.Count
With Worksheets("DATA").Range("B16")
.Offset(RowCount, 0).Value = Me.cbxNguoinhanBC.Value
.Offset(RowCount, 1).Value = Me.txtNguoilapBC.Value
.Offset(RowCount, 2).Value = Me.txtNguoiduyetBC.Value
.Offset(RowCount, 3).Value = Me.cbxChucdanhduyetBC.Value
.Offset(RowCount, 4).Value = Me.txtNgaylapBC.Value
.Offset(RowCount, 5).Value = Me.txtSothangBC.Value
.Offset(RowCount, 6).Value = Me.txtThoigianBC.Value
End With
Unload Me
End Sub

MAU1"Đây là Code để nhập dữ liệu từ Form, nhưng có hạn chế là khi Click nút "nhập thông tin" ở Sheet "MAU 1" thì phải nhập đầy đủ tất cả thông tin ở các Cell, nếu ô nào ko nhập thì Code xóa luôn thông tin cũ và Cell đó rỗng

Nhu cầu của mình là muốn sửa đoạn code để nếu chỉ cần cập nhật thông tin cho một Cell nào đó thì chỉ có tác dụng ở Cell ấy, các Cell khác giữ nguyên thông tin cũ, hoặc nếu cần nhập tất cả Thông tin mới thì nhập tất cả để thay đổi tất cả các Cell

Hoặc nhờ mọi người có thể sửa Code theo cách: khi mở Form thì sẽ hiện những thông tin của các Cell hiện có, nếu cần thay đổi thông tin ở Cell nào thì thay đổi, nếu kiểm tra không cần phải thay đổi thông tin gì thì End Sub vẫn giữ lại các thông tin như cũ

Tải File đính kèm không được, các bạn xem file ở link sau nhé: https://drive.google.com/file/d/0B7dYUGZOAAcUSTc4aFVoUGlfTXc/view?usp=sharing

Thì bạn kiểm tra dữ liệu có không hả ghi vào, nếu dữ liệu rỗng thì đừng ghi vào ô. Cụ thể trong code của bạn, giả sử muốn ghi dữ liệu của Me.cbxDonviBC.Value vào ô thì bạn kiểm tra trước như sau:

If Not (Me.cbxDonviBC.Value = vbNullString) Then .Offset(RowCount, 0).Value = Me.cbxDonviBC.Value

Những ô khác kiểm tra tương tự

 

[tiendungnst]

Thì bạn kiểm tra dữ liệu có không hả ghi vào, nếu dữ liệu rỗng thì đừng ghi vào ô. Cụ thể trong code của bạn, giả sử muốn ghi dữ liệu của Me.cbxDonviBC.Value vào ô thì bạn kiểm tra trước như sau:

If Not (Me.cbxDonviBC.Value = vbNullString) Then .Offset(RowCount, 0).Value = Me.cbxDonviBC.Value

Những ô khác kiểm tra tương tự

Bạn có thể giúp mình sửa code để khi Mở Form nhập liệu thì trên Form hiển thị những thông tin đang có được ko?