Chỉnh sửa bảng tính sức chịu tải cọc

Ngày 08/6/2011, bảng tính sức chịu tải cọc khoan nhồi được chỉnh sửa về cách trừ trọng lượng bản thân cọc theo hướng trọng lượng cọc và hệ số nhóm cọc không ảnh hưởng lẫn nhau. Đoạn marco như sau:

(R[-4]C: là trọng lượng cọc)

NEW

Cells(j, 1).Select

Selection.InsertIndent 1

Cells(j, 3).Select

ActiveCell.FormulaR1C1 = "(compress)"

Cells(j, 8).Select

ActiveCell.FormulaR1C1 = "=R[-6]C*" & Range("$F$10").Address(ReferenceStyle:=xlR1C1) & "-R[-4]C" & ""

Cells(j, 8).Select

Selection.NumberFormat = "0"

Cells(j, 9).Select

ActiveCell.FormulaR1C1 = "kN"

OLD

Cells(j, 1).Select

Selection.InsertIndent 1

Cells(j, 3).Select

ActiveCell.FormulaR1C1 = "(compress)"

Cells(j, 8).Select

ActiveCell.FormulaR1C1 = "=(R[-6]C-R[-4]C)*" & Range("$F$10").Address(ReferenceStyle:=xlR1C1) & ""

Cells(j, 8).Select

Selection.NumberFormat = "0"

Cells(j, 9).Select

ActiveCell.FormulaR1C1 = "kN"