Xin hỗ trợ sửa code loát dữ liệu về Form

[le_vis]

Tôi có làm Form nhập liệu sử dụng đoạn code để gọi dữ liệu ngược trở lại Form nhưng chạy đang bị khống chế vùng loát dữ liệu mà tìm mãi không ra. (Chi tiết tôi ghi trong File đính kèm ) Kính xin các bạn hỗ trợ sửa giúp và chỉ cho tôi bị sai chỗ nào ??? Trân trọng cảm ơn

 

[HieuCD]

Tôi có làm Form nhập liệu sử dụng đoạn code để gọi dữ liệu ngược trở lại Form nhưng chạy đang bị khống chế vùng loát dữ liệu mà tìm mãi không ra. (Chi tiết tôi ghi trong File đính kèm ) Kính xin các bạn hỗ trợ sửa giúp và chỉ cho tôi bị sai chỗ nào ??? Trân trọng cảm ơn

Sai chổ nầy

lr = .[R2000].End(xlUp).Row

......

 

[SA_DQ]

Mình xin mạnh dạn góp với chủ bài đăng là CSDL của bạn xây dựng đang chưa chuẩn cho lắm;
Ví dụ từ cái nhỏ nhất:
(1) Con người ta sinh ra là đã có ngay giới tính & dân tộc; Vậy mà bạn để cột [Dân tộc] sau cả các cột như [Nghề nghiệp], [Trình độ VH] hay [2uê quán], [Hộ khẩu],. . . . là chưa hợp lẽ Trời!
(2) Bạn hoàn toàn nên tách cột [Tên & giới tính ra làm 2; Có khi bạn cần thống kê bao nhiêu nam hay nữ thì khó & cái khó này là do bạn thiết kế chưa chuẩn tạo ra;
(2.1) Người VN ta luôn xài họ & tên, CSDL của bạn chưa có họ là sao
Bạn dừng nói với mình là đang thiếu thông tin sau này bổ sung sau; Bạn sẽ bổ sung bằng cách nào: Hay mở CSDL ra & dò tìm từ đầu chí cuối; Mà tìm ra chưa chắc đúng vì trường hợp trùng cả tên lẫn giới tính thì sao?
(3) Có nghĩa là để khử lỗi (2.1) bạn nên có thêm cột [Mã] (duy nhất cho từng dòng dữ liệu của 'Chủ hộ (?)' như ví dụ sau:

STT

Ngày sổ

Mã số

Họ và tên

GT

Ngày sinh

Nghề

V.Hóa

Quê Quán

Hộ khẩu

Tôn giáo

T.chức

DT

QT

. . . . .

1

1/1/2020​

NJV00

Nguyễn Vũ

Nm

6/30/1957​

Trung cấp

10/10

CD

ĐV

Kinh

VN

2

1/10/2020​

FJG00

Đỗ GPE.COM

Nm

2/2/1992​

Đại học

12/12

HH

ĐV

Kinh

VN

3

1/1/2020​

FQN00

Đỗ Thành Quí Nam

Nm

12/21/1996​

Cao đẳng

12/12

Lg

Kinh

VN

4

1/1/2020​

NGN00

Nguyễn Giới Nam

Nm

8/29/2000​

Sơ cấp

12/12

TC

Kinh

VN

5

1/1/2020​

TTN00

Trần Thu Trinh Nữ

Nu

3/22/1994​

Sơ cấp

12/12

TL

Kinh

VN

6

1/1/2020​

NAN00

Ngô T. Quyên Ái Nữ

Nu

5/18/1988​

Cao đẳng

12/12

PG

Tày

VN

7

1/1/2020​

PHN00

Phạm Giới Hoa Nữ

Nu

10/28/1995​

Sơ cấp

12/12

Lg

Kinh

VN

8

1/1/2020​

NHN05

Nguyễn T Hồng Nữ

Nu

8/1/1966​

Sơ cấp

9/12

Lg

Kinh

VN

9

1/1/2020​

NTX00

Nguyễn T Tú Xuân

Nu

9/8/1998​

Sơ cấp

12/12

Lg

Kinh

VN

10

1/1/2020​

PHH00

Phạm Hữu Hoài

Nu

11/18/1986​

Sơ cấp

12/12

Lg

Kinh

VN

Chú í 1 điều trong ví dụ này là cột [Mã]
Nó được dùng để làm mã QH (liên kết) với 1 bảng dữ liệu liên quan với "chủ hộ" như ví dụ sau:

Mã QH

TT

Quan hệ

Họ và tên

Sinh

Nghề nghiệp

T.chức-CTXH

Đơn vị công tác hiện nay

NJV00

1

Bố

Võ Xuân

Đã chết - Tại quê

NJV00

2

Mẹ

Trần Thị

1935

Mất sức L.động

Tại quê

NJV00

3

Em

Võ Thị

1960

Lao động tự do

hhhh ccc

NJV00

4

Em

Võ Thúy

1967

Giáo viên

Đảng Viên

Trưởng Tiểu học

NJV00

5

Em

Võ Mạnh

1973

Thợ thủ công

Tại quê

NJV00

6

Em

Võ Ngọc

1978

Kỹ sư điện

Hoàng Mai, Hà Nội

NJV00

7

Vợ

Châu

1959

CNV nghỉ hưu

QQ NN

NJV00

8

Con trai

Võ Xuân

1980

Kỹ sư ô tô

Đảng Viên

QQ NN

NJV00

9

Con Gái

Võ Anh Thư

1985

Th.sĩ Kinh tế

Đảng Viên

QQ NN

FJG00

1

Bố

Hoàng

1965

Hưu trí

HHHH HHH

FJG00

2

Mẹ

Vũ

1972

Nội trợ

HHHH HHH

FJG00

3

Chồng

Lê

1991

Kỹ sư CNTT

HHHH HHH

FQN00

1

Bố

Đỗ

1967

TP Kinh doanh

Đảng Viên

HHH MM

FQN00

2

Mẹ

Vũ Xuân

1972

Nội trợ

HHH MM

FQN00

3

Em trai

Đỗ

2001

Sinh Viên

HHH MM

FQN00

4

Vợ

Nguyễn

1996

Nội trợ

HHH MM

NGN00

1

Bố

Nguyễn V

1971

Làm Ruộng

Tại quê

NGN00

2

Mẹ

Đỗ T

1970

Làm Ruộng

Tại quê

NGN00

3

Em

Nguyễn X

2013

Học Sinh

Tại quê

TTN00

1

Bố

Trần Q

1960

Hưu trí

MCC CC DD

TTN00

2

Mẹ

Đoàn P

1959

Hưu trí

MCC CC DD

TTN00

3

Chồng

Lương

1991

CN

MCC CC DD

NAN00

1

Bố

NS

1960

Làm ruộng

HHH VVV

NAN00

2

Mẹ

NC

1963

Làm ruộng

HHH VVV

NAN00

3

Anh

NT

1981

VIÊN CHỨC

KKK MMM

NAN00

4

Chồng

Lê Q

1986

Kỹ sư khai thác

Cty

NAN00

5

Con

Lê A

2010

Học sinh

Trường

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

 

[le_vis]

Mình xin mạnh dạn góp với chủ bài đăng là CSDL của bạn xây dựng đang chưa chuẩn cho lắm;
Ví dụ từ cái nhỏ nhất:
(1) Con người ta sinh ra là đã có ngay giới tính & dân tộc; Vậy mà bạn để cột [Dân tộc] sau cả các cột như [Nghề nghiệp], [Trình độ VH] hay [2uê quán], [Hộ khẩu],. . . . là chưa hợp lẽ Trời!
(2) Bạn hoàn toàn nên tách cột [Tên & giới tính ra làm 2; Có khi bạn cần thống kê bao nhiêu nam hay nữ thì khó & cái khó này là do bạn thiết kế chưa chuẩn tạo ra;
(2.1) Người VN ta luôn xài họ & tên, CSDL của bạn chưa có họ là sao
Bạn dừng nói với mình là đang thiếu thông tin sau này bổ sung sau; Bạn sẽ bổ sung bằng cách nào: Hay mở CSDL ra & dò tìm từ đầu chí cuối; Mà tìm ra chưa chắc đúng vì trường hợp trùng cả tên lẫn giới tính thì sao?
(3) Có nghĩa là để khử lỗi (2.1) bạn nên có thêm cột [Mã] (duy nhất cho từng dòng dữ liệu của 'Chủ hộ (?)' như ví dụ sau:

STT

Ngày sổ

Mã số

Họ và tên

GT

Ngày sinh

Nghề

V.Hóa

Quê Quán

Hộ khẩu

Tôn giáo

T.chức

DT

QT

. . . . .

1

1/1/2020​

NJV00

Nguyễn Vũ

Nm

6/30/1957​

Trung cấp

10/10

CD

ĐV

Kinh

VN

2

1/10/2020​

FJG00

Đỗ GPE.COM

Nm

2/2/1992​

Đại học

12/12

HH

ĐV

Kinh

VN

3

1/1/2020​

FQN00

Đỗ Thành Quí Nam

Nm

12/21/1996​

Cao đẳng

12/12

Lg

Kinh

VN

4

1/1/2020​

NGN00

Nguyễn Giới Nam

Nm

8/29/2000​

Sơ cấp

12/12

TC

Kinh

VN

5

1/1/2020​

TTN00

Trần Thu Trinh Nữ

Nu

3/22/1994​

Sơ cấp

12/12

TL

Kinh

VN

6

1/1/2020​

NAN00

Ngô T. Quyên Ái Nữ

Nu

5/18/1988​

Cao đẳng

12/12

PG

Tày

VN

7

1/1/2020​

PHN00

Phạm Giới Hoa Nữ

Nu

10/28/1995​

Sơ cấp

12/12

Lg

Kinh

VN

8

1/1/2020​

NHN05

Nguyễn T Hồng Nữ

Nu

8/1/1966​

Sơ cấp

9/12

Lg

Kinh

VN

9

1/1/2020​

NTX00

Nguyễn T Tú Xuân

Nu

9/8/1998​

Sơ cấp

12/12

Lg

Kinh

VN

10

1/1/2020​

PHH00

Phạm Hữu Hoài

Nu

11/18/1986​

Sơ cấp

12/12

Lg

Kinh

VN

Chú í 1 điều trong ví dụ này là cột [Mã]
Nó được dùng để làm mã QH (liên kết) với 1 bảng dữ liệu liên quan với "chủ hộ" như ví dụ sau:

Mã QH

TT

Quan hệ

Họ và tên

Sinh

Nghề nghiệp

T.chức-CTXH

Đơn vị công tác hiện nay

NJV00

1

Bố

Võ Xuân

Đã chết - Tại quê

NJV00

2

Mẹ

Trần Thị

1935

Mất sức L.động

Tại quê

NJV00

3

Em

Võ Thị

1960

Lao động tự do

hhhh ccc

NJV00

4

Em

Võ Thúy

1967

Giáo viên

Đảng Viên

Trưởng Tiểu học

NJV00

5

Em

Võ Mạnh

1973

Thợ thủ công

Tại quê

NJV00

6

Em

Võ Ngọc

1978

Kỹ sư điện

Hoàng Mai, Hà Nội

NJV00

7

Vợ

Châu

1959

CNV nghỉ hưu

QQ NN

NJV00

8

Con trai

Võ Xuân

1980

Kỹ sư ô tô

Đảng Viên

QQ NN

NJV00

9

Con Gái

Võ Anh Thư

1985

Th.sĩ Kinh tế

Đảng Viên

QQ NN

FJG00

1

Bố

Hoàng

1965

Hưu trí

HHHH HHH

FJG00

2

Mẹ

Vũ

1972

Nội trợ

HHHH HHH

FJG00

3

Chồng

Lê

1991

Kỹ sư CNTT

HHHH HHH

FQN00

1

Bố

Đỗ

1967

TP Kinh doanh

Đảng Viên

HHH MM

FQN00

2

Mẹ

Vũ Xuân

1972

Nội trợ

HHH MM

FQN00

3

Em trai

Đỗ

2001

Sinh Viên

HHH MM

FQN00

4

Vợ

Nguyễn

1996

Nội trợ

HHH MM

NGN00

1

Bố

Nguyễn V

1971

Làm Ruộng

Tại quê

NGN00

2

Mẹ

Đỗ T

1970

Làm Ruộng

Tại quê

NGN00

3

Em

Nguyễn X

2013

Học Sinh

Tại quê

TTN00

1

Bố

Trần Q

1960

Hưu trí

MCC CC DD

TTN00

2

Mẹ

Đoàn P

1959

Hưu trí

MCC CC DD

TTN00

3

Chồng

Lương

1991

CN

MCC CC DD

NAN00

1

Bố

NS

1960

Làm ruộng

HHH VVV

NAN00

2

Mẹ

NC

1963

Làm ruộng

HHH VVV

NAN00

3

Anh

NT

1981

VIÊN CHỨC

KKK MMM

NAN00

4

Chồng

Lê Q

1986

Kỹ sư khai thác

Cty

NAN00

5

Con

Lê A

2010

Học sinh

Trường

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

Cảm ơn Bác SA_DQ . Bác góp ý rất chuẩn hướng tới sẽ sửa lại theo gợi ý của bác. Bác xem giúp lý do tại sao vùng dữ liệu loát về Form chỉ dừng lại ở mã quản lý số 10 với ạ. Hiện đang lung búng mãi không tìm ra lý do tại sao phát sinh lỗi này. Xin Bác sửa giúp cho - Xin cảm ơn Bác

 

[vanthinh3101]

Tôi có làm Form nhập liệu sử dụng đoạn code để gọi dữ liệu ngược trở lại Form nhưng chạy đang bị khống chế vùng loát dữ liệu mà tìm mãi không ra. (Chi tiết tôi ghi trong File đính kèm ) Kính xin các bạn hỗ trợ sửa giúp và chỉ cho tôi bị sai chỗ nào ??? Trân trọng cảm ơn

Như ở bài #2, bác @HieuCD đã nói lỗi của bạn rồi.
Bạn chỉ cần sửa chỗ đó là ra thôi.
Bạn nên chọn cột nào chắc chắn phải điền dữ liệu để xác định dòng cuối cùng có dữ liệu.
Dữ liệu của bạn người số 11 đang không có thông tin cột R nên chỉ tìm ra đến người số 10.
Kinh nghiệm của tôi là cần quy định thông tin nào bắt buộc phải có, không có thì chưa được ghi nhận.

 

[SA_DQ]

Mình chưa hiểu lắm, nhưng thấy bên trang 'TongHop' đang chỉ có 10 'chủ hộ' thôi mà, làm sao có chủ hộ 11 mà tiến đến đó được;
Lý do lỗi thì mình chưa rõ lắm; nhưng muốn trừ khử lỗi này thì mỗi chủ hộ phải có mã duy nhất & tìm theo mã duy nhất; (Mã duy nhất mà mình đề xuất có tính tương tác cao giữa người quản lý dữ liệu với người khác & với hồ sơ chứng từ.

Còn chuyện tiến hay lùi thực tế trong công việc với vài trăm người thì vô phương & không cần thiết
Còn ở #2 anh HieuXD đã khuyến cáo, thì mình không rõ tại sao lại tìm dòng cuối ở cột đó, sao không là cột [Ho Tên] hay cột [Mối quan hệ] (?)
. . . .

 

[le_vis]

Mình chưa hiểu lắm, nhưng thấy bên trang 'TongHop' đang chỉ có 10 'chủ hộ' thôi mà, làm sao có chủ hộ 11 mà tiến đến đó được;
Lý do lỗi thì mình chưa rõ lắm; nhưng muốn trừ khử lỗi này thì mỗi chủ hộ phải có mã duy nhất & tìm theo mã duy nhất; (Mã duy nhất mà mình đề xuất có tính tương tác cao giữa người quản lý dữ liệu với người khác & với hồ sơ chứng từ.

Còn chuyện tiến hay lùi thực tế trong công việc với vài trăm người thì vô phương & không cần thiết
Còn ở #2 anh HieuXD đã khuyến cáo, thì mình không rõ tại sao lại tìm dòng cuối ở cột đó, sao không là cột [Ho Tên] hay cột [Mối quan hệ] (?)
. . . .

Thưa Bác SA_DQ và các bạn trong sheet tong hop tại cột D như cách tôi gọi là "Mã số" thì có tới mã 11 (Có nhiều nhưng tôi cắt vợi đi cho nhẹ để gửi lên)
Lẽ ra Nếu tại Ceel D3 ta nhập từ số 1...... 11... n thì nó sẽ loát toàn bộ dữ liệu của mã số 1...... 11... n đang lưu tại Sheet tong hop trở lại về Form nhưng khi gọi nó chỉ cập nhật lại cho mình từ 1 .... 10 thôi còn từ số 11 trở đi đên .... n thì không được nữa
KHÔNG HIỂU TẠI SAO tôi tìm mãi không ra trong khi đó vùng loát dữ code ghi tới 2000 dòng . Mong bác cùng các bạn xem sửa và chỉ giúp

 

[le_vis]

Như ở bài #2, bác @HieuCD đã nói lỗi của bạn rồi.
Bạn chỉ cần sửa chỗ đó là ra thôi.
Bạn nên chọn cột nào chắc chắn phải điền dữ liệu để xác định dòng cuối cùng có dữ liệu.
Dữ liệu của bạn người số 11 đang không có thông tin cột R nên chỉ tìm ra đến người số 10.
Kinh nghiệm của tôi là cần quy định thông tin nào bắt buộc phải có, không có thì chưa được ghi nhận.

Xin cảm ơn bạn. Đúng chỗ ngứa rồi _ Cảm ơn bạn nhiều
Lẽ ra thêm ngay cho nó đoạn này thì đâu đến nỗi mò suốt - Làm mất thời gian của các bạn
If WorksheetFunction.Trim(.[H7].Value) = "" Then
MsgBox "Ngay thang ve don vi l.viec ?"
validForm = False
Exit Function
End If

 

[HieuCD]

Xin cảm ơn bạn. Đúng chỗ ngứa rồi _ Cảm ơn bạn nhiều

Giời ạ, mãi tới giờ mới biết ngứa ở đâu

 

[le_vis]

Giời ạ, mãi tới giờ mới biết ngứa ở đâu

Xin cảm ơn các bạn nhiều nhiều; Xin lỗi, giải thích hơi khó hiểu làm các bạn mất thời gian
Lẽ ra thêm ngay cho nó đoạn này thì đâu đến nỗi mò suốt - Làm mất thời gian của các bạn
If WorksheetFunction.Trim(.[H7].Value) = "" Then
MsgBox "Ngay thang ve don vi l.viec ?"
validForm = False
Exit Function
End If

 

[VetMini]

Giời ạ, mãi tới giờ mới biết ngứa ở đâu

Nó giống như cái "bất cầu nhơn".
Người thấy nó lần đầu hầu hết ngỡ nó là đồ chơi.



(*1) có người từng hỏi tôi phải chăng nó là cái cây đếm [hột] me.
Đem cái này đếm me thì đâm chém nhau chắc vỡ sòng. Me đếm bằng cách dùng một que tre gạt từng nhóm 4 hạt. Phải que tre người chơi mới nhìn rõ 4 hạt.

 

[vanthinh3101]

Xin cảm ơn các bạn nhiều nhiều; Xin lỗi, giải thích hơi khó hiểu làm các bạn mất thời gian
Lẽ ra thêm ngay cho nó đoạn này thì đâu đến nỗi mò suốt - Làm mất thời gian của các bạn
If WorksheetFunction.Trim(.[H7].Value) = "" Then
MsgBox "Ngay thang ve don vi l.viec ?"
validForm = False
Exit Function
End If

Góp ý thêm, hạn chế sử dụng WorksheetFunction để tăng tốc độ bạn nhé!
Trường hợp này sử dụng If not IsDate(.Range("H7")) Then ...

 

[VetMini]

Góp ý thêm, hạn chế sử dụng WorksheetFunction để tăng tốc độ bạn nhé!
Trường hợp này sử dụng If not IsDate(.Range("H7")) Then ...

Bạn nói như vậy không rõ. Người ta sẽ hiểu lầm bạn muốn nói hàm Trim?
Nói rõ thì là:
[ ] là cách viết tắt của hàm Evaluate. [H7] là dùng hàm Evaluate để tính ra Range("H7"). Trình dịch VBA dịch "[ ]" thành "Evaluate" chậm hơn "Range" và kết nối hàm Evaluate chậm hơn cho nên có thể coi cách viết [H7] là cách hy sinh tốc độ để giảm số ký tự trong code (giảm được 7 ký tự).

 

[vanthinh3101]

Bạn nói như vậy không rõ. Người ta sẽ hiểu lầm bạn muốn nói hàm Trim?
Nói rõ thì là:
[ ] là cách viết tắt của hàm Evaluate. [H7] là dùng hàm Evaluate để tính ra Range("H7"). Trình dịch VBA dịch "[ ]" thành "Evaluate" chậm hơn "Range" và kết nối hàm Evaluate chậm hơn cho nên có thể coi cách viết [H7] là cách hy sinh tốc độ để giảm số ký tự trong code (giảm được 7 ký tự).

Vâng bác, ngoài vấn đề bác nói em còn muốn chủ thớt để ý là ô H7 cần điền dữ liệu ngày tháng, do vậy sử dụng IsDate() thì có thể kiểm tra luôn xem dữ liệu nhập vào có chính xác không?

 

[VetMini]

Lưu ý là ở trên tôi có nói "dùng [ ] tiết kiệm được vài ký tự".
Khi bạn viết code thì tiết kiệm vài ký tự chả xứng đáng để hy sinh tốc độ.

Tuy nhiên, khi debug code và trong cửa sổ Immediate thì "tiết kiệm vài ký tự" cũng khá tiện lợi. Và tôi vẫn dùng thường xuyên.

Trong ví dụ dưới đây, tôi nạp trị 8 vào ô A1, 10 vào ô A2, và gọi hàm max. Dùng [ ] giúp tôi tiết kiệm gõ được một mớ ký tự.

 

[XUANKIETQNG]

@VetMini em có file này nhưng thông tin từ đưa qua ko trúng, nhờ anh xem bổ sung giúp với ạ