Xin trợ giúp vòng lặp VBA

[H.Văn Khánh]

Mọi người ơi ai rành về VBA viết giúp em viết cái code với ạ, em mày mò cả tuần nay em không thể nào làm được em khổ quá rồi, đành phải lên đây nhờ cao thủ lập trình giúp em với, như ở trong file em có kèm theo, em tạo hai nút bấm màu đỏ và xanh và em muốn dùng một vòng lặp khi bấm vào nút xanh hoặc đỏ. Ví dụ ta bấm vào nút đỏ thì tự động di chuyển xuống và tô màu đỏ, bấm vào nút xanh thì di chuyển lên và tô màu xanh như trong file em có hình minh họa, xin hãy giúp em với ạ.

 

[batman1]

Nếu không sửa tiêu đề thì bài sẽ vào sọt rác. Muốn biết vi phạm gì thì đọc nội qui.

 

[H.Văn Khánh]

Nếu không sửa tiêu đề thì bài sẽ vào sọt rác. Muốn biết vi phạm gì thì đọc nội qui.

Em người mới nên chưa biết gì về nội quy

 

[batman1]

Em người mới nên chưa biết gì về nội quy

Thì đọc đi. Nhất là
III. Quy định về tiêu đề bài viết:Tiêu đề bài viết phải sử dụng bằng tiếng Việt có dấu đầy đủ

 

[SA_DQ]

Em người mới nên chưa biết gì về nội quy

Nhập gia tùy tục: Có thực hiện đúng nội 2ui mới được cộng đồng này giúp nha bạn!

 

[hoangocgiang]

Nếu không sửa tiêu đề thì bài sẽ vào sọt rác. Muốn biết vi phạm gì thì đọc nội qui.

Batman1: xin được liên hệ với bạn

 

[batman1]

Batman1: xin được liên hệ với bạn

Tôi không thích liên lạc riêng đâu. Có gì cần hỏi cứ hỏi mọi người, nếu tôi muốn thì tôi tham gia. Nếu muốn hỏi tôi thì cũng hỏi công khai.

 

[Phuocam]

Mọi người ơi ai rành về VBA viết giúp em viết cái code với ạ, em mày mò cả tuần nay em không thể nào làm được em khổ quá rồi, đành phải lên đây nhờ cao thủ lập trình giúp em với, như ở trong file em có kèm theo, em tạo hai nút bấm màu đỏ và xanh và em muốn dùng một vòng lặp khi bấm vào nút xanh hoặc đỏ. Ví dụ ta bấm vào nút đỏ thì tự động di chuyển xuống và tô màu đỏ, bấm vào nút xanh thì di chuyển lên và tô màu xanh như trong file em có hình minh họa, xin hãy giúp em với ạ.

Trong file có 3 nút:

1. Nút đỏ: Tô màu đỏ và đi xuống

2. Nút Xanh: Tô màu Xanh và đi lên

3. Nút xóa

Hy vọng bạn bớt khổ.

 

[H.Văn Khánh]

Trong file có 3 nút:

1. Nút đỏ: Tô màu đỏ và đi xuống

2. Nút Xanh: Tô màu Xanh và đi lên

3. Nút xóa

Hy vọng bạn bớt khổ.

ôi được rồi mình cảm ơn nhiều ạ

 

[Maika8008]

ôi được rồi mình cảm ơn nhiều ạ

Phải nói là:
Ôi, mình bớt khổ rồi, cảm ơn nhiều!
Thế mới phải chứ.

 

[VetMini]

Phải nói là:
Ôi, mình bớt khổ rồi, cảm ơn nhiều!
Thế mới phải chứ.

Đỡ khổ nhất là khỏi phải đọc "quy định về bài viết". Và học được bài học: "hầu hết quy định chỉ là cọp giấy".

 

[H.Văn Khánh]

Trong file có 3 nút:

1. Nút đỏ: Tô màu đỏ và đi xuống

2. Nút Xanh: Tô màu Xanh và đi lên

3. Nút xóa

Hy vọng bạn bớt khổ.

Muốn quay lại một bước khi mình nhập sai thì làm thế nào ạ

 

[Phuocam]

Muốn quay lại một bước khi mình nhập sai thì làm thế nào ạ

Viết thêm 1 sub nữa, gắn thêm một nút nữa.

..

 

[batman1]

Muốn quay lại một bước khi mình nhập sai thì làm thế nào ạ

1. Tôi đã thêm nút Lùi.
Với 3 nút mầu xanh, mầu đỏ và Lùi lại đổi Name thành Xanh, Do va Lui.

Vd. đổi tên nút Xanh: phải chuột trên "nút mầu xanh" -> đúp chuột hoặc click 2 lần vào Name Box -> gõ Xanh -> Enter.

Cả 3 tên tôi đã đổi hộ bạn.

2. Cả 2 nút Xanh và Do đều được gán cho macro toMau, cả 2 nút xoa mầu và Lùi lai đều được gán cho nút xoaMau.

3. Có thể lùi lại cho tới ô xuất phát.

 

[Phuocam]

Muốn quay lại một bước khi mình nhập sai thì làm thế nào ạ

Thử thêm code này:

Public Sub Lui()
Cells(r, c).Interior.ColorIndex = 0
If c > 1 Then
    c = c - 1
    r = IIf(Cells(r + 1, c).Interior.ColorIndex > 0, r + 1, r - 1)
End If
End Sub