làm sao để ghi lại sự thay đổi của 1 ô

[thanhqh2006]

mình có 1 file excel,trong đó có 1 sheet là bảng giá trực tuyến của sàn HOSE,nó sẽ tự động refresh sau 1 phút.Mình muốn là khi chọn 1 mã bất kỳ,thì toàn bộ những phát sinh giá đó sẽ được sao kê trong sheet mang tên đó.
Ví dụ: mã BBC của sàn hose,cứ 1 phút có 1 giá,sẽ được sao kê toàn bộ vào sheet bbc.
Muốn làm như thế phải làm sao các bạn?mình có gởi file kèm theo nè.

 

[kinghoang]

Mình không rảnh nên không thể trực tiếp làm cho bạn được, nhưng mình góp ý thế này.
Muốn giữ lại thông tin giá sau mỗi lần refresh thì bàn phải lưu lại được giá trị đó. Tức là bạn đặt macro khi có sự thay đổi về giá thì copy sang 1 sheet bên cạnh theo dạng Thời gian - Mã CP - Giá. Còn việc lấy dữ liệu giá của 1 mã CP từ thời gian nào đến thời gian nào thì chỉ cần sử dụng advance filter lọc ra là xong.
Chúc bạn thành công

 

[TrungChinhs]

mình có 1 file excel,trong đó có 1 sheet là bảng giá trực tuyến của sàn HOSE,nó sẽ tự động refresh sau 1 phút.Mình muốn là khi chọn 1 mã bất kỳ,thì toàn bộ những phát sinh giá đó sẽ được sao kê trong sheet mang tên đó.
Ví dụ: mã BBC của sàn hose,cứ 1 phút có 1 giá,sẽ được sao kê toàn bộ vào sheet bbc.
Muốn làm như thế phải làm sao các bạn?mình có gởi file kèm theo nè.

Mình không hiểu về lĩnh vực này lắm nên không biết có đúng ý bạn không ?

1. Bạn paste đoạn code sau vào Module của Sheet1

Private Sub Worksheet_Calculate()
If Sheets("Sheet1").[a8] = Sheets("BBC").[A65536].End(xlUp) Then Exit Sub
Sheets("Sheet1").[b8:aa8].Copy Sheets("BBC").[B65536].End(xlUp).Offset(1).Resize(, 26)
Sheets("BBC").[B65536].End(xlUp).Offset(, -1) = "=SUM(RC[2]:RC[26])"
End Sub

2. Tại A1 của Sheet1 bạn nhập công thức =SUM(C1:AB1) rồi Fill xuống hết bảng (bạn có thể ẩn giấu cột này cho dỡ rối mắt).

File này chỉ làm một mã theo ví dụ của bạn, nếu thấy được bạn tự nhân bản cho các mã còn lại nha.

Chúc vui !

 

[thanhqh2006]

cám ơn bạn "trung chinh" nha,nhưng mình không ghi rõ trong cái bài viết.
Trong ví dụ của mình: của BBC mình muốn lưu lại sự biến đổi của cột S ứng với dòng BBC là dòng 8.Nghĩa là mình muốn lưu lại toàn bộ sự biến động của BBC mà dữ liệu nằm ở ô S8.Bạn coi dùm mình với nha.

 

[thanhqh2006]

Mình không rảnh nên không thể trực tiếp làm cho bạn được, nhưng mình góp ý thế này.
Muốn giữ lại thông tin giá sau mỗi lần refresh thì bàn phải lưu lại được giá trị đó. Tức là bạn đặt macro khi có sự thay đổi về giá thì copy sang 1 sheet bên cạnh theo dạng Thời gian - Mã CP - Giá. Còn việc lấy dữ liệu giá của 1 mã CP từ thời gian nào đến thời gian nào thì chỉ cần sử dụng advance filter lọc ra là xong.
Chúc bạn thành công

hic hic,khó hiểu quá ah.Bạn có thể chỉ dẫn rõ hơn được hok thế?

 

[TrungChinhs]

Thế thì càng dễ bạn khỏi cần lập công thức bên sheet gốc. Tôi đã sửa lại code Bạn xem lại đã đúng ý chưa ? nếu đúng thì nhấn nút cảm ơn để thông báo cho tôi biết nha.

 

[thanhqh2006]

Thế thì càng dễ bạn khỏi cần lập công thức bên sheet gốc. Tôi đã sửa lại code Bạn xem lại đã đúng ý chưa ? nếu đúng thì nhấn nút cảm ơn để thông báo cho tôi biết nha.

hihi,tạm thời là "chuẩn không cần chỉnh".cám ơn "trung chinh" nhiều nha,có gì sau này có phát sinh,mong giúp đỡ nha.Tại đang làm cái file excel trực tuyến í.hi`hi`