Code thay công thức mảng trong Excel (1 người xem)

[saomai6692]

Em kính chào các anh, chị
Để cho file Excel chạy không bị chậm, em muốn nhờ các anh chị viết giúp đỡ code để thay thế công thức mảng (có 2 ví dụ, công thức này em xin trên diễn đàn GPE).
Trân trọng cảm ơn

 

[Let'GâuGâu]

Em kính chào các anh, chị
Để cho file Excel chạy không bị chậm, em muốn nhờ các anh chị viết giúp đỡ code để thay thế công thức mảng (có 2 ví dụ, công thức này em xin trên diễn đàn GPE).
Trân trọng cảm ơn

bạn nên mô tả bằng lời, cthức của bạn dài quá..............

 

[chuot0106]

Em kính chào các anh, chị
Để cho file Excel chạy không bị chậm, em muốn nhờ các anh chị viết giúp đỡ code để thay thế công thức mảng (có 2 ví dụ, công thức này em xin trên diễn đàn GPE).
Trân trọng cảm ơn

Bạn có thể cho biết tác dụng của 2 công thức trong 2 ví dụ trên được không?

 

[chuot0106]

Em kính chào các anh, chị
Để cho file Excel chạy không bị chậm, em muốn nhờ các anh chị viết giúp đỡ code để thay thế công thức mảng (có 2 ví dụ, công thức này em xin trên diễn đàn GPE).
Trân trọng cảm ơn

Viết cho bạn code VD2 trước đã:

Sub vd2()
Sheet2.Range("C15:C"&sheet1.Range("C65500").End(Xlup).Row).Sort Key1:=Range("C5"), Order1:=xlAscending
End Sub

 

[saomai6692]

Em cảm ơn các anh chị.
VD1: là tự động ghi số phiếu nhập(PN) sẽ được ghi thứ tự theo các điều kiện như: Cùng Ngày tháng cùng sêri cùng số hóa đơn thì cùng phiếu nhập(PN/013); khác ngày khác số phiếu(cùng sêri) thì khác phiếu nhập; khác ngày khác số phiếu(khác sêri) thì khác phiếu nhập;
VD2: Tự động sắp xếp thứ tự từ nhỏ(01) đến lớn(03);
Kính mong anh chj giúp đỡ

 

[chuot0106]

Em cảm ơn các anh chị.
VD1: là tự động ghi số phiếu nhập(PN) sẽ được ghi thứ tự theo các điều kiện như: Cùng Ngày tháng cùng sêri cùng số hóa đơn thì cùng phiếu nhập(PN/013); khác ngày khác số phiếu(cùng sêri) thì khác phiếu nhập; khác ngày khác số phiếu(khác sêri) thì khác phiếu nhập;
VD2: Tự động sắp xếp thứ tự từ nhỏ(01) đến lớn(03);
Kính mong anh chj giúp đỡ

Bạn xem File đã đúng ý chưa?
P/S: Cho tôi hỏi thêm là số phiếu của bạn có lớn không?, Ví dụ PN/ bắt đầu từ PN/001 đến PN/... bao nhiêu?(Tức số lượng phiếu nhập có lớn không? Khoảng 100 phiếu không?). Cho tôi biết để điều chỉnh code.

 

[saomai6692]

Em cảm ơn. Số phiếu của em dự kiến 1000<.

 

[chuot0106]

Em cảm ơn. Số phiếu của em dự kiến 1000<.

Tôi nghĩ cách đánh số phiếu của bạn như thế này có đúng không:
PN/001, PN/002,...,PN/009(Từ 1 đến 9)
PN/010-->PN/099(Từ 10 đến 99)
PN/100-->PN/999(Từ 100 đến 999)

 

[chuot0106]

Code này hoàn thiện hơn code trước. Kiểm tra thử các trường hợp có thể xảy ra nhé. Có gì trục trặc gọi lại cho tôi 0996.202.666.

 

[saomai6692]

Em cảm ơn, số phiếu trên thực tế là khi nhập liệu nó sẽ tự động đánh số từ PN/001 đến PN/999, hoặc PX/001 đến PX/999, với các điều kiện như em đã nêu ở trên. Em thấy file của anh chị đã gần được rồi đó vì em chưa thử PN/999 hoặc PX/... Em trân trọng cảm ơn

 

[saomai6692]

Rất tuyệt vời, em cảm ơn các anh chị. Kính chúc sức khỏe và hạnh phúc

 

[saomai6692]

Em chào anh chị.
Code trên chạy rất tốt, tuy nhiên khi em thay tên Sub vd1() thành Sub aaa() thì nó báo lỗi không chạy. Thế là sao vậy, phải sửa ở chỗ nào vậy. Em cảm ơn

 

[0905744404]

Rất tuyệt vời, em cảm ơn các anh chị. Kính chúc sức khỏe và hạnh phúc

Code đã chạy tốt rồi thì cứ để mà dùng sửa làm gì nũa.

 

[saomai6692]

Em chào anh chị.
Code trên chạy rất tốt, tuy nhiên khi em thay tên Sub vd1() thành Sub aaa() thì nó báo lỗi không chạy. Thế là sao vậy, phải sửa ở chỗ nào vậy, sửa tên là linh động trên diễn đàn. Em cảm ơn

 

[chuot0106]

Em chào anh chị.
Code trên chạy rất tốt, tuy nhiên khi em thay tên Sub vd1() thành Sub aaa() thì nó báo lỗi không chạy. Thế là sao vậy, phải sửa ở chỗ nào vậy. Em cảm ơn

Khi bạn đổi tên Sub thì nút liên kết để chạy code nó bị mất tác dụng chứ sao. Lúc đầu tặt tên con là "Mẹt", sau đó đổi tên con thành "Hoa", giờ gọi mẹt sao nó nghe, phải gọi là "Hoa" chứ?
Khắc phục: Nháy chuột phải vào nút bấm(Ví dụ nút "VD1")-->Assign_Macro chọn sub bạn mới đổi tên.("aaa").

 

[saomai6692]

Em cảm ơn. Đúng là không Thầy đố mà làm lên. Trân trọng cảm ơn chuot0106