Link dữ liệu

  • Thread starter Thread starter nddt
  • Ngày gửi Ngày gửi
Liên hệ QC

nddt

Thành viên mới
Tham gia
11/3/09
Bài viết
2
Được thích
0
Sheet1 dùng để cập nhật dữ liệu cho tất cả 63 tỉnh. Làm sao để link dữ liệu được nhập vào từ sheet này sang các sheet khác chỉ bao gồm 1 số tỉnh được chia theo từng vùng, ví dụ sheet6.

Để link toàn bộ dữ liệu, tôi đã làm được rồi bằng đoạn code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AA7:AP69")) Is Nothing Then
Dim lRow As Long
Range("A7:B70").Copy Destination:=Sheets("sheet6").Range("A" & 7 & ":B" & 70)
Range("AA7:AP70").Copy Destination:=Sheets("sheet6").Range("C" & 7 & ":R" & 70)
End If
End Sub
 

File đính kèm

Sheet1 dùng để cập nhật dữ liệu cho tất cả 63 tỉnh. Làm sao để link dữ liệu được nhập vào từ sheet này sang các sheet khác chỉ bao gồm 1 số tỉnh được chia theo từng vùng, ví dụ sheet6.

Để link toàn bộ dữ liệu, tôi đã làm được rồi bằng đoạn code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AA7:AP69")) Is Nothing Then
Dim lRow As Long
Range("A7:B70").Copy Destination:=Sheets("sheet6").Range("A" & 7 & ":B" & 70)
Range("AA7:AP70").Copy Destination:=Sheets("sheet6").Range("C" & 7 & ":R" & 70)
End If
End Sub
Hơi buồn cười ở đoạn:
Range("A" & 7 & ":B" & 70) ---> sao không viết luôn Range("A7:B70") ???
Range("C" & 7 & ":R" & 70) ---> sao không viết luôn Range("C7:R70") ???
&... &... & chi vậy?
Và biến iRow làm giống gì trong code này?
 
Lần chỉnh sửa cuối:
tui có hỏi đoạn code đấy đâu. Sao ko trả lời vấn đề chính lại trả lời linh tinh vậy...
 
tui có hỏi đoạn code đấy đâu. Sao ko trả lời vấn đề chính lại trả lời linh tinh vậy...
Code của bạn đưa lên chưa gọn, mọi người nhìn thấy góp ý để bạn làm tốt hơn, nếu chưa đúng ý bạn thì bạn có thể hỏi tiếp.Tôi nghĩ anh ndu96081631 trả lời hoàn toàn có căn cứ chứ không trả lời linh tinh như bạn nói đâu. Thân.
 
Web KT

Bài viết mới nhất

Back
Top Bottom