Cho mình hỏi về xuất biến ra excel

[khunglongkhelua]

Chào mọi anh chị em thành viên trong diễn đàn
Mình là dân xây dựng, nên khá mù mờ về VBA, mong mọi ngươi giúp đỡ

Sub example()
Dim c As Double
Dim d As Double
For c = 0 To 20 Step 1
d = c + 5
If d >= 15 Then Exit For
Next
Range("a1").value = c
Range("b1").value= d
End Sub

Theo đoạn code này thì sẽ ra giá trị c=10, d=15
Nhưng mình muốn xuất ra mọi giá trị c thỏa điều kiện, ví dụ c=0 d=5, c=1 d= 6 .... c=10 d=15, nhưng mình không biết làm sao cả.
Mong các bạn giúp mình.

 

[nghiaphuc]

Chào mọi anh chị em thành viên trong diễn đàn
Mình là dân xây dựng, nên khá mù mờ về VBA, mong mọi ngươi giúp đỡ

Sub example()
Dim c As Double
Dim d As Double
For c = 0 To 20 Step 1
d = c + 5
If d >= 15 Then Exit For
Next
Range("a1").value = c
Range("b1").value= d
End Sub

Theo đoạn code này thì sẽ ra giá trị c=10, d=15
Nhưng mình muốn xuất ra mọi giá trị c thỏa điều kiện, ví dụ c=0 d=5, c=1 d= 6 .... c=10 d=15, nhưng mình không biết làm sao cả.
Mong các bạn giúp mình.

Bạn sửa lại code như sau:

Sub Example()
    Dim c As Double, d As Double
    For c = 0 To 20 Step 1
        d = c + 5
        [A65536].End(xlUp).Offset(1) = c
        [B65536].End(xlUp).Offset(1) = d
        If d >= 15 Then Exit For
    Next
End Sub

 

[khunglongkhelua]

Hi cám ơn bạn rất nhiều. . Bạn có thể giải thích cho mình đoạn này nghĩa là gì kg [A65536].End(xlUp).

 

[nghiaphuc]

Bạn có thể giải thích cho mình đoạn này nghĩa là gì kg [A65536].End(xlUp).

Đây là ô cuối cùng có dữ liệu của cột A, tương tự việc bạn chọn ô A65536 và nhấn Ctrl+Shift+Mũi tên lên vậy.