Giúp em viết code bằng giá trị ô bên trên thay công thức (1 người xem)

[0905744404]

Chào các anh chị GPE!
Nhờ mọi người giúp em viết đoạn code cho file đính kèm:
- Khi nhập liệu ở cột E thì các cột B,C,D bằng với giá trị ô bên trên trong cột đó
Em xin cám ơn!

 

[giangleloi]

Chào các anh chị GPE!
Nhờ mọi người giúp em viết đoạn code cho file đính kèm:
- Khi nhập liệu ở cột E thì các cột B,C,D bằng với giá trị ô bên trên trong cột đó
Em xin cám ơn!

Bạn có thể giải thích cụ thể hơn không? Nói như bạn vậy thì cột B, C , D giống nhau hết rồi còn gì. Nhập như thế nào để biết là lấy dữ liệu ô bên trên nữa hay không?

 

[0905744404]

Bạn có thể giải thích cụ thể hơn không? Nói như bạn vậy thì cột B, C , D giống nhau hết rồi còn gì. Nhập như thế nào để biết là lấy dữ liệu ô bên trên nữa hay không?

Giả sử em nhập ô B9 ngày 26/09/2015, ô C9 là số 3, ô D9 là Nguyễn Văn C Thì
ô B10 cũng giống ô B9, C10 giống C9, D10 giống D9

 

[doveandrose]

Giả sử em nhập ô B9 ngày 26/09/2015, ô C9 là số 3, ô D9 là Nguyễn Văn C Thì
ô B10 cũng giống ô B9, C10 giống C9, D10 giống D9

tôi nghiêm túc cảnh cáo đồng chí có mấy trăm bài viết rồi mà nhờ code còn up file .xlsx

 

[giangleloi]

Giả sử em nhập ô B9 ngày 26/09/2015, ô C9 là số 3, ô D9 là Nguyễn Văn C Thì
ô B10 cũng giống ô B9, C10 giống C9, D10 giống D9

Mục đích của bạn chỉ là không muốn nhập lại dữ liệu giống nhau thôi phải không? Mà những dữ liệu giống nhau đó có biết trước được số lượng bao nhiêu dòng không? Bạn trả lời xong, ngày mai tôi giúp cho nhé. Giờ buồn ngủ quá rùi.
P/s: Chúc 1 đêm ngon giấc.

 

[0905744404]

Mục đích của bạn chỉ là không muốn nhập lại dữ liệu giống nhau thôi phải không? Mà những dữ liệu giống nhau đó có biết trước được số lượng bao nhiêu dòng không? Bạn trả lời xong, ngày mai tôi giúp cho nhé. Giờ buồn ngủ quá rùi.
P/s: Chúc 1 đêm ngon giấc.

Đúng là mục đích để khỏi phải nhập lại những dữ liệu giống nhau. Dữ liệu này không biết trước được bao nhiêu dòng.

tôi nghiêm túc cảnh cáo đồng chí có mấy trăm bài viết rồi mà nhờ code còn up file .xlsx

Cám ơn đồng chí đã nhắc nhở. Tôi up lại file mong được mọi người giúp đỡ

 

[giaiphap]

Giả sử em nhập ô B9 ngày 26/09/2015, ô C9 là số 3, ô D9 là Nguyễn Văn C Thì
ô B10 cũng giống ô B9, C10 giống C9, D10 giống D9

Nhưng bạn muốn nhập giá trị vào cột nào mới thay đổi, nhập cả 3 cột hay chỉ nhập vào 1 cột thôi thì nó tự động chạy theo. Theo mình nghĩ bạn nhập số vào cột E thì cột B, C, D chạy theo đúng không? Nếu đúng vậy bạn thêm sự kiện cho Sheet1 như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Range(Target.Address).Column = 5) And (Range(Target.Address).Row > 2) Then
If Range(Target.Address).Value <> "" Then
    Range("B" & Range(Target.Address).Row).Value = Range("B" & (Range(Target.Address).Row - 1)).Value
    Range("C" & Range(Target.Address).Row).Value = Range("C" & (Range(Target.Address).Row - 1)).Value
    Range("D" & Range(Target.Address).Row).Value = Range("D" & (Range(Target.Address).Row - 1)).Value
Else
    Range("B" & Range(Target.Address).Row).Value = ""
    Range("C" & Range(Target.Address).Row).Value = ""
    Range("D" & Range(Target.Address).Row).Value = ""
End If
End If
End Sub

 

[0905744404]

Nhưng bạn muốn nhập giá trị vào cột nào mới thay đổi, nhập cả 3 cột hay chỉ nhập vào 1 cột thôi thì nó tự động chạy theo. Theo mình nghĩ bạn nhập số vào cột E thì cột B, C, D chạy theo đúng không? Nếu đúng vậy bạn thêm sự kiện cho Sheet1 như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Range(Target.Address).Column = 5) And (Range(Target.Address).Row > 2) Then
If Range(Target.Address).Value <> "" Then
    Range("B" & Range(Target.Address).Row).Value = Range("B" & (Range(Target.Address).Row - 1)).Value
    Range("C" & Range(Target.Address).Row).Value = Range("C" & (Range(Target.Address).Row - 1)).Value
    Range("D" & Range(Target.Address).Row).Value = Range("D" & (Range(Target.Address).Row - 1)).Value
Else
    Range("B" & Range(Target.Address).Row).Value = ""
    Range("C" & Range(Target.Address).Row).Value = ""
    Range("D" & Range(Target.Address).Row).Value = ""
End If
End If
End Sub

Cảm ơn anh, đúng là như vậy rồi anh ạ!