Tạo Add In tính toán số lượng đai trong Dầm BTCT

[vanle33]

Các anh chị lập giúp em add in để sử dụng trong excel để tính toán số lượng đai. Yêu cầu như file đính kèm.
Em muốn dùng add in chứ không phải công thức!
Các anh chị giúp em nhé
Thanks

 

[Quang_Hải]

Thử hàm tự tạo này xem sao. Nếu cần thiết thì thay đổi cái số 3 để có kết quả như ý nha

Public Function sodai(sothunhat As Integer, sothuhai As Integer) As Long
Dim kq
kq = sothunhat / sothuhai + 1
kq = Application.RoundUp(kq, 3)
sodai = kq
End Function

 

[vanle33]

Thử hàm tự tạo này xem sao.

Public Function sodai(sothunhat As Integer, sothuhai As Integer) As Long
Dim kq
kq = sothunhat / sothuhai + 1
kq = Application.RoundUp(kq, 1)
sodai = kq
End Function

Cách sử dụng hàm này thế nào vậy anh?
Em thử chèn thêm 1 module rồi. Nhưng không sử dung đc hàm sodai(B5,C5)

 

[Quang_Hải]

Cách sử dụng hàm này thế nào vậy anh?
Em thử chèn thêm 1 module rồi. Nhưng không sử dung đc hàm sodai(B5,C5)

Xem trong file đính kèm coi thế nào

 

[vanle33]

Xem trong file đính kèm coi thế nào

Em thử rồi
Với Khoảng cách là 5 chữ số thì được
Nhưng từ 6 chữ số trở lên thì báo lỗi #NUM
Anh sửa Code cho em nhé

 

[Quang_Hải]

Ai biết số lớn thế đâu, sửa lại tí thôi

Public Function sodai(sothunhat As Long, sothuhai As Long) As Long
Dim kq
kq = sothunhat / sothuhai + 1
sodai = Application.RoundUp(kq, 3)
End Function

 

[vanle33]

Vì khoảng cách của em có lúc lên tới 500m = 500000 (mm) đó mà. hiii
Thanks anh so much

 

[juvedelned]

Mình cũng sưu tầm được file tính dầm này, các bạn xem thử nhe
https://www.youtube.com/watch?v=0RC0nwttnBU
http://www.mediafire.com/download/iy...eam+-+Demo.rar