Cấu trúc lệnh với For Next (1 người xem)

[khuongvietphong]

Xin hỏi các thành viên trên GPE. Em có đọc được 1 đoạn Code này trên GPE :

Sub CellsExample()
For i = 1 To 10
For j = 1 To 10
Cells(i, j) = "Hang" & i & "cot" & j
Next J
Next i
End Sub

Em muốn hỏi là tại sao trong code trên ta lại phải viết Next J trước Next i ạ. Nếu viết Next i trước và Next j ​sau thì bị báo lỗi ạ.

Em xin cảm ơn !

 

[Let'GâuGâu]

Mọi người ơi, em lại gặp phải vấn đề này ạ. Em đang làm quen với vòng lặp nhưng khi viết lại quên mất không đặt đk cho vòng lặp để thoát khỏi nó. Bây giờ em không biết làm thế nào để thoát khỏi vòng lặp này. Xin mọi người giúp đỡ em với ạ.
View attachment 145747
Thế này đây ạ. Bấm vào đâu thì m cũng vẫn tăng lên. Làm thế nào để tắt hộp này đi đc ạ. Em xin lỗi vì câu hỏi này không đúng với chủ đề, mong addmin bỏ quá.

ctrl Break
không được nữa thì
Ctrl Alt Del
================
ủa mọi ngườ tra lờ hết rồi......hheheheheh
thui bỏ đi.............ặc....ặc

 

[khuongvietphong]

úp khúc code đó lên mới biết được chứ

Nguyên văn là nó thế này : Sub VD_Do()


m = 1 Do
m = m + 2
MsgBox m
If m >10 Then Exit Do
Loop
End Sub

Nhưng do em táy máy đi thay đk m>10 thành m=10 xem nó có báo lỗi gì không.... thế là giờ thành ra thế này đây ạ.

 

[Kiều Mạnh]

Nguyên văn là nó thế này : Sub VD_Do()


m = 1 Do
m = m + 2
MsgBox m
If m >10 Then Exit Do
Loop
End Sub

Nhưng do em táy máy đi thay đk m>10 thành m=10 xem nó có báo lỗi gì không.... thế là giờ thành ra thế này đây ạ.

Bình thường mà....đến 11 là thoát Do

Sub mm()
    m = 1
    Do
        m = m + 2
        MsgBox m
        If m > 10 Then Exit Do
    Loop
End Sub

 

[seikoqn]

Bình thường mà

Sub mm()
    m = 1
    Do
        m = m + 2
        MsgBox m
        If m > 10 Then Exit Do
    Loop
End Sub

Người ta có ghi thêm 1 dòng cuối dưới đoạn code đó mà anh KieuManh đẹp trai!

[I]Nhưng do em táy máy đi thay đk m>10 thành m=10 xem nó có báo lỗi gì không.... thế là giờ thành ra thế này đây ạ.[/I]

 

[khuongvietphong]

Nguyên văn là nó thế này : Sub VD_Do()


m = 1 Do
m = m + 2
MsgBox m
If m >10 Then Exit Do
Loop
End Sub

Nhưng do em táy máy đi thay đk m>10 thành m=10 xem nó có báo lỗi gì không.... thế là giờ thành ra thế này đây ạ.

Phìm Break em không nhìn thấy trên bàn phím đau cả. CTRL+PAUSE đã thử và không ăn thua..Phải dùng tới Task Manager mới tắt đc nó đi đấy ạ. Em cảm ơn mọi người.

 

[khuongvietphong]

sao bạn khuongvietphong hỏi 1 câu là có câu trả lời tới tấp nhỉ ? ngưỡng mộ ghê . chả bù với mình lúc trước hỏi 1 câu đợi cả tháng chưa ai thèm ngó . hu hu

Anh ơi, tại thấy em còn kém quá nên mọi người nhiệt tình giúp đỡ đấy thôi.

 

[ndu96081631]

Nguyên văn là nó thế này : Sub VD_Do()


m = 1 Do
m = m + 2
MsgBox m
If m >10 Then Exit Do
Loop
End Sub

Nhưng do em táy máy đi thay đk m>10 thành m=10 xem nó có báo lỗi gì không.... thế là giờ thành ra thế này đây ạ.

Cách để tắt "cưỡng bức" thì mọi người đã nói rồi. Tuy nhiên chỉ xin góp thêm kinh nghiệm: Sau này đừng bao giờ so sánh = trong VBA. Hoặc là >=, hoặc là <= chứ mà cứ "pằng.. pằng" là có ngày đi tong
(mình tưởng "pằng" mà bác Bill không thấy vậy)

 

[seikoqn]

Phìm Break em không nhìn thấy trên bàn phím đau cả. CTRL+PAUSE đã thử và không ăn thua..Phải dùng tới Task Manager mới tắt đc nó đi đấy ạ. Em cảm ơn mọi người.

Phím Break ở gần phím Pause đó bạn! Bạn tìm kĩ lại xem!

 

[Kiều Mạnh]

Anh ơi, tại thấy em còn kém quá nên mọi người nhiệt tình giúp đỡ đấy thôi.

chắc tại cái hình đẹp quá mà...............Kiểu này Bạn nào có vợ tèo quá

 

[khuongvietphong]

Phím Break ở gần phím Pause đó bạn! Bạn tìm kĩ lại xem!

Mình đã nhìn khắp lượt 2,3 lần rồi nhưng vẫn không thấy bạn ạ. Cảm ơn bạn nhé

 

[giangleloi]

Mình đã nhìn khắp lượt 2,3 lần rồi nhưng vẫn không thấy bạn ạ. Cảm ơn bạn nhé

Có những máy không kiếm được nút Break đâu (Vì có đâu mà kiếm) thì có nút Pause, xài tạm vẫn ổn.