Tìm kiếm số liệu theo tháng trong bảng tính (1 người xem)
- Thread starter vietnd
- Ngày gửi
Người dùng đang xem chủ đề này
Let'GâuGâu
Thành viên mới
- Tham gia
- 12/9/13
- Bài viết
- 3,131
- Được thích
- 2,732
yêu cầu của bạn làm cũng khá là tốn công
mà tiêu đề của bạn ko biết có bị coi la chung chung ko nữa
làm xong bị khoá, bạn xem ko được cũng uổnng
thôi để vài ngày xem có bị khoá ko, nếu ko thì làm hén
Cái bạn làm là lọc theo số TK, nếu lọc theo tháng thì phải vô hiệu hóa lọc theo số TK đúng k? Có nghĩa là khi đánh vào tháng thì tất cả số TK nào đáo hạn trong tháng đó phải hiện ra phải k? Nên nói rõ để mọi người khỏi đoán mò, mất công.
anh ơi giúp em thêm yêu cầu nữa là chọn năm đáo hạn để phân biệt năm nay hay năm ngoái. cảm ơn anh!
Cảm ơn bác ChanhTQ@, tôi đang tự đọc VBA, muốn nhờ mọi người "diễn nôm" mấy câu lệnh trong macro viết. (tôi đã diễn giải vài đoạn, sau đó thì bế tắc. Ths mọi người nhiều.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) ' ?? Giai thich y nghia dong lenh nay? cai sub nay tu dong khi 2xclick vao sheet2(bangke)?
Dim Sh As Worksheet, Rws As Long, Rng As Range ' Dat ten cho bien Sh,Rws,Rng
If Not Intersect(Target, [E5]) Is Nothing Then 'Neu Target va [E5] co cai gi giong nhau thi lam tiep, con khong thi endif
'??? > Target o day la gi? lien he gi voi Target trong dong dau tien?
Set Sh = ThisWorkbook.Worksheets("Data") ' Goi Sh la chinh sheet ten la "Data"
Rws = Sh.[b6].CurrentRegion.Rows.Count ' Gan gia tri cho Rws = dem tong so hang co gia tri lien tiep, ke tu o B6
Set Rng = Sh.[b6].Resize(Rws, 6) ' Gan cho Rng la vung co Rws hang va 6 cot, tinh tu o B6
Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range("AA1:AA2"), _
CopyToRange:=Range("B8:F8"), Unique:=False ' ??? Giai thich gium cau lenh nay.
End If
End Sub
Let'GâuGâu
Thành viên mới
- Tham gia
- 12/9/13
- Bài viết
- 3,131
- Được thích
- 2,732
đây là lần thứ 2 tôi bị liệt vị
ko biết là tiêu đề của bạn đã được sửa chưa
nếu chưa sửa, mà do tôi "trông gà hóa cuốc", thì cho xin lổi bạn nhé
tự nhiên góp ý vô duyên quá
terrible sorry
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
Trong bóng đá có lỗi "Việt vị", bạn bị "Liệt vị" không biết lỗi có nặng hơn không.
Với yêu cầu của tác giả như bài #8, trong Topic Hàm và công thức Excel thì có thể dùng Name và công thức được mà.
Chưa ngủ được làm thí thí coi có buồn ngủ không.
Lần chỉnh sửa cuối:
- Tham gia
- 8/6/06
- Bài viết
- 14,817
- Được thích
- 23,302
- Nghề nghiệp
- U80
[Thongbao]
Option Explicit ': Yêu cầu các biến cần được khai báo'
Private Sub Worksheet_Change(ByVal Target As Range) ' ?? Giai thich y nghia dong lenh nay? cai sub nay tu dong khi 2xclick vao sheet2(bangke)?
Tạm thời bạn nên hiểu đây là macro sự kiện, mà cụ thể là ta tác động lên 1 vùng ô nào đó theo qui định thì macro sẽ chạy
Dim Sh As Worksheet, Rws As Long, Rng As Range ' Khai báo các tham biến để dùng trong chương trình: Sh, Rng, Rws
(Trong đó 2 biến đầu là biến đội tượng, còn Rws có kiểu dạng số )
If Not Intersect(Target, [E5]) Is Nothing Then
'Nếu ô được tác động là [E5] thì thực thi các câu lệnh đến trước Else hay trước End If
'Nhiều người nói rằng đây là fương thức giao (nhau)'
Set Sh = ThisWorkbook.Worksheets("Data") ' Gán đối tượng là trang tính 'Data' vô biến đã khai báo
Rws = Sh.[b6].CurrentRegion.Rows.Count ' Gan gia tri cho Rws = dem tong so hang của vùng các ô chứa giá tri lien tiep, xung quanh ô B6
Set Rng = Sh.[b6].Resize(Rws, 6) ' Gan cho Rng la vung co Rws hang va 6 cot, tinh tu o B6
Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range("AA1:AA2"), _
CopyToRange:=Range("B8:F8"), Unique:=False ' Áp dụng fương thức lọc mở rọng cho vùng Rng với vùng chuẩn . . . & vùng đích là . . . '
End If
End Sub[/thongbao]
Option Explicit ': Yêu cầu các biến cần được khai báo'
Private Sub Worksheet_Change(ByVal Target As Range) ' ?? Giai thich y nghia dong lenh nay? cai sub nay tu dong khi 2xclick vao sheet2(bangke)?
Tạm thời bạn nên hiểu đây là macro sự kiện, mà cụ thể là ta tác động lên 1 vùng ô nào đó theo qui định thì macro sẽ chạy
Dim Sh As Worksheet, Rws As Long, Rng As Range ' Khai báo các tham biến để dùng trong chương trình: Sh, Rng, Rws
(Trong đó 2 biến đầu là biến đội tượng, còn Rws có kiểu dạng số )
If Not Intersect(Target, [E5]) Is Nothing Then
'Nếu ô được tác động là [E5] thì thực thi các câu lệnh đến trước Else hay trước End If
'Nhiều người nói rằng đây là fương thức giao (nhau)'
Set Sh = ThisWorkbook.Worksheets("Data") ' Gán đối tượng là trang tính 'Data' vô biến đã khai báo
Rws = Sh.[b6].CurrentRegion.Rows.Count ' Gan gia tri cho Rws = dem tong so hang của vùng các ô chứa giá tri lien tiep, xung quanh ô B6
Set Rng = Sh.[b6].Resize(Rws, 6) ' Gan cho Rng la vung co Rws hang va 6 cot, tinh tu o B6
Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range("AA1:AA2"), _
CopyToRange:=Range("B8:F8"), Unique:=False ' Áp dụng fương thức lọc mở rọng cho vùng Rng với vùng chuẩn . . . & vùng đích là . . . '
End If
End Sub[/thongbao]
VetMini
Đang đi tìm hòn đá
- Tham gia
- 21/12/12
- Bài viết
- 17,867
- Được thích
- 24,792
- Nghề nghiệp
- Thầy bói bài ta
Trong tiếng Anh thì cụm từ đó là terribly sorry! (nếu là tiếng khác thì tôi không biết)
Let'GâuGâu
Thành viên mới
- Tham gia
- 12/9/13
- Bài viết
- 3,131
- Được thích
- 2,732
@ hai vị Bate và Viẻtmini
càng viết thì càng thấy dốt........
nói chung thì chỉ muốn nói một lời xin lổi bạn ấy thôi.
cám ơn 2 bác góp ý
viết gì sai nữa thì thông cảm bỏ qua hén
càng viết thì càng thấy dốt........
nói chung thì chỉ muốn nói một lời xin lổi bạn ấy thôi.
cám ơn 2 bác góp ý
viết gì sai nữa thì thông cảm bỏ qua hén
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
Có sao đâu, viết sai chính tả thành sai nghĩa trên này thiếu gì.
Ví dụ "Sữa dùm em"....
Rất nhiều người xem bóng đá cũng la "liệt vị rồi" vô tư luôn.
Chiều nay U19 HAGL đá ...........Hy vọng......
Tuy bạn chưa hiẻu câu hỏi của minh, nhưng thành thật cảm ơn bạn đã trả lời và góp ý cho câu hỏi của mình!
Lần chỉnh sửa cuối:
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
"Nhờ anh" là nhờ ai vậy "Chời"?
Thử với VBA xem sao, 10.000 dòng kết quả đủ không?
Enable Macros khi mở file nhé.
Bài viết mới nhất
- Đã giải quyết
- Question
- Question
Một lỗi rất khó chịu của VBA khi đọc chuỗi Unicode
(1 người xem)
- Question
