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

[bitun1991]

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 ạ!

 

[bitun1991]

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

KQ(1, 17) = .[D12]

thành

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]

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]

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

        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]

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

        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]

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]

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