Sửa giúp mình lỗi VBA

[ngocleminh2109]

Hiện mình chạy vba lọc danh sách tuổi con nhân viên nhưng bị lỗi này, lúc đầu chạy bình thường nhưng khi mình thêm tên con nhân viên lại bị lỗi, nhưng không thêm nữa thì chạy bình thường. Kiểu như bị giới hạn dữ liệu mảng vậy. Mọi người chỉ mình cách chỉnh nhé do file này của người trước để lại

 

[snow25]

Hiện mình chạy vba lọc danh sách tuổi con nhân viên nhưng bị lỗi này, lúc đầu chạy bình thường nhưng khi mình thêm tên con nhân viên lại bị lỗi, nhưng không thêm nữa thì chạy bình thường. Kiểu như bị giới hạn dữ liệu mảng vậy. Mọi người chỉ mình cách chỉnh nhé do file này của người trước để lạiView attachment 265137View attachment 265138

Khả năng là 1 trong 2 mảng darr hoặc Tem là không tồn tại.

 

[Maika8008]

Hiện mình chạy vba lọc danh sách tuổi con nhân viên nhưng bị lỗi này, lúc đầu chạy bình thường nhưng khi mình thêm tên con nhân viên lại bị lỗi, nhưng không thêm nữa thì chạy bình thường. Kiểu như bị giới hạn dữ liệu mảng vậy. Mọi người chỉ mình cách chỉnh nhé do file này của người trước để lạiView attachment 265137View attachment 265138

Không có file, code chỉ có cái hình chứ không chép lên.

 

[ngocleminh2109]

Không có file, code chỉ có cái hình chứ không chép lên.

Bạn xem giúp mình nhé

 

[CHAOQUAY]

Hiện mình chạy vba lọc danh sách tuổi con nhân viên nhưng bị lỗi này, lúc đầu chạy bình thường nhưng khi mình thêm tên con nhân viên lại bị lỗi, nhưng không thêm nữa thì chạy bình thường. Kiểu như bị giới hạn dữ liệu mảng vậy. Mọi người chỉ mình cách chỉnh nhé do file này của người trước để lạiView attachment 265137View attachment 265138

Thử khai báo lại mảng dArr thành 1 triệu dòng xem có lỗi hay không.
Tệ nhất cũng phải có code mới tính được

 

[qtm1987]

Dòng này : sArr = .Range(.[A8], .[A10].End(xlDown)).Resize(, 74).Value (bạn để end(xlDown) tương tự như ấn ctrl + phím xuống thì gặp ô rỗng sẽ dừng lại ko lấy hết dữ liệu đến hàng cuối cùng)
sửa lại thử: sArr = .Range(.[A8], .[A10000].End(xlUp)).Resize(, 74).Value (tính từ hàng thứ 10.000 tính lên như ấn ctrl + phím lên)

 

[snow25]

Bạn xem giúp mình nhé

Sửa cái dòng này.Khai báo thiếu mảng.

ReDim dArr(1 To UBound(sArr, 1), 1 To 10)
Thành
ReDim dArr(1 To UBound(sArr, 1)+1000, 1 To 10)

 

[ngocleminh2109]

Dòng này : sArr = .Range(.[A8], .[A10].End(xlDown)).Resize(, 74).Value (bạn để end(xlDown) tương tự như ấn ctrl + phím xuống thì gặp ô rỗng sẽ dừng lại ko lấy hết dữ liệu đến hàng cuối cùng)
sửa lại thử: sArr = .Range(.[A8], .[A10000].End(xlUp)).Resize(, 74).Value (tính từ hàng thứ 10.000 tính lên như ấn ctrl + phím lên)

Hi bạn , ok rồi nhé,cảm ơn bạn nhiều

 

[SA_DQ]

Mình xin góp ý với chủ bài đăng là CSDL của bạn rất nan giải về sau;
Thứ nhất người ta có thể xin con nuôi & sẽ có 4 hay 5 đứa thì sao?
Nếu là đơn vị mới thành lập thì đa số chưa có con, như vậy CSDL của bạn trống hoát nhiều ô
Tệ hơn là ai lại gộp chung 3 loại dữ liệu vô 1 ô làm vậy; Kiểu làm đó thì nên & chỉ nên xài bên Word thôi; Chứ bên Excel làm vậy rồi thống kê nam/nữ, độ tuổi gian nan vô chừng, may là có diễn đàn giúp, chứ mình thì không bao giờ giúp bạn xứ lý với thiết kế CSDL như vây!

Nếu là mình thì sẽ tách ra làm 2 bảng (tables hay 2 trang hẵn hoi như:

a./ Phần CSDL chung:

Mã NV

Họ và tên

Ngày CT

Vị trí làm việc

Địa điểm CT

Ngày Sinh

Nơi sinh

TNCB0001

VÕ TRƯỜNG SƠN

10/18/1999

Tổng Giám Đốc

Bình Dương

7/29/1967

BÌNH DƯƠNG

TNCB0002

VŨ THỊ UYÊN PHƯƠNG

10/18/1999

Chủ tịch HĐQT

Bình Dương

5/17/1969

BÌNH DƯƠNG

TNCB0100

VÕ THIỀU DIỄM

10/18/1999

TV HĐQT

Bình Dương

3/20/1971

BÌNH DƯƠNG

TNCB0099

TRẦN VĂN MINH

4/6/2007

Giám đốc điều hành

Bình Dương

8/15/1968

TP HCM

TNCB0448

PHẠM THỊ THU

9/11/2017

Trưởng phòng Kế Toán

Bình Dương

7/16/1985

BÌNH DƯƠNG

TNCB0449

VÕ TRƯỜNG NAM

9/11/2017

Nhân viên Tài chính

Bình Dương

12/23/1997

TP HCM

TNCB0116

TRẦN QUAN ĐỐN

10/25/2010

Nhân viên Tài chính

Bình Dương

6/9/1986

AN GIANG

TNCB0283

NGUYỄN THỊ NHUNG

8/14/2014

Nhân viên CSKH

Bình Dương

4/12/1981

TP HCM

TNCB0360

HOÀNG MINH TÂM

3/2/2015

Nhân viên Tài xế

Bình Dương

7/25/1968

TP HCM

TNCB0226

LÊ MINH NGỌC

8/28/2012

Trưởng phòng HR&IT

Bình Dương

9/21/1991

BẾN TRE

TNCB0012

NGUYỄN THỊ HỒNG

12/13/2002

Tạp vụ

Bình Dương

11/10/1959

TP HCM

TNCB0136

TÔ VĂN CHÂU

2/13/2011

Bảo vệ

Bình Dương

12/13/1958

BÌNH DƯƠNG

TNCB0243

PHẠM VĂN HỒNG

1/11/2012

Nhân viên Bảo trì

Bình Dương

12/4/1959

BÌNH DƯƠNG

TNCB0411

NGUYỄN THỊ HỒNG NGỌC

8/1/2016

Nhân viên chứng từ

Bình Dương

2/16/1993

HÀ TĨNH

TNCB0412

LÊ THỊ HẰNG

8/1/2016

Nhân viên chứng từ

Bình Dương

7/17/1994

BÌNH PHƯỚC

TNCB0413

PHẠM THỊ HOA

8/2/2016

Nhân viên chứng từ

Bình Dương

5/24/1991

THANH HÓA

TNCB0097

TRẦN THANH THUẬN

8/2/2010

Nhân viên Giao nhận

Bình Dương

6/3/1976

BÌNH DƯƠNG

TNCB0047

TRẦN HÙNG LÂM

12/31/2009

Nhân viên Giao nhận

Bình Dương

9/19/1976

BÌNH DƯƠNG

TNCB0265

NGUYỄN DANH ĐẠT

10/1/2013

Nhân viên Giao nhận

Bình Dương

11/10/1985

TP HCM

2./ Phần chi tiết về con cái:

Mã QH

Họ & Tên​

GT​

Năm sinh​

TNCB0099​

Trần Văn Minh​

Nam​

2004​

TNCB0099​

Trần Văn Minh Tuấn​

Nam​

2006​

TNCB0448​

Lê Quí Phái​

Nam​

2012​

TNCB0448​

Lê Phạm Tuệ Tâm​

Nữ​

2016​

. . .​

. . . .​

TNCB0265​

Nguyễn Ngọc Nguyễn Nữ​

Nữ​

2020​

Ngoài ra quá trình công tác hay quá trình lương của từng người cũng thực hiện như thiết kế (Phần chi tiết) như trên
Cột sống của thiết kế này là mã quan hệ (như bạn thấy trong ví dụ)

Chúc mọi người vui, khõe & trãi qua đợt dịch thành công!