Mã thập phân của các cột

[conan198]

Các bạn cho mình hỏi, mình đang tạo một bảng để tính điểm bằng excel nhưng mình không muốn dùng công thức mà dùng VB để viết, nhưng có một vấn đề đặt ra là
Trong khi dùng vòng For để duyệt cột, ví dụ duyệt từ cột C đến E chẳng hạn thì mình có thể viết
for i=3 to 5 step 1
cells(4,chr(64+i)).value="hhhh"
là được nhưng nếu dùng cách trên để duyệt từ cột AA đến AF chẳng hạn thì không được
Vậy mình xin được chỉ giáo, Cảm ơn nhiều

 

[ChanhTQ@]

Đây là 1 cách dễ hiểu & không khó làm

Option Explicit
Sub DuyetCotBu()
 Dim jJ As Byte, CotD As Byte, CotC As Byte
 
 CotD = Cells(1, "AA").Column:      CotC = Cells(1, "AF").Column
 For jJ = CotC To CotD Step -2
   GPE = Cells(35, jJ).Value
 Next jJ
End Sub