Giúp Macro kết hợp dữ liệu

[sunyun]

Mình có file đính kèm như sau
Gồm cột B,C, D, E khi cột E có dữ liệu nó sẽ kết hợp các ô của cột lại thành cột E mới như file
Giúp mình viết code với, thanks mọi người

 

[viehoai]

Mình có file đính kèm như sau
Gồm cột B,C, D, E khi cột E có dữ liệu nó sẽ kết hợp các ô của cột lại thành cột E mới như file
Giúp mình viết code với, thanks mọi người

Bạn xem file được chưa nhé

 

[sunyun]

Bạn xem file được chưa nhé

Bạn hiểu sai ý mình rùi
mình nói khi cột E có dữ liệu nói mới chạy
và tạo bằng cách nhập ấy, từng tạo thành nút bấm
sử dụng bảng đấy lun chứ không có tạo ra bảng khác, minh tạo bảng kết quả ý mún là nó chạy xong sẽ ra như thế ấy

 

[viehoai]

Bạn hiểu sai ý mình rùi
mình nói khi cột E có dữ liệu nói mới chạy
và tạo bằng cách nhập ấy, từng tạo thành nút bấm
sử dụng bảng đấy lun chứ không có tạo ra bảng khác, minh tạo bảng kết quả ý mún là nó chạy xong sẽ ra như thế ấy

Thế thì cái này phải không?

 

[ndu96081631]

Mình có file đính kèm như sau
Gồm cột B,C, D, E khi cột E có dữ liệu nó sẽ kết hợp các ô của cột lại thành cột E mới như file
Giúp mình viết code với, thanks mọi người

Cái này công thức thường cũng làm được, sao bạn lại muốn code nhỉ?

 

[sunyun]

Thế thì cái này phải không?

Thanks, vậy được rùi

Cái này công thức thường cũng làm được, sao bạn lại muốn code nhỉ?

code thường làm tăng dung lượng file cao lắm
với lại mình muốn tìm hiểu cách dùng code Marco ấy mà

 

[Ba Tê]

Thanks, vậy được rùi



code thường làm tăng dung lượng file cao lắm
với lại mình muốn tìm hiểu cách dùng code Marco ấy mà

Muốn có macro thì tặng bạn cái này, chép vào cửa sổ VBE của sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim ID As String, DC As String, Ten As String
If Target.Column = 5 Then
    If Target.Rows.Count = 1 Then
        If Target <> "" Then
            ID = [B2].Value & " :" & Target.Offset(, -3) & Chr(10)
            DC = [C2].Value & " :" & Target.Offset(, -2) & Chr(10)
            Ten = [D2].Value & " :" & Target.Offset(, -1)
            Target = Target & Chr(10) & ID & DC & Ten
        End If
    End If
End If
Application.EnableEvents = True
End Sub

 

[sunyun]

Thế thì cái này phải không?

viethoai ơi, khi mình del dữ liệu trong cột B or c or d thì nó bị lỗi, khắc phục giúp mình lỗi này với

Muốn có macro thì tặng bạn cái này, chép vào cửa sổ VBE của sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim ID As String, DC As String, Ten As String
If Target.Column = 5 Then
    If Target.Rows.Count = 1 Then
        If Target <> "" Then
            ID = [B2].Value & " :" & Target.Offset(, -3) & Chr(10)
            DC = [C2].Value & " :" & Target.Offset(, -2) & Chr(10)
            Ten = [D2].Value & " :" & Target.Offset(, -1)
            Target = Target & Chr(10) & ID & DC & Ten
        End If
    End If
End If
Application.EnableEvents = True
End Sub

Uhm, thanks, code này không bị lỗi del dữ liệu, nhưng mình cũng đang cần bài trên để chỉnh sửa làm bài loại khác tương tự, thanks cả 2 bạn