Tự động cập nhật dữ liệu trong EXCEL
Trong Excel có một hàm mà chúng ta có thể dùng nó để tự động hóa quá trình
cập nhật dữ liệu! đó là hàm OFFSET
Hàm Offset cho kết quả là nội dung của một ô.
cú pháp của hàm này như sau: OFFSET(tọa độ một ô bất kỳ, số dòng, số cột)
Lưu ý: Số dòng và số cột chứ không phải tọa độ dòng hay tọa độ cột, hay đó là
khoảng cách từ ô A1 đến ô cần lấy dữ liệu. (Ta nên chọn ô bất kỳ đó là ô A1)
Ví dụ ở ô C5 có nội dung là 1/1/2004, và ta cần lấy nội dung 1/1/2004 đó.
công thức là offset($A$1,4,2)
sẽ cho kết quả là 1/1/2004
Do đó dùng hàm này để tự động cập nhật dữ liệu của các chứng từ khi lập các sổ
Nhật ký chung, nhật ký đặc biệt, sổ cái... từ sheet chứng từ. :f_o :bia
View Full Version : Tự động cập nhật dữ liệu giữa các sheet
Lenbao
21-03-09, 05:28 PM
Các bán giúp mình bài này nhé. Mình có danh sách lớp A, danh sách lớp B và danh sách học sinh
trong trường. Mình sẽ phải sử dụng công thức nào để khi cập nhật học sinh vào danh sách các lớp
thì tự động danh sách học sinh trong trường sẽ được cập nhật.
Cám ơn các bạn
ChanhTQ@
21-03-09, 05:52 PM
Các dùng: Phải chuột vô lần lượt các sheets 'lop A' & 'lop B' chọn dòng cuối cửa sổ vừa hiện ra &
chép mảco dưới vô chúng
Sau đó hễ bạn nhập vô 'Lop A' hay 'Lop B' sẽ có những từ đó bên sheet thứ ba;
Mà bạn cần sửa lại tên các trang tính:
(+) Không có khoảng trắng
(+) Tên gì mà dài lê thê, đến nổi mình phải thay bằng tên cúng cơm của nó luôn làm vậy?!
Thay vì dài ngoãng như vậy, ta chỉ nên là 'DSHS' )(&&@@ !$@!!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:B")) Is Nothing Then _

Thay vì dài ngoãng như vậy, ta chỉ nên là 'DSHS' )(&&@@ !$@!!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:B")) Is Nothing Then _
Sheet3.[b65500].End(xlUp).Offset(1) = Target.Value
End Sub
Bạn cho tôi hỏi nếu khi vào danh sách mà bị sai, sau đó sửa lại thì bên Shee3 vẫn còn tên gõ sai,
Vậy phải làm thế nào để tự động cập nhật khi sửa tên gõ sai
ChanhTQ@
24-03-09, 07:16 AM
Cho hỏi, nếu khi vào danh sách mà bị sai, sau đó sửa lại thì bên Shee3 vẫn còn tên gõ sai, Vậy phải
làm thế nào để tự động cập nhật khi sửa tên gõ saiĐể tìm tên sai bên CSDL tổng hợp, theo mình, có
lẻ nên có mã HS riêng biệt cho từng em.
& kiểm mỗi lần khi chép; nếu trùng thì báo cho ta biết để sửa; Nhưng cũng còn lắm công phu lắm
để sửa cái sai này. . . .
Đến đây, vấn đề sẽ liên quan đến việc NDU đã đề cập; Vì chúng ta làm ngược quy trình ngay từ đầu
nên sẽ phức tạp chuyện sửa đổi tên sai . . . .
Thật ra, Macro mình đưa ra chỉ để thỏa mãn iêu cầu của chủ topic mà thôi, . . . )(&&@@ @!##
agiap
25-03-09, 05:51 PM
Tôi không hiểu về maco lắm nhưng tôi nghĩ dùng hàm Vlookup cũng được mà.
View Full Version : Tự động cập nhật dữ liệu khi thêm worksheet mới
quandrc
04-06-09, 02:25 PM
Bác Chuyên gia nào cho em hỏi một vấn đề ......
em đang có một flie nhập dữ liệu các mặt hàng ở các kho A B C. Hằng ngày em phải nhập vào các
sheet ứng với một sheet là một kho là một ngày vd: a.1 là kho a ngày 1, b.1 là kho b ngay 1 tương
tự. Bây giờ em muốn khi dữ liệu nhập vào sheet a.1 là nó sẻ tự động cập nhật cộng vào sheet tổng
hợp và các sheet kho ngày này không định sẳn, có nghĩa là làm đến ngày nào thì chèn thêm sheet
ngày đó...Bác chuyên gia nào giúp em với em cám ơn. và giúp em băng công thức nhé. chức maro

06-06-09, 07:21 AM
Nội dung đặt ra là như vậy. với lại file đòi hỏi là như vậy như trình bày ở trên, làm sao các bác biểu
em phải thay đổi được. Chắc là bó tay thôi... sâu xa của vấn đền ở đây em nghỉ không ra là dữ liệu
nguồn không cố định có nghĩa là các sheet không định dạng trước được.
HYen17
06-06-09, 08:30 AM
(2) Với lại file đòi hỏi là như vậy như trình bày ở trên, làm sao các bác biểu em phải thay đổi được.
Chắc là bó tay thôi... sâu xa của vấn đền ở đây em nghỉ không ra là dữ liệu nguồn không cố định có
nghĩa là các sheet không định dạng trước được.
(1) & giúp em băng công thức nhé. chứ maro thì em bó tay, không hiểu
(1): Bạn có hiểu hết excel không (í tôi muốn nói, cái cách mà người ta xây dựng lên cái excel cho
bạn xài đó? Nhưng bạn vẫn xài được nó đó thôi!)
Macro người khác viết cho bạn mà bạn từ chối thì đành chờ vậy bạn nha; Tuy nhiên mình cũng báo
cho bạn biết rằng, với VBA cái này giải quyết rất ư là đơn giản so với công thức nhiều.
Bạn phải hiểu rằng, bạn yêu cầu di chuyển/Copy dữ liệu đó nha!
Nếu bạn suy nghĩ lại mình sẽ đưa file đính kèm & cụ thể với bạn sau
Chúc vui!
HYen17
06-06-09, 03:24 PM
em có một flie nhập dữ liệu các mặt hàng ở các kho A B C.
Hằng ngày em phải nhập vào các sheet
Ứng với một sheet là một kho là một ngày vd: a.1 là kho a ngày 1, b.1 là kho b ngay 1 tương tự.
Bây giờ em muốn khi dữ liệu nhập vào sheet a.1 là nó sẻ tự động cập nhật cộng vào sheet tổng
hợp.
& các sheet kho ngày này không định sẳn, có nghĩa là làm đến ngày nào thì chèn thêm sheet ngày
đó...
(file đính kèm )Bạn hãy tải file đính kèm & trình tự trãi qua các bước mình hướng dẫn. (Chỗ nào
chưa thông thì ta thảo luận tiếp)
Trong file của mình, giờ chỉ có hai trang tính Trong đó có trang tính 'TongHop' & trang tính thứ 2 có
chứa macro sự kiện, như sau:

vừa xuất hiện xem sao.
Option Explicit
Sub CopyToGeneral(SoLg As Double, TenHg As String, Kho As String)
Dim Sh As Worksheet, Rng As Range, sRng As Range, RngK As Range
Dim Col As Byte
Set Sh = Sheets("TongHop")
Set Rng = Sh.Range(Sh.[A1], Sh.[A65500].End(xlUp))
Set RngK = Sh.Range(Sh.[A1], Sh.[iV1].End(xlToLeft))
Set sRng = RngK.Find(Kho, , xlFormulas, xlWhole)
If sRng Is Nothing Then
MsgBox "Chua Co Kho Nay", , "Welcome to GPE.COM": Exit Sub
Else
Col = sRng.Column - 1
End If
Set sRng = Rng.Find(TenHg)
If sRng Is Nothing Then
MsgBox "Chua Co Mat Hang Nay", , "Bye!": Exit Sub
Else
sRng.Offset(, Col).Value = SoLg
End If
End Sub
Chờ tin bạn!
quandrc
08-06-09, 09:04 AM
Bạn hãy tải file đính kèm & trình tự trãi qua các bước mình hướng dẫn. (Chỗ nào chưa thông thì ta
thảo luận tiếp)
Trong file của mình, giờ chỉ có hai trang tính Trong đó có trang tính 'TongHop' & trang tính thứ 2 có
chứa macro sự kiện...
không được rồi bạn ơi....! mình chẳng hiểu gì về những câu lệnh trong vba của bạn. nhưng mình đã
thử rồi copy một sheet mới và đổi tên nhưng nó không cập nhật dữ liệu. còn dữ liệu của các ngày