Xin chỉ dẫn cách thêm dữ liệu tự động từ sheet khác hoặc file khác? (1 người xem)

[sweetynguyen]

Bác nào pro về excel xin chỉ mình cách giải quyết vấn đề này nhé (File kèm theo). Hi vọng sẽ có đáp án, cám ơn các bác đã quan tâm

 

[sweetynguyen]

Không bác giải giúp em ah (

 

[Quang_Hải]

Bác nào pro về excel xin chỉ mình cách giải quyết vấn đề này nhé (File kèm theo). Hi vọng sẽ có đáp án, cám ơn các bác đã quan tâm

Đã nói tới tự động thì chắc phải dùng VBA, bạn có biết sử dụng VBA hay không?

 

[sweetynguyen]

Mình không rành về VBA lắm có dọc sơ sơ . Bác có thể chỉ dẫn cụ thể đc ko? Và còn câu tự lấy số phiếu lớn nhất (File đính kèm) có cần VBA ko bác quanghai969

 

[Quang_Hải]

Mình không rành về VBA lắm có dọc sơ sơ . Bác có thể chỉ dẫn cụ thể đc ko? Và còn câu tự lấy số phiếu lớn nhất (File đính kèm) có cần VBA ko bác quanghai969

Copy cái đống này cho vào sheet1. Định dạng Text cho dòng 1
Mỗi lần thêm dữ liệu tại cột B thì có thay đổi

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B3:B10000]) Is Nothing Then
   If Target.Count = 1 Then
      If Target <> "" Then
         Dim data(), i&, j&, Sarr(), Str$, temp()
         Sarr = [A1:H1].Value
         data = Range([A3], [A65536].End(3)).Value
         For j = 1 To 8 Step 2
            Str = Replace(Sarr(1, j), ":", "")
            For i = UBound(data) To 1 Step -1
               If data(i, 1) Like Str & "*" Then
                  Sarr(1, j + 1) = Replace(data(i, 1), Str, "")
                  Exit For
               End If
            Next
         Next
         temp = Target.Offset(, -1).Resize(, 2).Value
         Sheets(temp(1, 2)).[A65536].End(3)(2).Resize(, 2) = temp
         [A1:H1] = Sarr
      End If
   End If
End If
End Sub

 

[Ba Tê]

Bác Hải đúng là Pro về Excel.

Bác nào pro về excel .....................

Ai hổng phải pro thì... "Chạy tét"!
Híc, Ẹc...

 

[sweetynguyen]

Copy cái đống này cho vào sheet1. Định dạng Text cho dòng 1
Mỗi lần thêm dữ liệu tại cột B thì có thay đổi

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B3:B10000]) Is Nothing Then
   If Target.Count = 1 Then
      If Target <> "" Then
         Dim data(), i&, j&, Sarr(), Str$, temp()
         Sarr = [A1:H1].Value
         data = Range([A3], [A65536].End(3)).Value
         For j = 1 To 8 Step 2
            Str = Replace(Sarr(1, j), ":", "")
            For i = UBound(data) To 1 Step -1
               If data(i, 1) Like Str & "*" Then
                  Sarr(1, j + 1) = Replace(data(i, 1), Str, "")
                  Exit For
               End If
            Next
         Next
         temp = Target.Offset(, -1).Resize(, 2).Value
         Sheets(temp(1, 2)).[A65536].End(3)(2).Resize(, 2) = temp
         [A1:H1] = Sarr
      End If
   End If
End If
End Sub

Trước tiên cám ơn bác quanghai1969 trước, để làm thử xem vậy còn câu 1 (file đính kèm) làm bằng cách nào hả bác quanghai1969