if else

nam96

Yêu THVBA
đoạn code của mình bị lỗi không tính biểu thức trong Then. mọi người có thể cho mình biết sai ở đâu được không ạ?
[
Private Sub cmdTinh_Click()
If txtT < (txtDD / 6) Then
txtP = 2 * txtT * txtS * txtE * txtW / (txtDD - 2 * txtT * txtY)
Else
txtP = 2 * txtT * txtS * txtE * txtW / (txtd + 2 * txtC + 2 * txtT * (1 - txtY))
End If
End Sub
]
 
V

vothanhthu

Guest
1. Bài của bạn là hỏi đáp, nên phải được lập trong Box Thành viên tự giúp đỡ nhau, không phải trong Box Lập trình VBA.

2. Trước khi viết bài, bạn nên đọc quy định khi viết bài trên diễn đàn tại đây
Bài của bạn đang vi phạm về không để code trong thẻ code, cách thức trình bày, tiêu đề khó hiểu và đăng sai box.

3. Code của bạn không hề có khai báo biến mà lại có để sử dụng, bạn có thể trình bày lý do đc không?. Nếu có thể, nên đưa file demo lên cho mọi người dễ hình dung.

4. Lỗi Type Mismatch sẽ báo lỗi cụ thể tại một dòng nào đó, đó là đoạn nào?, bạn có thể up hình ảnh đoạn lỗi đó lên không?.

Thứ nghiêm túc đề nghị bạn sửa lại nội dung, cách thức trình bày như các ý đã nêu ở trên. Nếu không, bài viết của bạn có thể sẽ bị xóa.
 
Sửa lần cuối bởi điều hành viên:
Top