nokiano258vn
Thành viên lười biếng
- Tham gia
- 28/8/07
- Bài viết
- 268
- Được thích
- 277
- Nghề nghiệp
- Bồi thường giải phóng mặt bằng
Tôi có bảng tính gồm Loại cây; Kích thước cây; ĐVT; Đơn giá; Mật độ cây. Nếu thay 'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'! là DG! Thì OK nhưng như vậy thì mỗi lần làm lại phải copy cái DG đấy vào sheet bên cạnh thì bất tiện quá.
Sub nhapcay()
'
' Macro6 Macro
' Macro recorded 10/4/2007 by Nokiano258
'
'
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,2,0)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,3,0)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,4,0)"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,5,0)"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,6,0)"
ActiveCell.Offset(1, -6).Range("A1").Select
End Sub
Sub nhapcay()
'
' Macro6 Macro
' Macro recorded 10/4/2007 by Nokiano258
'
'
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,2,0)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,3,0)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,4,0)"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,5,0)"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,'C:\Documents and Settings\NOKIANO.258\Application Data\Microsoft\AddIns[Tinh cay.xla]DG'!R4C1:R2000C6,6,0)"
ActiveCell.Offset(1, -6).Range("A1").Select
End Sub
Lần chỉnh sửa cuối: