Lập bảng tính tự động tập hiển thị dữ liệu càn tìm kiếm (1 người xem)

[foru1987]

em đang co vấn đề đau đầu xin mọi ngưới giúp em cách làm, em hiện đang làm quản trị rủi ro bên chứng khoán
do yêu càu công việc, hàng ngày em phải làm một bảng tính tập hợp các dữ liệu buy/ sell theo một số tài khoản yêu cầu để gửi báo cáo. (xem file đính kèm)
có ngày số lượng tài khoản lên tới vài chục tài khoản, em toàn phải làm bằng tay
em quá tải rùi, chịu không nổi
mọi người giúp em hay gợi ý em cách làm với
em có lò mò học về VBA nhưng chưa đủ trình để làm dc cái này

 

[Ba Tê]

em đang co vấn đề đau đầu xin mọi ngưới giúp em cách làm, em hiện đang làm quản trị rủi ro bên chứng khoán
do yêu càu công việc, hàng ngày em phải làm một bảng tính tập hợp các dữ liệu buy/ sell theo một số tài khoản yêu cầu để gửi báo cáo. (xem file đính kèm)
có ngày số lượng tài khoản lên tới vài chục tài khoản, em toàn phải làm bằng tay
em quá tải rùi, chịu không nổi
mọi người giúp em hay gợi ý em cách làm với
em có lò mò học về VBA nhưng chưa đủ trình để làm dc cái này

Ái da! làm việc với tiền Tỷ mà lộn cái chết liền.

 

[foru1987]

cám ơn bạn nhiều, bạn giỏi wa

 

[foru1987]

bạn giúp mình thêm 1 lần nữa he
giờ mình muốn co thêm cột Total ở dưới cùng Sum 2 cái total s và total B lại (xem minh hoạ trong file dinh kèm)
many thanks

 

[Ba Tê]

bạn giúp mình thêm 1 lần nữa he
giờ mình muốn co thêm cột Total ở dưới cùng Sum 2 cái total s và total B lại (xem minh hoạ trong file dinh kèm)
many thanks

Bạn thay Sub cũ bằng Sub này:
[GPECODE=vb]
Public Sub GPE_()Dim sArr(), dArr(), tArr(), I As Long, J As Long, K As Long, Rw As Long, N As Long, DK As String
With Sheets("DATA")
sArr = .Range(.[A2], .[A65536].End(xlUp)).Resize(, 8).Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 8)
With Sheets("GPE")
DK = .[B4].Value2
For I = 1 To UBound(sArr, 1)
If sArr(I, 2) = DK Then
K = K + 1
For J = 1 To 8
dArr(K, J) = sArr(I, J)
Next J
End If
Next I
.[A6:A1000].Resize(, 8).ClearContents
If K Then
.[A6].Resize(K, 8) = dArr
.[A6].Resize(K, 8).Sort Key1:=.[A6]
sArr = .[A6].Resize(K + 1, 8).Value2
ReDim dArr(1 To K * 2, 1 To 8)
For I = 1 To K
N = N + 1: Rw = Rw + 1
For J = 2 To 8 '<---------------------Khong lay cot A
dArr(N, J) = sArr(I, J)
Next J
If sArr(I, 1) <> sArr(I + 1, 1) Then
N = N + 1
dArr(N, 3) = "TOTAL (" & sArr(I, 1) & ")"
For J = 4 To 8
dArr(N, J) = "=SUM(R[-" & Rw & "]C:R[-1]C)"
Next J
N = N + 1
Rw = 0
End If
Next I
.[A6].Resize(N, 8) = dArr
.[C6].Offset(N) = "TOTAL (B+S)"
.[D6].Offset(N).Resize(, 5) = "=SUM(R6C:R[-2]C)/2"
End If
End With
End Sub[/GPECODE]
Câu này "many thanks" thì hổng hiểu mà cũng hổng muốn hiểu.
Hình như là không lịch sự lắm với người khác.

 

[foru1987]

hehe, mình ko biết many thanks có nghĩa gì khác mà gây ra bất lịch sự ko, mình thường hay dùng nó trong mail
noi chung là cảm ơn bạn rất nhiều vì đã giúp mình