Hỏi cách lấy giá trị khi dữ liệu thay đổi??

[trinhnt1308]

Các bác giúp đỡ em bài toán này,yêu cầu em ghi rõ trong file
Em cảm ơn!!
P/S: Không dùng VBA càng tốt.

 

[trinhnt1308]

Em thử làm thử theo cách này nhưng bí quá(vướng chỗ lấy giá trị cuối cùng).
Các bác xem file, chỉnh sửa hay có cao kiến gì cho em giải quyết bài toán này với!!
(Yêu cầu em ghi trong sheet1)
Cảm ơn mọi người!!

 

[solomon2211]

Chào bạn:

Tôi nghĩ giải pháp như sau đáp ứng yêu cầu của bạn.

Bạn chép Code này làm function cho bạn:

Function Tinh(Longcuoi As Double, daixoan As Double, treolong As Double, Nhohon18 As Boolean) As Double
Kq1 = ((20 / 1000) ^ 2 * 3.14 / 4) * 11700 * 0.05 * 7860
kq2 = ((20 / 1000) ^ 2 * 3.14 / 4) * Longcuoi * 0.05 * 7860
Kq3 = ((16 / 1000) ^ 2 * 3.14 / 4) * 3000 * 0.05 * 7860
kq4 = ((10 / 1000) ^ 2 * 3.14 / 4) * daixoan * 0.05 * 7860
kq5 = ((20 / 1000) ^ 2 * 3.14 / 4) * 700 * 0.05 * 7860
kq6 = ((12 / 1000) ^ 2 * 3.14 / 4) * 420 * 0.05 * 7860
kq7 = ((16 / 1000) ^ 2 * 3.14 / 4) * treolong * 0.05 * 7860
If Nhohon18 Then
Tinh = Kq3 + kq4 + kq6 + kq7
Else
Tinh = Kq1 + kq2 + kq5
End If
End Function

Cú pháp dùng hàm này là: Tinh(longcuoi,daixoan,treolong,nhohon18)
longcuoi: chieu dai thep long cuoi
daixoan: chieudai thep dai xoan
treolong: chieu dai thep treo long
nhohon18: nhập là 1 nếu <=18; 0 nếu >18

Kết quả như file đính kèm.
Chúc bạn thành công.

 

[trinhnt1308]

Chào bạn:

Tôi nghĩ giải pháp như sau đáp ứng yêu cầu của bạn.

Bạn chép Code này làm function cho bạn:

Function Tinh(Longcuoi As Double, daixoan As Double, treolong As Double, Nhohon18 As Boolean) As Double
Kq1 = ((20 / 1000) ^ 2 * 3.14 / 4) * 11700 * 0.05 * 7860
kq2 = ((20 / 1000) ^ 2 * 3.14 / 4) * Longcuoi * 0.05 * 7860
Kq3 = ((16 / 1000) ^ 2 * 3.14 / 4) * 3000 * 0.05 * 7860
kq4 = ((10 / 1000) ^ 2 * 3.14 / 4) * daixoan * 0.05 * 7860
kq5 = ((20 / 1000) ^ 2 * 3.14 / 4) * 700 * 0.05 * 7860
kq6 = ((12 / 1000) ^ 2 * 3.14 / 4) * 420 * 0.05 * 7860
kq7 = ((16 / 1000) ^ 2 * 3.14 / 4) * treolong * 0.05 * 7860
If Nhohon18 Then
Tinh = Kq3 + kq4 + kq6 + kq7
Else
Tinh = Kq1 + kq2 + kq5
End If
End Function

Cú pháp dùng hàm này là: Tinh(longcuoi,daixoan,treolong,nhohon18)
longcuoi: chieu dai thep long cuoi
daixoan: chieudai thep dai xoan
treolong: chieu dai thep treo long
nhohon18: nhập là 1 nếu <=18; 0 nếu >18

Kết quả như file đính kèm.
Chúc bạn thành công.

Thx bác somon nhiều, em đang định ngồi tính tay từng bảng 1 rồi gán giá trị ngược lại(Hix gần 200 cọc-->200 bảng chắc die quá)
Một lần nữa cảm ơn bác nhiều