Giúp về câu lệnh IF THEN ELSE IFTHEN (1 người xem)

[cuongf122]

Mình làm về kỹ thuật, không rành về VBA lắm
hôm nay đang cần viết một số hàm cần mọi người giúp đỡ

Function Tinh_N(Rb As Double, Rs As Double, b As Double, h As Double, ao As Double, phi1 As Byte, m As Byte, phi2 As Byte, n As Byte, phi3 As Byte, anpha As Double, c As Double)
Dim x1, x2, c1, c2 As Double
Dim Sb As Double
Dim Nb, Ns As Double
Dim i, j, k As Byte
Dim thep(1 To 2, 1 To 200) As Double

c1 = 0.5 * (h + b / Tan(anpha))
c2 = -c1
x1 = 0.5 * Abs(h - b / Tan(anpha))
x2 = -x1

If Tan(anpha) > b / h Then
If (c1 >= c And c >= x1) Then Sb = b ^ 2 / (2 * Tan(anpha)) * (c1 - c) ^ 2 / (c1 - x1) ^ 2
If (x1 > c And c > x2) Then Sb = b ^ 2 / (2 * Tan(anpha)) + (x1 - c) * b
If (x2 >= c And c >= c1) Then Sb = b ^ 2 / (2 * Tan(anpha)) + (x1 - x2) * b + b ^ 2 / (2 * Tan(anpha)) * (1 - (c - c2) ^ 2 / (x2 - c2) ^ 2)

If Tan(anpha) < b / h Then
If (c1 >= c And c >= x1) Then Sb = (h ^ 2 * Tan(anpha) / 2) * (c1 - c) ^ 2 / (c1 - x1) ^ 2
If (x1 > c And c > x2) Then Sb = (h ^ 2 * Tan(anpha) / 2) + (x1 - c) * Tan(anpha) * h
If (x2 >= c And c >= c1) Then Sb = (h ^ 2 * Tan(anpha) / 2) + (x1 - x2) * Tan(anpha) * h + (h ^ 2 * Tan(anpha) / 2) * (1 - (c - c2) ^ 2 / (x2 - c2) ^ 2)


If Tan(anpha) = b / h Then
If (c1 >= c And c >= 0) Then Sb = b ^ 2 / (2 * Tan(anpha)) * (c1 - c) ^ 2 / (c1 ^ 2)
If (0 > c And c >= c2) Then Sb = b * h / 2 + (b ^ 2 * Tan(anpha) / 2) * (c1 - c) ^ 2 / (c1 ^ 2)

Nội dung thì rất tường minh nhưng không rõ có sai cấu trúc hay không?
Xin hỏi mọi người đoạn code trên mình làm có sai sót gì về vòng lặp không?
Không cần quan tâm quá về công thức
Lần đầu lập chủ đề có gì xin sai sót nội quy thì các bạn quản trị sửa hộ
Mình cám ơn trước

 

[phihndhsp]

các dòng
if Tan(anpha)=b/h then
kết thúc if ở đâu

 

[cuongf122]

If Tan(anpha) > b / h Then kết thúc sau mỗi lần xuống cách dòng
If (c1 >= c And c >= x1) Then kết thúc sau mỗi lần xuống dòng
mình điền mục EndIf vào nhưng đều báo lỗi

 

[phihndhsp]

If Tan(anpha) > b / h Then kết thúc sau mỗi lần xuống cách dòng
If (c1 >= c And c >= x1) Then kết thúc sau mỗi lần xuống dòng
mình điền mục EndIf vào nhưng đều báo lỗi

bạn nên xem lại cấu trúc if trong VBA rồi nói chuyện tiếp nha

 

[VetMini]

...
Xin hỏi mọi người đoạn code trên mình làm có sai sót gì về vòng lặp không?

Sai sót trầm trọng từ code cho đến câu hỏi: có thấy cái vòng lặp nào đâu?
Dân kỹ thuật mà chuyện gà hỏi vịt thì chết người thật.
Trong nhà máy, cần cẩu gãy càng, bảo công nhân tìm máy phát điện hư chỗ nào!

 

[jack nt]

if Tan(anpha)=b/h then

nhân tiện nhắc bà con:
CHỈ SO SÁNH = VỚI SỐ NGUYÊN, KHÔNG LÀM VỚI SỐ THỰC