• Cách chuyển những mã in đậm sang vba access
  • 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