[Giúp đỡ] - Xuất dữ liệu từ data theo ngày tháng ! (1 người xem)

[NH0XIDOL]

CHÀO CÁC BÁC !
TÌNH HÌNH LÀ HÔM QUA MÌNH CÓ NHỜ ACE GIÚP ĐỠ VỀ ĐỊNH DẠNG NHIỀU ĐIỀU KIỆN.
ĐỂ LÀM BẢNG THỐNG KÊ LOTO RƠI THEO GIẢI.
NAY DỮ LIỆU ĐÃ ĐƯỢC HOÀN CHỈNH.
NAY LẬP THÊM TOPIC NÀY NHỜ CÁC BÁC GIÚP 1 SỐ VẤN ĐỀ.
MÌNH CÓ BẢNG TÍNH THẾ NÀY:

BÂY GIỜ MÌNH MUỐN 1 SỐ LỆNH CÓ THỂ LÀM ĐƯỢC VIỆC SAU:



1, DỮ LIỆU - TỪ NGÀY: ??? ĐẾN NGÀY: ???

KHI MÌNH THAY ĐỔI NGÀY TRONG 2 Ô ĐÓ , THÌ NÓ HIỂN THỊ NHỮNG HÀNG CÓ SỐ NGÀY MÀ MÌNH ĐÃ CHỌN.

VỚI CÁC HÀM THỐNG KÊ CHỈ LẤY DỮ LIỆU TRONG TIME MÌNH ẤN ĐỊNH.

2, NHỜ CÁC BẠN GIÚP THÊM 1 SỐ LỆNH.

CHƯA VỀ: NÓ SẼ KIỂM TRA THEO CỘT G0, BẮT ĐẦU ĐẾM TỪ NGÀY TRONG Ô ĐẾN NGÀY: ???(THỜI ĐIỂM HIỆN TẠI TỰ MÌNH CHỌN) ĐẾN CÁC NGÀY TRƯỚC CHO ĐẾN KHI GẶP Ô CÓ ĐỊNH DẠNG "*(1)".

MAX: NÓ SẼ ĐẾM THEO CỘT TRONG VÙNG DỮ LIỆU MÌNH CHỌN CHUNG BAN ĐẦU. SỐ NGÀY TỪ Ô CÓ ĐỊNH DẠNG "*(1)"-->"*(1)" LÂU NHẤT LÀ BAO NHIÊU NGÀY ?

THÔNG: NÓ SẼ ĐẾM CÁC Ô CÓ CÙNG ĐỊNH DẠNG "*(1)" VỀ CÁC NGÀY LIÊN TIẾP NHIỀU NHẤT BAO NHIÊU NGÀY ?


QUA ĐÂY EM CŨNG XIN CẢM ƠN ACE GPE VÌ KHI THAM GIA 4RUM EM MỚI BIẾT EXCEL NÓ LẠI THÚ VỊ VÀ ĐA CHỨC NĂNG NHƯ THẾ ! QUA CÁC BÀI VIẾT EM CŨNG HỌC THÊM ĐƯỢC NHIỀU ĐIỀU !.
AI CÓ GIẢI PHÁP GÌ GIÚP ĐỠ EM NHÉ ! EM TỰ MÀY MÒ MÃI MÀ CHƯA ĐƯỢC



FILE: http://data.sinhvienonline.net/files/SinhVienOnline.Net---LOROI.xls

CÓ GÌ MỌI NGƯỜI GIÚP ĐỠ NHÉ !

 

[NH0XIDOL]

[/B][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
[B]     If Target.Count > 1 Or Target.Address <> "$CA$2" Then Exit Sub[/B]
[B][CG14:CH3000].Clear[/B]
[B]     Sheet1.Range("AD1:BE20000").AdvancedFilter xlFilterCopy, _[/B]
[B]    CriteriaRange:=Sheet1.Range("CK1:CL2"), CopyToRange:=Sheet1.Range("BG13:CH13")[/B]
[B] End Sub[/B]
[B]

AI SỮA GIÚP MÌNH CODE NÀY VỚI.
CO DE NÀY NÓ TỰ CẬP NHẬT TRÍCH DỮ LIỆU NẾU THAY ĐỔI NGÀY THÁNG Ô "$CA$2"
BÂY GIỜ SỮA LẠI NẾU MÌNH THAY ĐỔI NGÀY THÁNG Ô "$BV$2" THÌ NÓ CŨNG TỰ CẬP NHẬT.
MÀ KHÔNG BIẾT THÊM THẾ NÀO ?

[/B][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
[B]     If Target.Count > 1 Or Target.Address <> "$CA$2" Or Target.Address <> "$CA$2" Then Exit Sub[/B]
[B][CG14:CH3000].Clear[/B]
[B]     Sheet1.Range("AD1:BE20000").AdvancedFilter xlFilterCopy, _[/B]
[B]    CriteriaRange:=Sheet1.Range("CK1:CL2"), CopyToRange:=Sheet1.Range("BG13:CH13")[/B]
[B] End Sub[/B]
[B]

ĐỔI THÀNH NHƯ THẾ MÀ KHÔNG ĐƯỢC

 

[Quang_Hải]

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
[B]    If Target.Count > 1 Or Target.Address <> "$CA$2" Then Exit Sub[/B]
[B][CG14:CH3000].Clear[/B]
[B]    Sheet1.Range("AD1:BE20000").AdvancedFilter xlFilterCopy, _[/B]
[B]   CriteriaRange:=Sheet1.Range("CK1:CL2"), CopyToRange:=Sheet1.Range("BG13:CH13")[/B]
[B]End Sub[/B]

AI SỮA GIÚP MÌNH CODE NÀY VỚI.
CO DE NÀY NÓ TỰ CẬP NHẬT TRÍCH DỮ LIỆU NẾU THAY ĐỔI NGÀY THÁNG Ô "$CA$2"
BÂY GIỜ SỮA LẠI NẾU MÌNH THAY ĐỔI NGÀY THÁNG Ô "$BV$2" THÌ NÓ CŨNG TỰ CẬP NHẬT.
MÀ KHÔNG BIẾT THÊM THẾ NÀO ?

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
[B]    If Target.Count > 1 Or Target.Address <> "$CA$2" [COLOR=#ff0000]And [/COLOR]Target.Address <> "[COLOR=#ff0000]$BV$2[/COLOR]" Then Exit Sub[/B]
[B][CG14:CH3000].Clear[/B]
[B]    Sheet1.Range("AD1:BE20000").AdvancedFilter xlFilterCopy, _[/B]
[B]   CriteriaRange:=Sheet1.Range("CK1:CL2"), CopyToRange:=Sheet1.Range("BG13:CH13")[/B]
[B]End Sub[/B]

ĐỔI THÀNH NHƯ THẾ MÀ KHÔNG ĐƯỢC

Hình như là tại cái chỗ màu đỏ ấy mà

 

[NH0XIDOL]

[Giúp đỡ] - VBA MỞ RỘNG LỆNH ĐẾM NHIỀU ĐIỀU KIỆN !

hình như là tại cái chỗ màu đỏ ấy mà

Bạn có thể giúp lệnh đếm theo điều kiện trên được không ?
LỆNH ĐẾM SỐ Ô. THEO DỮ LIỆU CỘT !

Chưa về: ĐẾM TRONG CỘT A. Ô CÓ DỮ LIỆU "*(1)" ĐẾN Ô CỦA NGÀY HIỆN TẠI. LÀ CÁCH NHAU MẤY Ô.

Max: ĐẾM TRONG CỘT A. Ô CÓ CÙNG DỮ LIỆU "*(1)", GẦN NHAU THÌ CÁCH NHAU BAO NHIÊU Ô, TÍNH MAX ?

Thông: ĐẾM TRONG CỘT A, các ô có cùng định dạng "*(1)" về các ngày liên tiếp nhiều nhất bao nhiêu ngày ?