Anh em hướng dẫn viết code (1 người xem)

[chisinhvnn]

Mình đang to mò về VBA, có đoạn code
Sub in_du_lieu_voi_mang()
Dim so_luong(1 To 5) As Integer
Dim i As Integer

With Sheet1.Range("C2")
For i = 1 To 5
so_luong(i) = .Offset(i)
Next i
End With
Debug.Print "So luong"
For i = LBound(so_luong) To UBound(so_luong)
Debug.Print so_luong(i)
Next i
Mình muốn viết code để thực hiện tra trên bản tính tại o D4 chứ không phải cửa số immediata thì làm sao vậy, anh em giiups đỡ

 

[VetMini]

Cái Debug.Print thứ nhất sửa thành:
Sheet1.Range("D4") = "So Luong"
Cái Print thứ hai sửa thành:
Sheet1.Range("D4") = Sheet1.Range("D4").Value & vbNewline & so_luong(i)

 

[chisinhvnn]

Cảm ơn VetMini, thế muốn nó nhảy theo từng o từ D4, đến D8 thì chỉnh sửa sao vậy

 

[VetMini]

Cái Print thứ hai sửa thành:
Sheet1.Range("D4").Offset(0,i) = so_luong(i)

 

[befaint]

thế muốn nó nhảy theo từng o từ D4, đến D8 thì chỉnh sửa sao vậy

Sheet1.Range("D4").Offset(i - 1, 0) = so_luong(i)

 

[VetMini]

Sheet1.Range("D4").Offset(i - 1, 0) = so_luong(i)

Ờ nhỉ. Cái cách offset như bài #4 của tôi sẽ ghi thành nhiều cột thay vì nhiều dòng.
Già lú rồi.