[Help] Vòng lặp (1 người xem)

[dieplongvn]

Cả nhà ơi, mình đang có 1 bài kiểm tra Excel với đề tài như sau:

Các cột A,B,C,D chỉ chứa giá trị từ 1 -> 9, nếu D1 = 9 thì giá trị trong ô C2 tăng 1. Vòng lặp này sẽ tiếp tục cho các ô còn lại
- D1 = 9 thì C2 + 1
- C2 = 9 thì B3 + 1
- B3 = 9 thì A4 + 1

Biết rằng các số trong cột tăng lần lượt từ 1 -> 9, max tối đa là 9

Em không biết viết code, vì em mới chập chững học Excel. Các anh chị giúp đỡ làm sao để giải quyết vấn đề này một cách tự động, em ngồi gõ nhìn hoa cả mắt.

Em cảm ơn trước. Hậu tạ sau

 

[haonlh]

Tôi dùng Sub sau
Sub lap()
Dim i&, k&, n&, m&, a(1 To 4) As Long
For i = 0 To 9999
n = i
For k = 4 To 1 Step -1
a(k) = n - (n \ 10) * 10
n = n \ 10
Next
n = i + 1
For k = 1 To 4
Cells(n, k) = a(k)
Next
Next
End Sub

Xem file đính kèm. Kết quả trên Sheet2.

 

[dieplongvn]

Tuyệt vời, em giải quyết được rồi, cảm ơn anh haonlh nhiều

 

[haonlh]

Cả nhà ơi, mình đang có 1 bài kiểm tra Excel với đề tài như sau:

Các cột A,B,C,D chỉ chứa giá trị từ 1 -> 9, nếu D1 = 9 thì giá trị trong ô C2 tăng 1. Vòng lặp này sẽ tiếp tục cho các ô còn lại
...
Em cảm ơn trước. Hậu tạ sau

Có 2 chuyện
1. Thử sửa lại bài toán ở cái chỗ in đỏ D1 = 9 thay bằng
D1 = 7 hay D1 = 14 thì sao
2. Hậu tạ sao )