Monday, June 27, 2011
Thời khóa biểu tập thể hình
Sunday, June 26, 2011
Cách khắc phục virus Sality (Pesin)
Thay đổi chỗ tập thể dục
Wednesday, June 8, 2011
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"