Hàm Offset - VBA khi ô dịch chuyển theo điều kiện

[hoahuongduong1986]

Kính gửi các Anh chị và các bạn,
Em có File excel và đoạn Code như sau:

If .Cells(i, 1) = Sheet9.Cells(j, 4) And .Cells(i, 1).Offset(, 11) = "x" Then.....

Câu hỏi của em là: Giờ em phải tìm từ vùng G4 đến vùng L4 cụm từ Chọn/bỏ. Sau đó cái đoạn này Offset(, 11) phải sửa thế nào để phù hợp ạ. Tức là ở đây có thể là 6, 7, 8....hoặc 11 tính từ Cột A ạ.

 

[befaint]

For col = 6 to 11
.Cells(i,1).Offset(, col) chấm Value vào đừng có viết chỏng trơ thế
Next col

 

[hoahuongduong1986]

For col = 6 to 11
.Cells(i,1).Offset(, col) chấm Value vào đừng có viết chỏng trơ thế
Next col

Em cảm ơn ạ. NHưng em chưa hiểu lắm ạ, em đang tư duy nó phải tìm từ G4 đến vùng L4 để xẹm cụm từ Chọn/bỏ nó ở chỗ nào. Sau đó, mới đếm từ A đến cột xuất hiện từ Chọn/bỏ là bằng bao nhiêu ạ. Đoạn Code của anh em chưa hiểu nó tìm cụm Chọn/bỏ thế nào ạ.

 

[befaint]

Từ khúc này

tới khúc này



là bao xa đó bạn?



.Cells(i,1).Offset(, col).Value = "Chọn/bỏ"

 

[hoahuongduong1986]

Từ khúc này
View attachment 254559
tới khúc này

View attachment 254560

là bao xa đó bạn?



.Cells(i,1).Offset(, col).Value = "Chọn/bỏ"

Em cảm ơn Anh ạ !