Cách chuyển những mã in đậm sang vba access
btamsgn > 30-03-22, 11:25 AM
Chào các bạn,
Mình có đoạn mã bên dưới phần in đậm màu đỏ.
Nhờ các bạn chuyển phần mã in đậm màu đỏ sang vba access như thế nào ?
Sub Balaco()
i = Range("B999999").End(xlUp).Row
res = Range("B3:C" & i).Value 'Bảng tra dữ liệu "Tnpl"
sArr = Range("B3:C" & i).Value 'Bảng tra dữ liệu "Tnpl"
Range("B3:C" & i).Value = res
Tong = Range("F3").Value 'Tong can tìm từ bảng "Tong"
sRow = UBound(sArr)
Range("G3").Resize(n, 6) = res 'xuất ra Bảng "output"
End Sub
file minh hoạ :
https://drive.google.com/file/d/1LDbAChE...sp=sharing