Cách dừng bảng tính tại thời điểm khi có sự liên kết giữa 2 file excel. (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Hananiki

Thành viên hoạt động
Tham gia
19/8/09
Bài viết
104
Được thích
11
Nghề nghiệp
Nay nghề nay mai nghề khác, chẳng biết đến khi nào
Em có 2 file excel. File 1 là file nhập liệu và báo cáo. File 2 là file liên kết để lấy dữ liệu báo cáo file 1. Tuy nhiên do lấy báo cáo tại thời điểm nên file 1 thay đổi thì file 2 cũng thay đổi. Em muốn làm thế nào để file 1 không thay đổi khi file 2 thay đổi hoặc là chỉ khi nào cần cập nhật thì mới thay đổi theo. Em biết là có cách dùng Manual và F9 nhưng cái đấy dùng cho toàn bộ excel mà em chỉ cần file 2 đấy tự tính khi cần thiết còn đâu sẽ dừng tại thời điểm lưu cuối cùng. Mọi người chỉ giúp em.
 
như vây file 1 là nguồn của file 2 phải ko bạn?
-cách đơn giãn nhất là bạn cho cell file 2= cell file 1. khi bạn mở file 2 ra, nó hỏi bạn có muốn update ko thì bạn chọn yes
- cách 2 bạn sử dụng hyperlink
-cách 3, sử dụng code thì sử dụng các sự kiện (event) như selectionchange hay WorkSheet_change..v.v.. nếu bạn muốn hỏi chi tiết code thì phải có file đưa lên mới làm được.
 
Upvote 0
Mình gửi 2 file lên đây bạn xem giúp mình nhé file thông báo là file lấy dữ liệu báo cáo từ file thiếu chứng từ. Mình muốn làm theo code vì 2 cách trên mình dùng rồi không được như ý.
 

File đính kèm

Upvote 0
bạn chép đoạn code này vào file "Thong báo" chạy thử xem có đúng ko?
có 2 vấn đề:
1- bạn phải khai báo lại đường dẫn cho file "thieu chung tu"
2- mình vẫn chưa làm được vùng tìm kiếm cho hàm vlookup bên file " thieu chung tu" cho nó động. bạn tự phát triển thêm nha.

Private Sub Workbook_Open()

Application.ScreenUpdating = False
On Error Resume Next
Windows("TB Thieu CT.xls").Activate
If Err = 0 Then
ChDir "D:\NAM" ' khai bao lai duong dân
Workbooks.Open Filename:="D:\NAM\TB Thieu CT.xls" ' khai bao lai duong dân
End If

ThisWorkbook.Activate
Sheets(1).Select
lrC = Cells(Rows.Count, "C").End(xlUp).Row - 1
For i = 7 To lrC
If Range("C" & i) = "" And Range("B" & i) <> "" Then
Range("C" & i).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'[TB Thieu CT.xls]Sheet1'!R3C3:R7C4,2,1)"
End If
Next
On Error GoTo 0
Application.ScreenUpdating = True

End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Mình đã copy code của bạn vào file thông báo rồi nhưng khi dữ liệu file TB thieu CT thay đổi thì file Thong bao vẫn thay đổi. Mình muốn nó dừng cập nhật tại thời điểm cuối cùng thôi trước khi có sự thay đổi,.
 
Upvote 0
hihi......, thiệt tình là mình không hiểu ý bạn rồi, thôi đành chờ các cao thủ giúp đỡ vậy
 
Upvote 0
Chắc là tại mình giải thích chưa rõ. Các bác ơi giúp em làm phần này với.
 
Upvote 0
Mọi người có cách nào giúp em về cách dừng lấy dữ liệu tại 1 thời điểm.
 
Upvote 0
Web KT

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

Back
Top Bottom