mình muốn chuyển vba excel sang vba access

[Sunny]

Chào các bạn,
Mình có tìm thấy đoạn code vba excel về tổ hợp. Nay mình muốn chuyển sang access vba nhờ các bạn trợ giúp và sửa lại mã dưới sang vba access.
Rất mong nhận tin từ các bạn.
Ah, đoạn mã vba excel như sau:

Sub Balaco()

i = Range("B999999").End(xlUp).Row
  res = Range("B3:C" & i).Value               'Bảng tra dữ liệu
  sArr = Range("B3:C" & i).Value             'Bảng tra dữ liệu
  Range("B3:C" & i).Value = res
  Tong = Range("F3").Value                      'Tong can tìm
  sRow = UBound(sArr)

  Range("G3").Resize(n, 6) = res              'xuất ra Bảng "output"
End Sub

 

[giaiphapvba]

Bạn có thể bớt chút thời gian để trình bày lại cho dễ hiểu không ạ?

• Nếu bạn không biết cách upload ảnh lên diễn đàn, bạn vui lòng tham khảo topic sau:
  Bạn cần đăng nhập để thấy link
  .
• Bạn lưu ý phải sử dụng thẻ Code khi viết code trên forum. Xin xem mục 4 trong
  Bạn cần đăng nhập để thấy link
  .
• Bạn nên nói rõ Input là gì? Output muốn ra sao? Logic của chương trình là gì?
• Bạn nên có file demo. Bạn có thể upload file lên google drive (
  Bạn cần đăng nhập để thấy link
  ) hoặc mediafire.com rồi dẫn link về diễn đàn.

Một bài viết trình bày dễ hiểu là một bài viết sử dụng hình minh họa trực quan. Một bài viết chỉ toàn chữ sẽ khiến người khác không muốn đọc.

Một bài viết dễ hiểu sẽ giảm thiểu thời gian đọc hiểu cho người khác, bạn sẽ nhanh chóng nhận được hỗ trợ nếu bài viết của bạn là một bài viết dễ hiểu.
Chúng tôi mong bạn hiểu và hợp tác.