Hướng dẫn cách nhập dữ liệu của phiếu điều tra - Lần 2 (2 người xem)

[nhatnam]

Em chào anh/chị trên 4R

Hiện nay em đang cần nhập số liệu nhưng em lại mù tịt về VBA nên không thể làm được.

Em lại phải nhờ anh/chị giúp em 1 lần nữa. Em rất mong nhận được sự giúp đỡ của anh chị.

File đính kèm của em ở dưới.

Rất mong nhận được sự giúp đỡ của anh/chị.

Xin trân trọng cảm ơn!

 

[nhatnam]

thanks anh meoluoi!

cách nhập của anh rất hay nhưng nếu có thể anh viết thêm cho em 1 đoạn code nữa để làm sao khi nhập đến ô cuối cùng thì con nhảy lên phía trên đầu để tiếp tục nhập dữ liệu ở phiếu điều tra kế tiếp
thanks anh

 

[ptm0412]

còn trong bảng tính thì mình chưa biết lệnh con trò về ô G10

Với nút New, thêm câu này:

Sheets("thongtin").[g10].Select

Với nút Save, thêm 2 câu này:

Sheets("thongtin").[g10].Select
ActiveWindow.ScrollRow = 7

 

[huuthang_bd]

Code của bạn meoluoi2010 cập nhật dữ liệu chưa đúng vị trí và còn nhiều câu lệnh dư. Tôi sửa lại như thế này, bạn xem thử xem.

Private Sub luu_Click()
Application.ScreenUpdating = False
If [G65536].End(xlUp).Address = "$G$9" Then
MsgBox "Ban chua nhap du lieu!"
GoTo ChuaNhapLieu
End If
    With Sheets("CAPNHAT").[BS65536].End(xlUp).Offset(1)
    [G10:G41].Copy
    .Offset(, -69).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    [G43:G79].Copy
    .Offset(, -37).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    .Value = Format(Now, "DD/MM/YYYY HH:MM:SS")
    End With
Application.ScreenUpdating = True
MsgBox "Cap nhat thang cong!"
ChuaNhapLieu:
Moi_click
End Sub

Private Sub Moi_click()
Application.ScreenUpdating = False
    [G10:G79].ClearContents
Application.ScreenUpdating = True
    [G10].Select
End Sub

 

[nhatnam]

Thanks các anh/chị trên 4R.
rất mong được gặp và cảm ơn anh/chị