Hi everyone,
How to change part in bold into access vba ?
Sub Balaco()
Dim sArr(), res(), sRow&, i&
Const e# = 10 ^ (-12) 'Sai so cho phep
Const n& = 50 ' results rows found
i = Range("B999999").End(xlUp).Row
res = Range("B3:C" & i).Value 'data table "Tnpl"
sArr = Range("B3:C" & i).Value 'data table "Tnpl"
Range("B3:C" & i).Value = res
Tong = Range("F3").Value 'Tong field from table "Tong"
sRow = UBound(sArr)
Range("G3").Resize(n, 3) = res 'Table "output"
End Sub
How to change part in bold into access vba ?
Sub Balaco()
Dim sArr(), res(), sRow&, i&
Const e# = 10 ^ (-12) 'Sai so cho phep
Const n& = 50 ' results rows found
i = Range("B999999").End(xlUp).Row
res = Range("B3:C" & i).Value 'data table "Tnpl"
sArr = Range("B3:C" & i).Value 'data table "Tnpl"
Range("B3:C" & i).Value = res
Tong = Range("F3").Value 'Tong field from table "Tong"
sRow = UBound(sArr)
Range("G3").Resize(n, 3) = res 'Table "output"
End Sub
Attachments
Last edited: