Dựa vào điều kiện để đánh số cho những ô được chọn (1 người xem)

[AnhThu-1976]

Các anh chị giúp em trường hợp sau:
Em sẽ chọn 1 dãy ô bất kỳ, ví dụ em chọn C5:C10
Nếu ô trên đầu liền kề của dãy cell đã chọn (ở đây sẽ là ô C4 và C4 sẽ có số liệu là 1 con số nào đó từ 0, 1, 2, 3 ...)
Sau khi chạy code, thì toàn bộ dãy ô đã chọn sẽ được đánh số theo nguyên tắc là cộng thêm 1 so với ô đầu liền kề của dãy cell đã chọn ( ví dụ C4 =0 thì dãy ô C5:C10 sẽ được đánh là 1)
Em cảm ơn!

 

[huuthang_bd]

Các anh chị giúp em trường hợp sau:
Em sẽ chọn 1 dãy ô bất kỳ, ví dụ em chọn C5:C10
Nếu ô trên đầu liền kề của dãy cell đã chọn (ở đây sẽ là ô C4 và C4 sẽ có số liệu là 1 con số nào đó từ 0, 1, 2, 3 ...)
Sau khi chạy code, thì toàn bộ dãy ô đã chọn sẽ được đánh số theo nguyên tắc là cộng thêm 1 so với ô đầu liền kề của dãy cell đã chọn ( ví dụ C4 =0 thì dãy ô C5:C10 sẽ được đánh là 1)
Em cảm ơn!

Bạn thử vầy xem.

Selection.Value = Selection.Areas(1).Cells(0, 1).Value + 1

 

[AnhThu-1976]

Em cảm ơn anh nhiều!

 

[AnhThu-1976]

Cho em hỏi thêm
Sau khi chạy code thì xong thì nó sẽ chọn ô liền cuối của dãy cell đã chọn thì mình phải thêm code làm sao
kết quả chọn ô liền cuối theo bài 1 là ô C11
Cảm ơn các bạn & anh/chị.

 

[huuthang_bd]

Cho em hỏi thêm
Sau khi chạy code thì xong thì nó sẽ chọn ô liền cuối của dãy cell đã chọn thì mình phải thêm code làm sao
kết quả chọn ô liền cuối theo bài 1 là ô C11
Cảm ơn các bạn & anh/chị.

With Selection
    .Value = .Areas(1).Cells(0, 1).Value + 1
    .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Rows.Count + 1).Select
End With

 

[snow25]

Cho em hỏi thêm
Sau khi chạy code thì xong thì nó sẽ chọn ô liền cuối của dãy cell đã chọn thì mình phải thêm code làm sao
kết quả chọn ô liền cuối theo bài 1 là ô C11
Cảm ơn các bạn & anh/chị.

Bạn xem code này đúng không.