Làm sao tự dộng Update dữ liệu

[mymichau]

Tôi có tạo một ứng dụng, trong đó file ứng dụng có 1 sheet là danh sách gốc
Danh sách ấy sẽ được cập nhật bằng 1 file update, có 1 sheet giống như fiel ứng dụng.
Vậy làm như thế nào để file ứng dụng tự động chép dữ liệu của sheet trong file update ( không mở, mà chỉ bằng đường dẫn ) bằng một macro.
Tôi thấy code và áp dụng theo tập tin GetValue của Anhtuan1066, nhưng không làm được cho nhiều cột. Nhờ các bạn chỉ giúp cám ơn nhiều.

 

[ndu96081631]

Bạn thử thêm 1 vòng lập nữa xem:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long, j As Long
  If Target.Address = "$D$1" Then
    [A1].CurrentRegion.Offset(1).ClearContents
    For i = 1 To 20
      For j = 1 To 3
        Cells(i + 1, j) = GetValue(Evaluate("refText"), Cells(i + 1, j).Address)
      Next j
    Next i
  End If
End Sub

i quét theo ROW
j quét theo COLUMN

 

[tigertiger]

Bạn thử thêm 1 vòng lập nữa xem:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long, j As Long
  If Target.Address = "$D$1" Then
    [A1].CurrentRegion.Offset(1).ClearContents
    For i = 1 To 20
      For j = 1 To 3
        Cells(i + 1, j) = GetValue(Evaluate("refText"), Cells(i + 1, j).Address)
      Next j
    Next i
  End If
End Sub

i quét theo ROW
j quét theo COLUMN

a có nhầm không nhỉ

cái này
Cells(i + 1, j) = GetValue(Evaluate("refText"), Cells(i + 1, j).Address)

thì i là đủ , sao lại là i+1?

 

[ndu96081631]

a có nhầm không nhỉ

cái này
Cells(i + 1, j) = GetValue(Evaluate("refText"), Cells(i + 1, j).Address)

thì i là đủ , sao lại là i+1?

Tại lấy 20 dòng, từ dòng 2 trở đi ---> Cái này là code của người ta, đâu phải tôi viết (Chỉ thêm 1 vòng lập vào code củ thôi)

 

[mymichau]

Code nầy ở trong file GetValue mà bác Anhtuan1066 cho ví dụ, tôi định áp dụng cho tự động Update dữ liệu. Tuy nhiên qua test thử với nguồn khoảng 5.000 dòng thì chạy rất chậm. Nếu làm theo thủ công Copy và paste nhanh hơn nhiều. Cảm ơn các bạn nhiều.

 

[ndu96081631]

Code nầy ở trong file GetValue mà bác Anhtuan1066 cho ví dụ, tôi định áp dụng cho tự động Update dữ liệu. Tuy nhiên qua test thử với nguồn khoảng 5.000 dòng thì chạy rất chậm. Nếu làm theo thủ công Copy và paste nhanh hơn nhiều. Cảm ơn các bạn nhiều.

Được cái này mất cái kia thôi ---> Tại các bạn cứ "cố" lấy cho bằng được dử liệu của file đang đóng ---> Thì có đây, nhưng lại phải trả giá
Vậy cuối cùng cách tốt nhất là xem lại dử liệu, nếu không cần thiết thì đừng chia ra nhiều file nếu ta chưa có kinh nghiệm

 

[mymichau]

Tôi dùng phương thức Copy và Paste thấy rất nhanh. Code trong Macro được chép ghép của các bạn trên diễn đàn. Nhờ các bạn xem bổ sung hoặc sữa lại giùm.