Hỏi đáp về trình nhập dữ liệu thông tin (1 người xem)

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ả.

bitun1991 · 17/3/23

HUONGHCKT đã viết:
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ả.

Dạ vâng em đã copy được rồi anh ạ. nhưng bị mất tự động xóa anh ạ.

SA_DQ · 17/3/23

bitun1991 đã viết:
View attachment 287667

Cứ để thiết kế trang tính thế này mà xài thì có ngày mất lương như bởn!

Nếu là mình thì tách ra làm 2 trang:

STT

Mã NV

Họ và tên

Nam

Ngày sinh

1

BHK00

Bùi Hồng Khải

No

1/13/1967

2

CFH00

Cao Đức Hợp

1/9/2002

3

FTH00

Đào Trọng Hùng

12/10/2001

4

DJT00

Dương Thắng

6/13/2001

5

FTD00

Đặng Thị Dương

7/13/2001

6

FCD00

Đinh Công Dân

9/11/2001

7

FDT00

Đỗ Danh Tài

8/12/2001

8

LFT00

Lê Đức Thịnh

No

5/18/1969

&

STT

Mã QH

Tên

Quan hệ

1

BHK00

Bùi Văn Khang

Cha

2

BHK00

Đỗ Thị Thủy

Mẹ

3

CFH00

Cao Hoàng Thanh Huyền

con

4

DJT00

Dương Quang Đông

Cha

5

FCD00

Đinh Mỹ Huyền

Con

6

FTH00

Đào Văn Nam

Con

7

LFT00

Lê Đức Thuận

Bố

8

LFT00

Lê Thị Mai Hương

Em

Chủ bài đăng nên coi trọng đến mã duy nhất của danh sách nhân sự; Coi thường nó & phớt lờ thì sẽ có ngày nó gây chuyện để phớt lờ lương, thường & tương lai, địa vị trong cơ quan của bạn!

HUONGHCKT · 17/3/23

bitun1991 đã viết:
Dạ vâng em đã copy được rồi anh ạ. nhưng bị mất tự động xóa anh ạ.

Mất xóa tự động là như thế nào? Chẳng phải là nhấn nút nhập thì dữ liệu được nhập vào Sh ThongTin rồi sau đó nó xóa những phần bạn đã bôi vàng và tự động cộng thêm cho số phiếu tăng thêm 1 đơn vị
Nếu nuốn xóa vùng nào nữa thì bạn thêm vào chỗ dòng lệnh này

Mã:

        Set Rng = Union(.Range("B3:B4"), .Range("B6"), .Range("D5:D6"), .Range("D11"), .Range("B16:B23"), .Range("C14:E23"),    VÙNG  CẦN XÓA THÊM)

Nhắc lại là vùng bôi vàng chỉ bị xóa khi nhấn nút nhập

bitun1991 · 17/3/23

HUONGHCKT đã viết:
Mất xóa tự động là như thế nào? Chẳng phải là nhấn nút nhập thì dữ liệu được nhập vào Sh ThongTin rồi sau đó nó xóa những phần bạn đã bôi vàng và tự động cộng thêm cho số phiếu tăng thêm 1 đơn vị
Nếu nuốn xóa vùng nào nữa thì bạn thêm vào chỗ dòng lệnh này

Mã:

Set Rng = Union(.Range("B3:B4"), .Range("B6"), .Range("D5:D6"), .Range("D11"), .Range("B16:B23"), .Range("C14:E23"), VÙNG CẦN XÓA THÊM)

Nhắc lại là vùng bôi vàng chỉ bị xóa khi nhấn nút nhập

Dạ vâng, đoạn B12 không thấy xóa, nên e vừa thêm B12 vào là xóa được rồi ạ.
Em cám ơn anh đã hỗ trợ ạ.

HUONGHCKT · 17/3/23

bitun1991 đã viết:
Dạ vâng, đoạn B12 không thấy xóa, nên e vừa thêm B12 vào là xóa được rồi ạ.
Em cám ơn anh đã hỗ trợ ạ.

Bạn xem lại file bạn gửi B12 có tô vàng không?
Xóa B12 đi cũng tốt nhưng mà nhập liệu cho 1 cụng dân cư có địa chỉ giống nhau thì sao nhỉ? lại nhập lại sau mỗi người.

bitun1991 · 21/3/23

HUONGHCKT đã viết:
Bạn xem lại file bạn gửi B12 có tô vàng không?
Xóa B12 đi cũng tốt nhưng mà nhập liệu cho 1 cụng dân cư có địa chỉ giống nhau thì sao nhỉ? lại nhập lại sau mỗi người.

dạ vâng, em biết chỗ mã sửa đoạn này rồi ạ. tùy từng trường hợp em sẽ sửa mã riêng làm 2 phiên bản rồi copy gộp lại ạ.

Hỏi đáp về trình nhập dữ liệu thông tin (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

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

Thành viên mới

Zalo 0986997214

File đính kèm

Đang đi tìm hòn đá

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

Đang đi tìm hòn đá

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

Thành viên mới

/(hông là gì!

Zalo 0986997214

Thành viên mới

Zalo 0986997214

Thành viên mới

Thời gian đếm ngược.