Giúp mình dùng cấu trúc nào cho đúng! (1 người xem)

[hasitinh]

mình có vòng lặp for i = 1 to n
If theo vòng lặp For then
Nếu đúng thực hiện lệnh 1
Tiếp tục vòng lặp For
Nếu đúng tiếp thực hiện lệnh 2
...
Nếu sai thì không thực hiện gì
End if
End for
End sub .
Cảm ơn mọi người đã chia sẻ.

 

[SA_DQ]

Bạn nên viết thành các câu lệnh tương tự như vầy:

For I= 1 To [B35].Value
   If Cells(I, "A").Value = 2*I then
         MsgBox "Cút Xéo Ngay!" , , "GPE.COM Xin Chào!":      Exit For
  End If
Next I

 

[hasitinh]

Bạn nên viết thành các câu lệnh tương tự như vầy:

For I= 1 To [B35].Value
   If Cells(I, "A").Value = 2*I then
         MsgBox "Cút Xéo Ngay!" , , "GPE.COM Xin Chào!":      Exit For
  End If
Next I

Tôi xin lổi đã làm phiền bạn, tôi cũng trên đà học tập từng ngày tiến bộ và cố gắng hoàn thiện bản thân, xong bạn biết thì chỉ trên tinh thần giúp đở nhau cùng tiến bộ, bạn biết thì có thể chỉ tôi phương hướng để tôi mày mò tiếp chứ không nên chỉ bậy như vậy. Không biết bạn bao nhiêu tuổi rồi nhưng tôi thấy bạn như đứa trẻ con. Xin lổi đã làm phiền bạn . Mong sự giúp đở cũa cộng đồng GPE

 

[darknightno007]

Tôi xin lổi đã làm phiền bạn, tôi cũng trên đà học tập từng ngày tiến bộ và cố gắng hoàn thiện bản thân, xong bạn biết thì chỉ trên tinh thần giúp đở nhau cùng tiến bộ, bạn biết thì có thể chỉ tôi phương hướng để tôi mày mò tiếp chứ không nên chỉ bậy như vậy. Không biết bạn bao nhiêu tuổi rồi nhưng tôi thấy bạn như đứa trẻ con. Xin lổi đã làm phiền bạn . Mong sự giúp đở cũa cộng đồng GPE

Ngta chỉ đùa thôi. Bạn đừng bận tâm. Bạn xem cú pháp rồi làm lại thử xem.

 

[TheThienChu]

mình có vòng lặp for i = 1 to n
If theo vòng lặp For then
Nếu đúng thực hiện lệnh 1
Tiếp tục vòng lặp For
Nếu đúng tiếp thực hiện lệnh 2
...
Nếu sai thì không thực hiện gì
End if
End for
End sub .
Cảm ơn mọi người đã chia sẻ.

Gửi bạn tham khảo
Đọc bài bạn không hiểu là 2 hàm if co lồng nhau hay không.
Code dưới đây viết cho 2 hàm if tách rời.

Option Explicit

Public Sub Ha_Si_Tinh()
Dim i As Long
Dim Res3, Res2
For i = 1 To 100
    If i Mod 2 = 0 Then
        Res2 = Res2 + 1
    End If

    If i Mod 3 = 0 Then
        Res3 = Res3 + 1
    End If
Next i

With Sheet1
.Range("A1") = "Co " & Res2 & " so chia het cho 2"
.Range("A2") = "Co " & Res3 & " so chia het cho 3"
End With

Beep
End Sub

 

[VetMini]

Ngta chỉ đùa thôi. Bạn đừng bận tâm. Bạn xem cú pháp rồi làm lại thử xem.

Hỏi thì câu cú lủng củng. Phản ứng thì nóng nảy. Khong cần phải phân trần.

 

[darknightno007]

Hỏi thì câu cú lủng củng. Phản ứng thì nóng nảy. Khong cần phải phân trần.

Ý bạn nói chủ topic ak hả.

 

[SA_DQ]

Nếu ai dịch nghĩa macro trên của mình & suy luận thì sẽ thấy:
Mình chỉ chêm chút trò thôi, chứ các dòng lệnh trong nới vẫn hoàn toàn nghiêm túc với đầy đủ nội dung của nó!