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:
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:
Mã:
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
Sửa lần cuối: