Giúp công thức dò tìm trên bảng tính không cố định

Chia sẻ bởi:hands

★★★★★

‹ Dò tìm theo nhiều điều kiện, sắp... Code tự động kích họat mở File... ›

Quảng cáo

Em chào Thầy cô & anh chị!
Giúp em dò tìm để cho kết quả như những cell có chữ màu xanh trong Sheet ToKhai
Em có mô tả trong Sheet ToKhai
Em cảm ơn!

Hàng hóa, dịch vụ bán ra không chịu thuế GTGT = mục
Vậy dòng tổng sheet banra để trên 1 ô nào đó cùng dòng rồi dò tìm.
Bạn thử cái củ chuối này xem sao.

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-c%C3%B4ng-th%E1%BB%A9c-d%C3%B2-t%C3%ACm-tr%C3%AAn-b%E1%BA%A3ng-t%C3%ADnh-kh%C3%B4ng-c%E1%BB%91-%C4%91%E1%BB%8Bnh.71161/

Em áp dụng hàm Offset()
Xem file

Nếu ô A20 sheet banra là , ô A25 sheet banra là , …
thì công thức J17 là:
=OFFSET(BanRa!$B$1;MATCH($I17;BanRa!$A$1:$A$1000;0)-1;7)
Copy cho J19:J21

Bài này HongVan sử dụng code, sao không xài hàm tự tạo luôn
Mục a, b, c nếu có chữ GTGT thì đơn giản nhỉ
Trong file mình có thêm chữ GTGT vào, nếu thuế không cho sửa thì coi như bài này out

Hàm tự tạo của anh không tự cập nhật số liệu mới sau khi chạy code ở sheet BanRa
Mặc dù bảng tính đang ở chế độ Automatic
Muốn cập nhật thì chọn từng cell có cthức bấm F2 & Enter
———–
Thông thường em thấy hàm tự tạo tự cập nhật!
Em cảm ơn!

Bạn thêm cái code sự kiện này vào xem sao

Private Sub Worksheet_Activate()
Range("J17,J19:J21").Formula = "=Tim(c17,1)"
Range("L20:L21").Formula = "=Tim(c20,2)"
End Sub

File này hình như giống file ở đây:
https://www.giaiphapexcel.com/forum/showthread.php?71098-Gi%C3%BAp-code-l%E1%BB%8Dc-theo-th%C3%A1ng-nh%C3%B3m-sau-%C4%91%C3%B3-Paste-c%C3%A1c-nh%C3%B3m-tr%C3%AAn-c%C3%B9ng-m%E1%BB%99t-b%E1%BA%A3ng-t%C3%ADnh!
Vậy tại sao khi dùng code VBA xong, ta không nhân đó điền kết quả sang sheet ToKhai luôn?

Theo gợi ý của anh NDU thì ráp vào thế này sẽ thuận tiện hơn.

Bài này mình có thêm ý tưởng là xoá luôn cột N cho gọn, nhưng trong code thì lằng nhằng thêm tí

Bài này biến S1, S2 chưa định nghĩa As WorkSheet nên bị báo lỗi "Variable not defined"
Set S1 = Sheets("BanRa"): Set S2 = Sheets("NhapBan")
Cảm ơn!

Nghe HongVan nói mình cũng thấy lạ nghen, S1 và S2 là sheetcode không phải sheetname thì cần gì khai báo. Trên máy tính mình code chạy ào ào mà. Mình có dòng Option Explicit nếu không khai báo thì làm sao code chạy được chứ. Cũng lạ thiệt hén.

Trong File em gởi lên, ở sheet BanRa em đã bỏ khai báo S1, S2 –> anh chạy thử
sheet Muavao, có khai báo S1, S2 –> anh chạy thử
Trong code em có thêm một số định dạng
———
Bài #9, trong code em có sửa
If i > 1 And i < 5 Then S1.Cells(17 + i, [B]10[/B]) = kq(n, 8)
  If i > 2 And i < 5 Then S1.Cells(17 + i, [B]12[/B]) = kq(n, 9)
Sửa thành
If i > 1 And i < 5 Then S1.Cells(17 + i, [B]8[/B]) = kq(n, 8)
  If i > 2 And i < 5 Then S1.Cells(17 + i, [B]9[/B]) = kq(n, 9)
Anh xem giúp có đúng không
———-
Em có áp dụng bài #9 của anh cho Sheet MuaVao, Nhờ anh kiểm tra sơ lược giùm
Trước mắt thấy code chạy ổn định
Em cảm ơn!