Giúp tạo công thức lọc dữ liệu

Liên hệ QC
Giúp bao nhiêu bài nhớ Thank bấy nhiêu. Tòan là "đúng ý mình" mà No Thanks, buồn quá.
 

File đính kèm

  • ham tinh(2)(2).xls
    34 KB · Đọc: 39
Lần chỉnh sửa cuối:
=offset($A$1,0,0,counta($A:$A),i) i có thể tùy biến.
Đã giúp thì giúp cho trót _ rồi nhận thanks một thể, Thu Nghi giải thích hộ là tôi nên đặt công thức này tại ô nào của sheet nào không ? Riêng phần dùng công thức tôi học ở các bài viết của bạn rất nhiều , xin cảm ơn! . Nếu có thể được bạn thiết kế lại file giúp theo ý bạn, mỗi tháng tôi thường phải nhập khoảng 1.000->1.500 dòng cho mỗi bảng nhập hoặc xuất hàng và danh mục khoảng gần 600 mặt hàng. Tôi vừa học vừa làm nên nhiều khi biết là rườm rà nhưng không biết cắt bớt ở phần nào cho gọn mà không làm ảnh hưởng tới bảng tính.
 
Lần chỉnh sửa cuối:
To ThongXanh
Đã làm lại file theo yêu cầu của bạn, chưa test, bạn gắn dữ liệu vào thử, còn hơi "sạn", sẽ hòan thiện thêm sau. Có thêm và bớt một số name.
File này chỉ dùng cho 1 tháng. Hiểu rồi chuyển qua VBA làm cho 1 năm.
Cơ bản là nguyên lý.
Chúc thành công!
 

File đính kèm

  • Thang 1-05-GPE-02.rar
    20.1 KB · Đọc: 69
ThuNghi đã viết:
To ThongXanh
Đã làm lại file theo yêu cầu của bạn, chưa test, bạn gắn dữ liệu vào thử, còn hơi "sạn", sẽ hòan thiện thêm sau. Có thêm và bớt một số name.
File này chỉ dùng cho 1 tháng. Hiểu rồi chuyển qua VBA làm cho 1 năm.
Cơ bản là nguyên lý.
Chúc thành công!
Bác xem có thể chuyển hộ tôi dòng tổng cộng xuống dưới cùng , chứ đưa lên đầu thế này thì không đúng theo mẫu sổ quy định của nhà nước.
 
Theo tôi được biết, dòng tổng nằm ở đầu không sai theo quy định. Nhưng nếu muốn đưa xuống dưới, if làm = ct thì nên manual thôi. Chớ làm thêm hàm if dòng là dòng max thì sum, nó thế nào và rườm rà.
Nhớ là khi bỏ dòng tổng cộng phía trên nhớ xem lại định nghĩa name, còn không chỉ cần xóa mà không delete dòng thì OK.
 
ThuNghi đã viết:
Theo tôi được biết, dòng tổng nằm ở đầu không sai theo quy định. Nhưng nếu muốn đưa xuống dưới, if làm = ct thì nên manual thôi. Chớ làm thêm hàm if dòng là dòng max thì sum, nó thế nào và rườm rà.
Nhớ là khi bỏ dòng tổng cộng phía trên nhớ xem lại định nghĩa name, còn không chỉ cần xóa mà không delete dòng thì OK.

Gửi Thu Nghi và các bác trong diễn đàn, tôi đã dùng file Thu nghi làm giúp chỉnh sửa chút xíu và dùng tương đối tốt, nhưng còn một vấn đề nữa nếu trong EXCEL có thể làm được các bác chỉ hộ. Đó là ở sheet SCTVL khi in có mặt hàng cả tháng chỉ có vài dòng, nhưng có mặt hàng lại vài chục dòng, vì vậy khi in ra không đảm bảo mỹ thuật và lôgic cho sổ. Nếu ít dòng thì thừa một khoảng dòng trắng ở phía cuối trang, nhưng nhiều dòng thì lại thành 2 trang(mà trang 2 không có các ô tiêu đề). Tất nhiên nếu làm ẩn dòng trống đi cũng được nhưng mất thời gian lắm.Tôi muốn có công thức nào sử dụng để khi tổng số dòng hiển thị số liệu bằng Max (Code_xuat) thì các dòng còn lại sẽ tự động ẩn đi, các bác nghiên cứu giúp tôi nhé.
 
Các bác xem giúp có cách nào giải quyết được không?
 
Làm công thức phế quá, tôi thử làm = VBA theo yêu cầu của bạn. In ngang và số dòng tối đa là 36. Bạn có thể chỉnh lạo theo máy in của mình. Hơi "rừng".
Bạn xem thử.
 

File đính kèm

  • Thang 1-05-GPE-03-VBA.rar
    27.8 KB · Đọc: 46
Thunghi này.
Bạn chưa bẫy lỗi thì phải.
Nếu Tôi chọn mã D thì code báo lỗi. Khi báo lỗi rùi dù chọn mã đúng vẫn cứ báo lỗi.
Bạn thong_xanh2003 chưa tét đã thank rùi hả.

TC.
 
Thien đã viết:
Thunghi này.
Bạn chưa bẫy lỗi thì phải.
Nếu Tôi chọn mã D thì code báo lỗi. Khi báo lỗi rùi dù chọn mã đúng vẫn cứ báo lỗi.
Bạn thong_xanh2003 chưa tét đã thank rùi hả.
TC.
Ac ac, theo đồng chí thì Test OK mới click Thanks người sẵn lòng giúp mình sao ??? còn nếu không OK thì "quăng nguyên cục lơ" à !!!

Thân!
 
tedaynui đã viết:
Ac ac, theo đồng chí thì Test OK mới click Thanks người sẵn lòng giúp mình sao ??? còn nếu không OK thì "quăng nguyên cục lơ" à !!!

Thân!

Trời ơi giải đáp giúp là tốt, nhưng sự giải đáp của bạn có giúp giải quyết được vấn đề chưa, nếu chưa thì nhờ giúp tiếp chứ "quăng nguyên cục lơ" là bạn có tội với mình là biết người ta sai mà không chịu chỉ cho người ta biết và có tội với người ta khi mang ơn mà không chịu trả ơn à (giống vô tình vô nghĩa thì phải????).

Từ trước tời giờ mỗi khi ai giúp mình giải đáp vấn đề mình đều rất quý tình cảm của họ dù điều họ giải đáp chưa giải quyết triệt để. Bạn thử xem lại các bài mình viết đi xem có phải vậy không?.

Bạn này vui tính thế chứ.

Thân chào.
 
Thien đã viết:
Bạn thong_xanh2003 chưa tét đã thank rùi hả.
TC.
Hi hi, thì như bạn nói đấy, Thong_xanh đã Thanks sự nhiệt tình của Bác ThuNghi đó thôi !

Thân!
 
Sorry, đúng là chưa test vì tự tạo ra dl nên o ktra.
Tạo nên 1 code kiemtra nữa là OK
Sub kiemtra()
With Application
.Calculation = xlCalculationAutomatic
End With
If WorksheetFunction.VLookup(Range("MaHH"), Range("Ma_BQ"), 8, 0) <> "" Then
Call LayDL
Else
MsgBox "Ma hang nay chua co ps"
Exit Sub
End If
End Sub
Và sửa lại
Private Sub CommandButton1_Click()
Call kiemtra
End Sub
Cám ơn Thiện nhé. Small thing.
 
Chào các bác, nói thật là về VBA tôi là Gà mờ nên tải file Thu Nghi làm hộ bằng VBA về mà chưa dám nhập thử số liệu. Tôi chỉ quen làm bằng công thức , có gì trục trặc còn biết đường mò ra.Nhưng file của Thu Nghi rất có ích cho tôi để học VBA(tôi đang học mót mà), vậy sao không cảm ơn Thu Nghi được. Cảm ơn tất cả các bác, chúc thành công!
 
thong_xanh2003 đã viết:
Chào các bác, nói thật là về VBA tôi là Gà mờ nên tải file Thu Nghi làm hộ bằng VBA về mà chưa dám nhập thử số liệu. Tôi chỉ quen làm bằng công thức , có gì trục trặc còn biết đường mò ra.Nhưng file của Thu Nghi rất có ích cho tôi để học VBA(tôi đang học mót mà), vậy sao không cảm ơn Thu Nghi được. Cảm ơn tất cả các bác, chúc thành công!
Bạn cứ mạnh dạn test, if unknown chỗ nào, nếu bạn thực sự thích thi tự dưng bạn tìm hiểu thôi, cam kết sẽ HD bạn cụ thể.
Còn như đã nói, làm công việc trên mà = ct thì hơi khó. Cùng lắm chỉ áp dụng autofilter.
Tôi cũng làm KT nhưng hiện tại chưa hình dung mình nên bắt đầu từ đâu.
 
To Thong_Xanh
Tôi chỉnh lại file của bạn = công thức, (bán tự động, có VBA 1 ít), in khỏang 2 trang có footer.
Bạn nhớ xem và chỉnh sửa I1 trong sh hangnhap và sh hangxuat. Tôi đã chỉnh lại. Lúc đầu chưa Test phần này = ct (có nhiều > 1 mặt hàng)
Trong file tôi có 2 button thực hiện 2 code hide và unhid khi in thôi, dẽ lắm.
 

File đính kèm

  • Thang 1-05-GPE-03.rar
    32.6 KB · Đọc: 78
ThuNghi đã viết:
To Thong_Xanh
Tôi chỉnh lại file của bạn = công thức, (bán tự động, có VBA 1 ít), in khỏang 2 trang có footer.
Bạn nhớ xem và chỉnh sửa I1 trong sh hangnhap và sh hangxuat. Tôi đã chỉnh lại. Lúc đầu chưa Test phần này = ct (có nhiều > 1 mặt hàng)
Trong file tôi có 2 button thực hiện 2 code hide và unhid khi in thôi, dẽ lắm.
To Thu Nghi
Bác chỉ giúp tôi làm thế nào để tạo được 2 hộp hide và unhide trong sheet, cái này trong Excel gọi là gì,không biết mới hỏi bác đừng cười nhé.
 
Để tôi nôm na cho bạn nhé:
+ Những hộp đó là những CommandButton sẽ thực thi 1 công việc (code) nào đó khi ta nhấn vào đó.
+ Để tạo nó:
- Vào menu View, Toolbars, đánh dấu vào Control Toolbox lúc này hiện ra 1 số icon.
- Bạn rê mouse đến ô chữ nhật, có hiện CommandButton, click vào, trở về bảng tính click cái nữa sẽ hiện 1 hình chữ nhật có chữ CommandButton và có 8 hình tròn xung quanh.
- Right Click trên hình CN, chọn properties, chọn thuộc tính caption, đánh vào MyButton (ví dụ, tên gì cũng được). Đóng lại (Nhấp chuột bên ngòai), ta thấy điều kinh ngạc. Ta đã làm được 1 phần.
- Bây giờ ta muốn khi ta nhấn vào MyButton, thì nó sẽ làm cái gì...
- Bạn có để ý trên menu Control ToolBox có 1 icon hình như cái ê ke, khi rê muose vào sẽ có hiện Exit Design Mode, bạn nhấp vào, khi icon này sáng lên tức là ta đang ở chế độ thiết kế. Nhấp đúp vào MyButton, ta sẽ thấy màn hình VBA hiện ra như sau:
Private Sub CommandButton1_Click()

End Sub
Trên chữ end sub sẽ là những lệnh hay code ta yêu cầu thực hiện. Cụ thể trong bài này là Hide và UnHide
Đính kèm 2 code trên
Private Sub CommandButton1_Click()
Call Hide
End Sub
Private Sub CommandButton2_Click()
Call UnHide
End Sub
Bạn muốn xem Code Hide thế nào pls nhấn Alt F11, vào module sẽ thấy những code trên.
Hy vọng bạn hiểu.
Nhờ ttphong và các bạn tạo phần này = video hay hd 1 cách mô phạm. hơn.
 
ThuNghi đã viết:
Để tôi nôm na cho bạn nhé:
+ Những hộp đó là những CommandButton sẽ thực thi 1 công việc (code) nào đó khi ta nhấn vào đó.
+ Để tạo nó:
- Vào menu View, Toolbars, đánh dấu vào Control Toolbox lúc này hiện ra 1 số icon.
- Bạn rê mouse đến ô chữ nhật, có hiện CommandButton, click vào, trở về bảng tính click cái nữa sẽ hiện 1 hình chữ nhật có chữ CommandButton và có 8 hình tròn xung quanh.
- Right Click trên hình CN, chọn properties, chọn thuộc tính caption, đánh vào MyButton (ví dụ, tên gì cũng được). Đóng lại (Nhấp chuột bên ngòai), ta thấy điều kinh ngạc. Ta đã làm được 1 phần.
- Bây giờ ta muốn khi ta nhấn vào MyButton, thì nó sẽ làm cái gì...
- Bạn có để ý trên menu Control ToolBox có 1 icon hình như cái ê ke, khi rê muose vào sẽ có hiện Exit Design Mode, bạn nhấp vào, khi icon này sáng lên tức là ta đang ở chế độ thiết kế. Nhấp đúp vào MyButton, ta sẽ thấy màn hình VBA hiện ra như sau:

Trên chữ end sub sẽ là những lệnh hay code ta yêu cầu thực hiện. Cụ thể trong bài này là Hide và UnHide
Đính kèm 2 code trên

Bạn muốn xem Code Hide thế nào pls nhấn Alt F11, vào module sẽ thấy những code trên.
Hy vọng bạn hiểu.
Nhờ ttphong và các bạn tạo phần này = video hay hd 1 cách mô phạm. hơn.
Cảm ơn Thu Nghi , bạn hướng dẫn như vậy là rất cụ thể và dễ hiểu , tôi sẽ tập làm , khi nào thành công sẽ trả bài cho "thầy" nhé!!!
 
Web KT
Back
Top Bottom