Đánh dấu ô này thì con trỏ tự nhảy xuống ô kia (1 người xem)

[Loannie]

Chào các bạn,

Mình đang vướng mắc việc nhập dữ liệu. Mình muốn như thế này, các bạn xem có cách nào chỉ dẫn cho mình nhé:

- Khi 1 trong số các lựa chọn (ô tô, xe máy, máy bay, ngựa) của mục "Phương tiện" dc đánh dấu "x" thì con trỏ sẽ tự động nhảy xuống mục "Thu nhập trung bình".

Yêu cầu tương tự cho các mục tiếp theo.

(mời xem file đính kèm)

Vì nội dung cần nhập rất dài nên việc này tiếp kiệm dc rất nhiều thời gian cho mình. Các bạn giúp mình nhé!

Xin cảm ơn và chúc các bạn một ngày làm việc đầy hứng khởi!

 

[ChanhTQ@]

Mình muốn các bạn chỉ dẫn cho mình nhé:

- Khi 1 trong số các lựa chọn (ô tô, xe máy, máy bay, ngựa) của mục "Phương tiện" dc đánh dấu "x" (2) thì con trỏ sẽ tự động nhảy xuống mục "Thu nhập trung bình".

Yêu cầu tương tự cho các mục tiếp theo.

(mời xem file đính kèm)

(1) Vì nội dung cần nhập rất dài nên việc này tiếp kiệm dc rất nhiều thời gian cho mình. Các bạn giúp mình nhé!

(1) Dài cỡ bao nhiêu vậy bạn?

(2) Cụ thể là xuống dòng nào tương đương vậy bạn? (10, 11 hay . . . 15)

(3) Cái này chỉ có thể xài macro sự kiện; Nhưng để làm được điều đó, bạn cần cụ thể 2 mục trên!

Thân ái!

 

[Loannie]

Chào bạn, hôm nay mình mới làm tàm tạm xong file nhập.

Mỗi câu hỏi dc kí hiệu là q1.1, q1.2....Người trả lời sẽ đánh "x" vào ô màu vàng. Mình muốn ở mỗi câu trả lời, sau khi ấn enter, con trỏ sẽ nhảy xuống ô vàng của câu hỏi tiếp theo.

Bạn xem giúp mình nhé!

Cảm ơn bạn nhiều.

 

[ChanhTQ@]

Bạn tham khảo cặp macro sự kiện này xem có giúp gì cho bạn không (?)

Option Explicit
Private Sub Worksheet_Activate()
 Dim Rng As Range
 
 Set Rng = Union([D5:D6], [c7:C8], [C12:C73], [E75:G81], [E85:G108], [C112:c149])
 Set Rng = Union(Rng, [E151:F158], [C163:C170], [D173], [E176:F180], [C182:C187])
 Rng.Value = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim RgD As Range
 
 Set RgD = Union([D5], [d9])
 If Not Intersect(Target, RgD) Is Nothing Then
    Target.Offset(1).Select
 ElseIf Not Intersect(Target, [D6]) Is Nothing Then
    Target.Offset(1, -1).Select
 ElseIf Not Intersect(Target, [c7:C8]) Is Nothing Then
    [d9].Select
 ElseIf Not Intersect(Target, [D10]) Is Nothing Then
    Target.Offset(2, -1).Select
 ElseIf Not Intersect(Target, [c12:C14]) Is Nothing Then
    [c16].Select
 ElseIf Not Intersect(Target, [c16:C20]) Is Nothing Then
    [c22].Select
 
 End If
End Sub