Hỏi đáp về trình nhập dữ liệu thông tin

bitun1991 · 16/3/23

Em xin chào các anh các chị,

Hiện em đang phải nhập liệu bằng tay ở Sheet "Thông Tin" theo hàng ngang khá là vất vả
Em đang Muốn Nhập theo hàng dọc ở sheet "Dữ Liệu" rồi ấn nút "Nhập Liệu' để Copy sang sheet "Thông tin" theo đúng số thứ tự

Sau khi ấn nút "Nhập Liệu" Em muốn như sau ạ:
1. số thứ tự +1 tự động nhảy 1,2,3,4 theo thứ tự ạ
2. Những chỗ bôi vàng sẽ tự động xóa đi ạ

em có gửi kèm file nhờ các anh chị hỗ trợ em với ạ.
Em xin cám ơn!
và chúc các anh chị một ngày tốt lành ạ!

Thóc Sama · 16/3/23

bitun1991 đã viết:
Em xin chào các anh các chị,

Hiện em đang phải nhập liệu bằng tay ở Sheet "Thông Tin" theo hàng ngang khá là vất vả
Em đang Muốn Nhập theo hàng dọc ở sheet "Dữ Liệu" rồi ấn nút "Nhập Liệu' để Copy sang sheet "Thông tin" theo đúng số thứ tự

Sau khi ấn nút "Nhập Liệu" Em muốn như sau ạ:
1. số thứ tự +1 tự động nhảy 1,2,3,4 theo thứ tự ạ
2. Những chỗ bôi vàng sẽ tự động xóa đi ạ

em có gửi kèm file nhờ các anh chị hỗ trợ em với ạ.
Em xin cám ơn!
và chúc các anh chị một ngày tốt lành ạ!

Sao bạn không tạo Form nhập dữ liệu trực tiếp cho sheet mà phải nhập vào sheet này rồi chuyển qua sheet kia chi cho cực thế?!

bitun1991 · 16/3/23

THÓC SAMA đã viết:
Sao bạn không tạo Form nhập dữ liệu trực tiếp cho sheet mà phải nhập vào sheet này rồi chuyển qua sheet kia chi cho cực thế?!

công việc của công ty là nhập vào form tổng hợp như sheet thông tin anh ạ. chứ họ không có form trực tiếp ạ! e khổ lắm!

HUONGHCKT · 16/3/23

bitun1991 đã viết:
Em xin chào các anh các chị,

Hiện em đang phải nhập liệu bằng tay ở Sheet "Thông Tin" theo hàng ngang khá là vất vả
Em đang Muốn Nhập theo hàng dọc ở sheet "Dữ Liệu" rồi ấn nút "Nhập Liệu' để Copy sang sheet "Thông tin" theo đúng số thứ tự

Sau khi ấn nút "Nhập Liệu" Em muốn như sau ạ:
1. số thứ tự +1 tự động nhảy 1,2,3,4 theo thứ tự ạ
2. Những chỗ bôi vàng sẽ tự động xóa đi ạ

em có gửi kèm file nhờ các anh chị hỗ trợ em với ạ.
Em xin cám ơn!
và chúc các anh chị một ngày tốt lành ạ!

Tham khảo code sau:

Mã:

Option Explicit
Sub NutNhapDuLieu()
Dim R As Long
Dim t
If Not Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]) Is Nothing Then
 t = MsgBox(" SÔ PHIÊU NÀY ĐA CÓ DU LIÊU - BAN MUÔN SUA KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
    If t = vbYes Then
        R = Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]).Row
        Call Nhaplieu(R)
    End If
Else
 t = MsgBox(" SÔ PHIÊU NÀY NÀY CHUA CÓ DU LIÊU - BAN MUÔN NHAP KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
    If t = vbYes Then
        R = Sheets("ThongTin").Cells(Rows.Count, "B").End(xlUp).Row + 1
        Call Nhaplieu(R)
    End If
End If
End Sub
Sub Nhaplieu(ByVal R As Long)
Dim KQ(1 To 1, 1 To 57), d&, Rng As Range
With Sheets("NhapLieu")
        KQ(1, 1) = .[B2]: KQ(1, 2) = .[B3]
        KQ(1, 3) = .[B4]: KQ(1, 4) = .[B5]
        KQ(1, 5) = .[B6]: KQ(1, 6) = .[D6]: KQ(1, 7) = .[D5]
        KQ(1, 8) = .[B7]: KQ(1, 9) = .[D7]: KQ(1, 10) = .[D8]
        KQ(1, 11) = .[B9]: KQ(1, 12) = .[D9]
        KQ(1, 13) = .[B10]: KQ(1, 14) = .[D10]
        KQ(1, 15) = .[B11]: KQ(1, 16) = .[D11]
        KQ(1, 17) = .[D12]
        For d = 14 To 23
            If .Range("B" & d) <> Empty Then KQ(1, d + 4) = .Range("B" & d)
            If .Range("C" & d) <> Empty Then KQ(1, d + 14) = .Range("C" & d)
            If .Range("D" & d) <> Empty Then KQ(1, d + 24) = .Range("D" & d)
            If .Range("E" & d) <> Empty Then KQ(1, d + 34) = .Range("E" & d)
        Next
            .[B2] = .[B2] + 1
        Set Rng = Union(.Range("B3:B4"), .Range("B6"), .Range("D5:D6"), .Range("D11"), .Range("B16:B23"), .Range("C14:E23"))
            Rng.Select
            Selection.ClearContents
        End With
        With Sheets("ThongTin")
                .Range("A" & R).Resize(1, 57) = KQ
        End With
MsgBox "ĐA XONG"
End Sub

Lưu ý : tôi đã đổi tên sheet thành tên tiếng Việt không dấu.
Chức năng xóa sữ liệu cũ tôi không làm mà chỉ ghi đè.
Xem file

VetMini · 16/3/23

bitun1991 đã viết:
... e khổ lắm!

Có vẻ như bạn nhận việc ngoài khả năng của mình.
Đối với bạn là khổ. Đối với người khác thì là cơ hội học hỏi hầu mở mang kiến thức và kỹ năng để tiến thân.

Maika8008 · 16/3/23

VetMini đã viết:
Có vẻ như bạn nhận việc ngoài khả năng của mình.
Đối với bạn là khổ. Đối với người khác thì là cơ hội học hỏi hầu mở mang kiến thức và kỹ năng để tiến thân.

Nay thì bác cũng quen với kiểu viết tắt e hoặc a rồi ấy nhỉ?

VetMini · 16/3/23

Maika8008 đã viết:
Nay thì bác cũng quen với kiểu viết tắt e hoặc a rồi ấy nhỉ?

Tôi cảnh báo và khuyến khích tinh thần vượt khó khăn cho người khác chứ tôi có giúp đâu?
Vả lại, bạn xem lại ngữ cảnh xem. Từ e kia tôi đọc là "ngại"

bitun1991 · 16/3/23

HUONGHCKT đã viết:

Tham khảo code sau:

Mã:

Option Explicit
Sub NutNhapDuLieu()
Dim R As Long
Dim t
If Not Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]) Is Nothing Then
 t = MsgBox(" SÔ PHIÊU NÀY ĐA CÓ DU LIÊU - BAN MUÔN SUA KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
    If t = vbYes Then
        R = Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]).Row
        Call Nhaplieu(R)
    End If
Else
 t = MsgBox(" SÔ PHIÊU NÀY NÀY CHUA CÓ DU LIÊU - BAN MUÔN NHAP KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
    If t = vbYes Then
        R = Sheets("ThongTin").Cells(Rows.Count, "B").End(xlUp).Row + 1
        Call Nhaplieu(R)
    End If
End If
End Sub
Sub Nhaplieu(ByVal R As Long)
Dim KQ(1 To 1, 1 To 57), d&, Rng As Range
With Sheets("NhapLieu")
        KQ(1, 1) = .[B2]: KQ(1, 2) = .[B3]
        KQ(1, 3) = .[B4]: KQ(1, 4) = .[B5]
        KQ(1, 5) = .[B6]: KQ(1, 6) = .[D6]: KQ(1, 7) = .[D5]
        KQ(1, 8) = .[B7]: KQ(1, 9) = .[D7]: KQ(1, 10) = .[D8]
        KQ(1, 11) = .[B9]: KQ(1, 12) = .[D9]
        KQ(1, 13) = .[B10]: KQ(1, 14) = .[D10]
        KQ(1, 15) = .[B11]: KQ(1, 16) = .[D11]
        KQ(1, 17) = .[D12]
        For d = 14 To 23
            If .Range("B" & d) <> Empty Then KQ(1, d + 4) = .Range("B" & d)
            If .Range("C" & d) <> Empty Then KQ(1, d + 14) = .Range("C" & d)
            If .Range("D" & d) <> Empty Then KQ(1, d + 24) = .Range("D" & d)
            If .Range("E" & d) <> Empty Then KQ(1, d + 34) = .Range("E" & d)
        Next
            .[B2] = .[B2] + 1
        Set Rng = Union(.Range("B3:B4"), .Range("B6"), .Range("D5:D6"), .Range("D11"), .Range("B16:B23"), .Range("C14:E23"))
            Rng.Select
            Selection.ClearContents
        End With
        With Sheets("ThongTin")
                .Range("A" & R).Resize(1, 57) = KQ
        End With
MsgBox "ĐA XONG"
End Sub

Lưu ý : tôi đã đổi tên sheet thành tên tiếng Việt không dấu.
Chức năng xóa sữ liệu cũ tôi không làm mà chỉ ghi đè.
Xem file

Em cám ơn ạ! thật sự đã hỗ trợ trong công việc của em rất nhiều ạ!
chúc anh chị một ngày tốt lành ạ!

Bài đã được tự động gộp: 16/3/23

VetMini đã viết:
Tôi cảnh báo và khuyến khích tinh thần vượt khó khăn cho người khác chứ tôi có giúp đâu?
Vả lại, bạn xem lại ngữ cảnh xem. Từ e kia tôi đọc là "ngại"

em xin lỗi ạ.

SA_DQ · 16/3/23

bitun1991 đã viết:
Em xin chào các anh các chị, . . . .
Em có gửi kèm file nhờ các anh chị hỗ trợ em với ạ.
. . . . . .

(1) File của bạn đang thiếu xương sống, đó là mã NS (mã nhân sự duy nhất cho từng người
Có 1 số người ta xài số CCCD hay số định danh cá nhân
Không có cột dữ liệu này thì file thuộc loại sinh vật không xương sông!

Nếu là mình thì cần có trang tính riêng để lưu mối quan hệ của 1 nhân sự;
(1) 'Hồ sơ NS':

STT

Ho & Ten

Mã

1

Nguyễn Văn Anh

NVA00

2

Ngô Vĩnh Ánh

NVA01

3

Nguyễn Ánh

NJA00

4

Nhữ Thị Vân Anh

NVA02

(2) Dữ liệu (mối) quan hệ:

STT

Ho & Ten

Mã QH

QH

1

Nguyễn Vũ Anh

NVA00

Cha

2

Trần Lệ Thu

NVA00

Mẹ

3

Nguyễn Thu Anh

NVA00

Con

4

Ngô Văn Anh

NVA01

Bố

5

Nguyễn Xuân Ái

NVA01

Vợ

6

Trần Thị Kiên

NVA02

mẹ

Rất vui nếu được tiếp tục cùng bạn!

THÓC SAMA đã viết:
Sao bạn không tạo Form nhập dữ liệu trực tiếp cho sheet mà phải nhập vào sheet này rồi chuyển qua sheet kia chi cho cực thế?!

Nếu ai biết tạo form thì xài form; Còn không/chưa biết thì lấy 1 trang tính làm Form; cũng tốt mà!

bitun1991 · 16/3/23

HUONGHCKT đã viết:

Tham khảo code sau:

Mã:

Option Explicit
Sub NutNhapDuLieu()
Dim R As Long
Dim t
If Not Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]) Is Nothing Then
 t = MsgBox(" SÔ PHIÊU NÀY ĐA CÓ DU LIÊU - BAN MUÔN SUA KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
    If t = vbYes Then
        R = Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]).Row
        Call Nhaplieu(R)
    End If
Else
 t = MsgBox(" SÔ PHIÊU NÀY NÀY CHUA CÓ DU LIÊU - BAN MUÔN NHAP KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
    If t = vbYes Then
        R = Sheets("ThongTin").Cells(Rows.Count, "B").End(xlUp).Row + 1
        Call Nhaplieu(R)
    End If
End If
End Sub
Sub Nhaplieu(ByVal R As Long)
Dim KQ(1 To 1, 1 To 57), d&, Rng As Range
With Sheets("NhapLieu")
        KQ(1, 1) = .[B2]: KQ(1, 2) = .[B3]
        KQ(1, 3) = .[B4]: KQ(1, 4) = .[B5]
        KQ(1, 5) = .[B6]: KQ(1, 6) = .[D6]: KQ(1, 7) = .[D5]
        KQ(1, 8) = .[B7]: KQ(1, 9) = .[D7]: KQ(1, 10) = .[D8]
        KQ(1, 11) = .[B9]: KQ(1, 12) = .[D9]
        KQ(1, 13) = .[B10]: KQ(1, 14) = .[D10]
        KQ(1, 15) = .[B11]: KQ(1, 16) = .[D11]
        KQ(1, 17) = .[D12]
        For d = 14 To 23
            If .Range("B" & d) <> Empty Then KQ(1, d + 4) = .Range("B" & d)
            If .Range("C" & d) <> Empty Then KQ(1, d + 14) = .Range("C" & d)
            If .Range("D" & d) <> Empty Then KQ(1, d + 24) = .Range("D" & d)
            If .Range("E" & d) <> Empty Then KQ(1, d + 34) = .Range("E" & d)
        Next
            .[B2] = .[B2] + 1
        Set Rng = Union(.Range("B3:B4"), .Range("B6"), .Range("D5:D6"), .Range("D11"), .Range("B16:B23"), .Range("C14:E23"))
            Rng.Select
            Selection.ClearContents
        End With
        With Sheets("ThongTin")
                .Range("A" & R).Resize(1, 57) = KQ
        End With
MsgBox "ĐA XONG"
End Sub

Lưu ý : tôi đã đổi tên sheet thành tên tiếng Việt không dấu.
Chức năng xóa sữ liệu cũ tôi không làm mà chỉ ghi đè.
Xem file

Cho em hỏi thêm là e có đánh dấu ' vào phần hộp tin hiện mes lên tuy nhiên lại ngưng mất cả dòng lệnh phía sau.
cho em hỏi là làm thế nào để không hiện hộp mes lên mà vẫn chạy được dòng sau ạ.

Bài đã được tự động gộp: 16/3/23

SA_DQ đã viết:
(1) File của bạn đang thiếu xương sống, đó là mã NS (mã nhân sự duy nhất cho từng người
Có 1 số người ta xài số CCCD hay số định danh cá nhân
Không có cột dữ liệu này thì file thuộc loại sinh vật không xương sông!

Nếu là mình thì cần có trang tính riêng để lưu mối quan hệ của 1 nhân sự;
(1) 'Hồ sơ NS':

STT Ho & Ten Mã
1 Nguyễn Văn Anh NVA00
2 Ngô Vĩnh Ánh NVA01
3 Nguyễn Ánh NJA00
4 Nhữ Thị Vân Anh NVA02

(2) Dữ liệu (mối) quan hệ:

STT Ho & Ten Mã QH QH
1 Nguyễn Vũ Anh NVA00 Cha
2 Trần Lệ Thu NVA00 Mẹ
3 Nguyễn Thu Anh NVA00 Con
4 Ngô Văn Anh NVA01 Bố
5 Nguyễn Xuân Ái NVA01 Vợ
6 Trần Thị Kiên NVA02 mẹ

Rất vui nếu được tiếp tục cùng bạn!

Nếu ai biết tạo form thì xài form; Còn không/chưa biết thì lấy 1 trang tính làm Form; cũng tốt mà!

dạ vâng, file gốc từ công ty cho nên em đang trong quá trình hoàn thiện ạ.

HUONGHCKT · 16/3/23

bitun1991 đã viết:
Cho em hỏi thêm là e có đánh dấu ' vào phần hộp tin hiện mes lên tuy nhiên lại ngưng mất cả dòng lệnh phía sau.
cho em hỏi là làm thế nào để không hiện hộp mes lên mà vẫn chạy được dòng sau ạ.

Bài đã được tự động gộp: 16/3/23

dạ vâng, file gốc từ công ty cho nên em đang trong quá trình hoàn thiện ạ.

Tôi chân thành khuyên bạn nên bỏ thói quen viết tắt, Bạn nói về mình (đại từ nhân xưng chỉ về chính mình) thì tại sao không dùng là " em " thay cho " e" có thấy mình trang trọng hơn không.
về sửa code thì bạn đánh dấu "'" và các dòng
[code[
....
' t = MsgBox(" SÔ PHIÊU NÀY ĐA CÓ DU LIÊU - BAN MUÔN SUA KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
' If t = vbYes Then
R = Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]).Row
Call Nhaplieu(R)
' End If
....
[/code]
chừa lại 2 dòng : R=.... và Call ....

Huế Vũ 1989 · 16/3/23

HUONGHCKT đã viết:
Lưu ý : tôi đã đổi tên sheet thành tên tiếng Việt không dấu.
Chức năng xóa sữ liệu cũ tôi không làm mà chỉ ghi đè.
Xem file

Ui, cảm ơn bạn nhiều nhiều. Mình được tham khảo 1 file rất hữu ích ạ. Chúc bạn tuần làm việc vui & thuận lợi

bitun1991 · 16/3/23

HUONGHCKT đã viết:
Tôi chân thành khuyên bạn nên bỏ thói quen viết tắt, Bạn nói về mình (đại từ nhân xưng chỉ về chính mình) thì tại sao không dùng là " em " thay cho " e" có thấy mình trang trọng hơn không.
về sửa code thì bạn đánh dấu "'" và các dòng
[code[
....
' t = MsgBox(" SÔ PHIÊU NÀY ĐA CÓ DU LIÊU - BAN MUÔN SUA KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
' If t = vbYes Then
R = Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]).Row
Call Nhaplieu(R)
' End If
....
[/code]
chừa lại 2 dòng : R=.... và Call ....

dạ vâng em xin lỗi ạ,

Chị ơi còn phần địa chỉ vẫn chưa copy chị ạ. chị viết hộ em với ạ.

Thóc Sama · 16/3/23

Chị @HUONGHCKT qua Thái Lan hồi nào mà bà con hổng hay!?
Chúc mừng "Chị" nha!

bitun1991 · 16/3/23

THÓC SAMA đã viết:
View attachment 287647
Chị @HUONGHCKT qua Thái Lan hồi nào mà bà con hổng hay!?
Chúc mừng "Chị" nha!

Em nhìn nick tưởng tên là Hương anh ạ.

Maika8008 · 16/3/23

bitun1991 đã viết:
Em nhìn nick tưởng tên là Hương anh ạ.

Thì anh ấy tên là Hương chứ tưởng gì nữa bạn!

bitun1991 · 16/3/23

Maika8008 đã viết:
Thì anh ấy tên là Hương chứ tưởng gì nữa bạn!

dạ vâng em xin lỗi ạ

Bài đã được tự động gộp: 16/3/23

HUONGHCKT đã viết:
Tôi chân thành khuyên bạn nên bỏ thói quen viết tắt, Bạn nói về mình (đại từ nhân xưng chỉ về chính mình) thì tại sao không dùng là " em " thay cho " e" có thấy mình trang trọng hơn không.
về sửa code thì bạn đánh dấu "'" và các dòng
[code[
....
' t = MsgBox(" SÔ PHIÊU NÀY ĐA CÓ DU LIÊU - BAN MUÔN SUA KHÔNG?" & Chr(10) & "NHÂN YES ĐÊ TIÊP TUC NHÂP" & Chr(10) & "NHÂN NO ĐÊ BO QUA", vbYesNo, "THÔNG BÁO")
' If t = vbYes Then
R = Sheets("ThongTin").Range("A7:A10000").Find(Sheets("NhapLieu").[B2]).Row
Call Nhaplieu(R)
' End If
....
[/code]
chừa lại 2 dòng : R=.... và Call ....

Anh ơi còn phần địa chỉ vẫn chưa copy ạ.
anh viết thêm hộ em với ạ.

HUONGHCKT · 16/3/23

bitun1991 đã viết:
dạ vâng em xin lỗi ạ

Bài đã được tự động gộp: 16/3/23

Anh ơi còn phần địa chỉ vẫn chưa copy ạ.
anh viết thêm hộ em với ạ.

Trong sheet nhapLieu ô Địa chỉ đang để rỗng, nên khi chạy code nó bỏ qua. Giò bạn thêm gì đó vào ô ấy và nhấn nút và kiểm tra Sheet Thongtin xem đã có chưa.

bitun1991 · 17/3/23

HUONGHCKT đã viết:
Trong sheet nhapLieu ô Địa chỉ đang để rỗng, nên khi chạy code nó bỏ qua. Giò bạn thêm gì đó vào ô ấy và nhấn nút và kiểm tra Sheet Thongtin xem đã có chưa.

Em có thử 2,3 lần rồi anh ạ.
Nó cũng không xóa tự động và copy sang sheet "thông tin" khi ấn "Nhập Liệu" anh ạ.

HUONGHCKT · 17/3/23

bitun1991 đã viết:
View attachment 287667

Em có thử 2,3 lần rồi anh ạ.
Nó cũng không xóa tự động và copy sang sheet "thông tin" khi ấn "Nhập Liệu" anh ạ.

Tôi sai:
thay dòng này

Mã:

KQ(1, 17) = .[D12]

thành

Mã:

KQ(1, 17) = .[B12]

chạy thử, báo lại kết quả.

Hỏi đáp về trình nhập dữ liệu thông tin

Thành viên mới

File đính kèm

＿/＿/＿/＿/＿/＿/＿/

Thành viên mới

Zalo 0986997214

File đính kèm

Ăn cùng góc phố

Thành viên gạo cội

Ăn cùng góc phố

Thành viên mới

/(hông là gì!

Thành viên mới

Zalo 0986997214

Thành viên mới

Thành viên mới

＿/＿/＿/＿/＿/＿/＿/

Thành viên mới

Thành viên gạo cội

Thành viên mới

Zalo 0986997214

Thành viên mới

Zalo 0986997214