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

khuongvietphong · 21/8/15

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 !

Kiều Mạnh · 21/8/15

khuongvietphong đã viết:
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 !

Lỗi là đúng rồi xem cách trình bày code tự hiểu nha.....Còn giải thích mình kém lắm

PHP:

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

Cách mình viết Mặc định i là dòng, còn j là cột cứ thế mà duyệt tới.....nếu không thích vậy thì a,d,h ......tùy thích.....

HyperLink · 21/8/15

For của biến nào thì kết thúc Next phải là biến ấy => bạn viết theo kiểu râu ông nọ cắm cằm bà kia ...

SA_DQ · 21/8/15

Để chắc như bắp, ta nên làm thế này:

Sau khi viết dòng lệnh
For J=1 to 9

Ta nên xuống hàng & viết ngay dòng lệnh

Next J

Sau đó chèn vài dòng trống vô giữa 2 dòng lệnh này & viết vô các dòng trống những dòng lệnh để thực hiện trong vòng lặp cụ thể đó;

Cũng vậy, nếu ta xài câu lệnh

If A = B Then

Ta nên thêm ngay dòng dưới là

End If

. . . . .

(& tuổi càng cao càng nên làm vậy; Tuy có chậm hơn mấy em trẻ nhưng chắc tin hơn)

seikoqn · 21/8/15

khuongvietphong đã viết:
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 !

Nếu không hiểu bản chất vòng For lồng thì bạn có thể bỏ tên biến sau Next đi.

khuongvietphong · 21/8/15

hpkhuong đã viết:
.... cái j nằm trong cái i ;
P/s: chàng đẹp trai tìm đọc lý thuyết For Next 5-10 phút là biết ngay ý mà! Link nè: http://www.giaiphapexcel.com/forum/showthread.php?6354-Giới-thiệu-Cơ-bản-về-vòng-lặp-For-next

Đọc đến cái đoạn bôi đỏ này là hiểu liền à. Em cảm ơn anh hpkhuong nhé

khuongvietphong · 21/8/15

kieu manh đã viết:
Lỗi là đúng rồi xem cách trình bày code tự hiểu nha.....Còn giải thích mình kém lắm

PHP:

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

Cách mình viết Mặc định i là dòng, còn j là cột cứ thế mà duyệt tới.....nếu không thích vậy thì a,d,h ......tùy thích.....

Trình bày thế này đúng là nhìn ra vấn đề luôn ấy ạ !

giangleloi · 21/8/15

seikoqn đã viết:
Nếu không hiểu bản chất vòng For lồng thì bạn có thể bỏ tên biến sau Next đi.

Không đồng ý với ý kiến này. Nếu đã không hiểu thì không đụng tới, đã đụng tới thì phải hiểu rõ bản chất, chứ lơ tơ mơ thì làm mãi không bao giờ hiểu. Còn nếu đã hiểu thì không cần thêm biến sau next đọc cũng sẽ tự hiểu thôi.

khuongvietphong · 21/8/15

Xin cảm ơn mọi người đã nhiệt tình vào giúp đỡ. Em đã hiểu ra vấn đề rồi ạ.

Kiều Mạnh · 21/8/15

HYen17 đã viết:
Để chắc như bắp, ta nên làm thế này:

Sau khi viết dòng lệnh
For J=1 to 9

Ta nên xuống hàng & viết ngay dòng lệnh

Next J

Sau đó chèn vài dòng trống vô giữa 2 dòng lệnh này & viết vô các dòng trống những dòng lệnh để thực hiện trong vòng lặp cụ thể đó;

Cũng vậy, nếu ta xài câu lệnh

If A = B Then

Ta nên thêm ngay dòng dưới là

End If

. . . . .

(& tuổi càng cao càng nên làm vậy; Tuy có chậm hơn mấy em trẻ nhưng chắc tin hơn)

Rất khoa học ..........chắc hơn Bắp........ --=0

doveandrose · 21/8/15

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

giangleloi · 21/8/15

doveandrose đã viết:
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

Âu cũng là do ăn ở, tu tâm tích đức thêm nhiều nữa vô. kaka

Let'GâuGâu · 21/8/15

doveandrose đã viết:
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

phải chọn cái avatar hot một chút chứ lị...............heheheheh

Kiều Mạnh · 21/8/15

Các Bạn Xôm tụ vui quá ta............Nếu tập chung lại làm vài xị chắc vui lắm nhỉ...... --=0

HyperLink · 21/8/15

khuongvietphong đã viết:
Trình bày thế này đúng là nhìn ra vấn đề luôn ấy ạ !

đúng thế, khi viết các nhóm lệnh If, For, Select Case ... bạn nên thụt đầu dòng cho mỗi nhóm thì nhìn thấy rất rõ. $-\\/.$

khuongvietphong · 21/8/15

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 ạ.

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á.

Kiều Mạnh · 21/8/15

khuongvietphong đã viết:
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á.

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

seikoqn · 21/8/15

khuongvietphong đã viết:
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á.

Tổ hợp phím CTR+PAUSE

seikoqn · 21/8/15

khuongvietphong đã viết:
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á.

Bấm tỏ hợp phím CTR+Break

giangleloi · 21/8/15

seikoqn đã viết:
Tổ hợp phím CTR+PAUSE

Cách nhanh gọn nhất là Ctrl + Shift + Esc tắt đi. Hehe

Let'GâuGâu · 21/8/15

khuongvietphong đã viết:
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 · 21/8/15

kieu manh đã viết:
ú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 · 21/8/15

khuongvietphong đã viết:
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

PHP:

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

seikoqn · 21/8/15

kieu manh đã viết:
Bình thường mà

PHP:

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! }}}}}

Mã:

[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 · 21/8/15

khuongvietphong đã viết:
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 · 21/8/15

doveandrose đã viết:
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 · 21/8/15

khuongvietphong đã viết:
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 · 21/8/15

khuongvietphong đã viết:
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 · 21/8/15

khuongvietphong đã viết:
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à.......... --=0

.....Kiểu này Bạn nào có vợ tèo quá

khuongvietphong · 21/8/15

seikoqn đã viết:
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 · 21/8/15

khuongvietphong đã viết:
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.

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

Người dùng đang xem chủ đề này

Be all you can be !

I don't program, I beat code into submission!!!

Thành viên hoạt động

/(hông là gì!

Thành viên hoạt động

Be all you can be !

Be all you can be !

Thành viên gắn bó

Be all you can be !

I don't program, I beat code into submission!!!

hello

Thành viên gắn bó

Thành viên mới

I don't program, I beat code into submission!!!

Thành viên hoạt động

Be all you can be !

I don't program, I beat code into submission!!!

Thành viên hoạt động

Thành viên hoạt động

Thành viên gắn bó

Thành viên mới

Be all you can be !

I don't program, I beat code into submission!!!

Thành viên hoạt động

Be all you can be !

Be all you can be !

Huyền thoại GPE

Thành viên hoạt động

I don't program, I beat code into submission!!!

Be all you can be !

Thành viên gắn bó

Thời gian đếm ngược.