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

[Hong.Van]

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!

 

[ptm0412]

Hàng hóa, dịch vụ bán ra không chịu thuế GTGT = mục [26]
Vậy dòng tổng sheet banra để [26] trên 1 ô nào đó cùng dòng rồi dò tìm.

 

[mhung12005]

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!

Bạn thử cái củ chuối này xem sao.

 

[Hong.Van]

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

 

[ptm0412]

Nếu ô A20 sheet banra là [26], ô A25 sheet banra là [29], ...
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

 

[Quang_Hải]

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!

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

 

[Hong.Van]

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!

 

[Quang_Hải]

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

 

[ndu96081631]

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!

File này hình như giống file ở đây:
http://www.giaiphapexcel.com/forum/...sau-đó-Paste-các-nhóm-trên-cùng-một-bảng-tính!
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?

 

[Quang_Hải]

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!

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í

 

[Hong.Van]

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!

 

[Quang_Hải]

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.

 

[Hong.Van]

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!