Hỏi về cách trích lọc dữ liệu phức tạp (1 người xem)

cup5000 · 20/10/13

- Trước hết xin chào quí cô chú bà con trăm họ gần xa.
Nay mạo muội lên diễn đàn nhờ mọi người giúp em phần lọc dữ liệu với
Tình hình là hiện nay do nhu cầu công việc em phải làm báo cáo tuầncần trích lọc dữ liệu lượng lớn. Nhu cầu như trong hình, mong dc giúp đỡ.
Mình có sữa lại dữ liệu lọc ra chút. nếu lọc đúng dk thì sẽ như hình. thanks
File:https://www.dropbox.com/s/iwn59nwhsapzdwm/Data - Copy.rar

cup5000 · 20/10/13

mong dc anh em giúp đỡ.
PS: ai hoc VBA ở sg cho minh xin liên lạc với. hi

be_09 · 20/10/13

Nếu sử dụng PivotTable được kết quả rồi mà bạn còn chê thì chẳng ai viết code khác đi mà có thể được kết quả như PivotTable (ngoại trừ viết code để chạy ra PivotTable).

cup5000 · 20/10/13

HIx, do minh` lọc rất nhiều dạng dữ liệu như vậy. trường dữ liệu thực của mình tới 30000 dòng text. Loc dữ theo dạng trên với rất nhiều dạng. Thực tế mình dang dùng Pivot roi` getpivotdata. Nhưng vẫn mog VBA giúp dc minh`

be_09 · 20/10/13

cup5000 đã viết:
HIx, do minh` lọc rất nhiều dạng dữ liệu như vậy. trường dữ liệu thực của mình tới 30000 dòng text. Loc dữ theo dạng trên với rất nhiều dạng. Thực tế mình dang dùng Pivot roi` getpivotdata. Nhưng vẫn mog VBA giúp dc minh`

Không có cách nào tổng hợp và trích lọc dữ liệu nhanh chóng và hiệu quả như PivotTable dù viết Code thì cũng chạy ra PivotTable để đỡ điều khiển bằng tay.

cup5000 · 20/10/13

be09 đã viết:
Không có cách nào tổng hợp và trích lọc dữ liệu nhanh chóng và hiệu quả như PivotTable dù viết Code thì cũng chạy ra PivotTable để đỡ điều khiển bằng tay.

Mình đang cố gắng làm như sau nhưng chưa thành công:
B1: từ bảng raw dat ==> viết 1 pivot
B2: Trích lọc dữ liệu theo diều kiện cần đối với PIVOT đóa.
B3: Copy dữ liệu từ Pivot ra format mẫu
B4: ...lọc tiếp..copy tiếp.....
B5: delete fivot.

phucbugis · 20/10/13

cup5000 đã viết:
Mình đang cố gắng làm như sau nhưng chưa thành công:
B1: từ bảng raw dat ==> viết 1 pivot
B2: Trích lọc dữ liệu theo diều kiện cần đối với PIVOT đóa.
B3: Copy dữ liệu từ Pivot ra format mẫu
B4: ...lọc tiếp..copy tiếp.....
B5: delete fivot.

Mình có 1 cách lọc số liệu, chắc đáp ứng được yêu cầu của bạn :-=

Xem sheet4 nhé (them bao nhieu dk vao cung dc) !

Thân !
Link
http://www.mediafire.com/?db484ajer961dpz

cup5000 · 20/10/13

phucbugis đã viết:
Mình có 1 cách lọc số liệu, chắc đáp ứng được yêu cầu của bạn
Xem sheet4 nhé (them bao nhieu dk vao cung dc) !

Thân !
Link
http://www.mediafire.com/?db484ajer961dpz

PHP:

Sub abc_loc() 'OK
    Application.ScreenUpdating = True
        ActiveWindow.ScrollRow = 1
        MsgBox ("Loc Planned week = ") & Range("A6")
        
        Dim Answer
        mSg = mSg & "So lieu vung A8:AJ65536 trong sheet nay se duoc xoa?"

            If Answer = vbYes Then
                Range("A8:AJ65536").ClearContents
                Dim shttest As Worksheet
                
                Set shttest = Sheets("Raw data")
                     
                With shttest.Range("A6:AJ65536")
                    .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Dieukien"), _
                        CopyToRange:=Range("A8")
                End With
            End If
        
End Sub

Thaks ý tưởng của bạn, cái nì giúp ích mình trong 1 số trường hợp khác. Bạn cho mình hỏi như cái.
CriteriaRange:=Range("Dieukien") ==> dieukien thiết lập ở đâu?
Làm sao sum dòng lọc ra trong catch?? mình muốn xuất 1 dòng thui

phucbugis · 20/10/13

"CriteriaRange:=Range("Dieukien") ==> dieukien thiết lập ở đâu?"

Mình cài đặt ở Name - Manager (Define name) đó. =Sheet4!$A$5:$A$6

Làm sao sum dòng lọc ra trong catch? Catch la` cai gi vay?

cup5000 · 20/10/13

phucbugis đã viết:
"CriteriaRange:=Range("Dieukien") ==> dieukien thiết lập ở đâu?"

Mình cài đặt ở Name - Manager (Define name) đó. =Sheet4!$A$5:$A$6

Làm sao sum dòng lọc ra trong catch? Catch la` cai gi vay?

hi là chỉ hiện sum data lọc ra theo cột dọc đóa bác

cup5000 · 20/10/13

cup5000 đã viết:
LÀ CHỈ XUẤT RA DÒNG SUM THEO CỘT CUẢ CUẢ KẾT QUẢ LỌC ĐOÁ BÁC. hI, MÀ NAY BÁC ĐI CHỚI VỚI GẤU VUI KG

-->là sum kết quả hàng dọc của data lọc dc ra đóa bác

ChanhTQ@ · 21/10/13

Mình thử lọc theo điều kiện đầu, nhưng không khớp

Có thể mình chưa hiểu hết ý bạn;

Nhưng kết quả ở dòng 3 từ sau cột [BH] khác với những gì bạn đưa ra ở dòng 32 trên trang 'InFormation' dẫn ra của bạn.

Bạn xem lại giúp theo file & cho ý kiến

phucbugis · 21/10/13

Số liệu vào đã chuẩn chưa vậy cup5000 ? !$@!!

tại sao row
2013_W35
Monitor-LCD
NOR
19
LS19C170BS/XL
SIEL(CHENNAI)
S.W ASIA
EXP

cột W37 nó ko khớp so với row 2013_W37 ...

cup5000 · 21/10/13

ChanhTQ@ đã viết:
Có thể mình chưa hiểu hết ý bạn;

Nhưng kết quả ở dòng 3 từ sau cột [BH] khác với những gì bạn đưa ra ở dòng 32 trên trang 'InFormation' dẫn ra của bạn.

Bạn xem lại giúp theo file & cho ý kiến

Trước tiên xin cảm ơn bạn rất nhiều, hi, data bạn lọc ra là đúng ui`, bang information của minh` có chút vấn đề, để mình chỉnh lại

ChanhTQ@ · 22/10/13

Trước tiên xin cảm ơn bạn rất nhiều, hi, data bạn lọc ra là đúng ui`, bang information của minh` có chút vấn đề, để mình chỉnh lại

Vậy mình gợi í & bạn làm tiếp nha:

Dựa trên macro

PHP:

Option Explicit
Sub Macro1()
 Dim Rng As Range, Sh As Worksheet
 
 Set Sh = ThisWorkbook.Worksheets("Raw data")
 Set Rng = [B2].CurrentRegion
 Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _
        "BA1:BC2"), CopyToRange:=Sh.Range("BA5:CJ5"), Unique:=False
End Sub

Bạn lập vòng lặp duyệt theo danh sách các tuần đã có;
Khi đó, bạn gởi vô [BA2] các mã tuần (W25...W38) & chép kết quả công thức từ [Bi3:CJ3] sang nơi cần hiển thị

Những mong là bạn sẽ thành công sau khi có gợi ý!
}}}}}

cup5000 · 23/10/13

ChanhTQ@ đã viết:
Vậy mình gợi í & bạn làm tiếp nha:

Dựa trên macro

PHP:

Option Explicit Sub Macro1() Dim Rng As Range, Sh As Worksheet Set Sh = ThisWorkbook.Worksheets("Raw data") Set Rng = [B2].CurrentRegion Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _ "BA1:BC2"), CopyToRange:=Sh.Range("BA5:CJ5"), Unique:=False End Sub

Bạn lập vòng lặp duyệt theo danh sách các tuần đã có;
Khi đó, bạn gởi vô [BA2] các mã tuần (W25...W38) & chép kết quả công thức từ [Bi3:CJ3] sang nơi cần hiển thị

Những mong là bạn sẽ thành công sau khi có gợi ý!

Trước tiên xin cảm ơn bạn, mình mún xử lý chút dữ liệu loc ra dc như hình, mong bạn giúp thử mình.

Data mẫu file đíh kèm
. Ah GPE có ai ở SG kg nhỉ,thứ 7 cn cafe.

mhung12005 · 24/10/13

cup5000 đã viết:
Trước tiên xin cảm ơn bạn, mình mún xử lý chút dữ liệu loc ra dc như hình, mong bạn giúp thử mình.
View attachment 111236
Data mẫu file đíh kèm
. Ah GPE có ai ở SG kg nhỉ,thứ 7 cn cafe.

Mình không rõ khi dữ liệu của bạn (1 côt nào đó) nhỏ hơn 4 dòng thì sẽ được tính như thế nào ?
Nếu dữ liệu luôn lớn hơn 4 dòng thì bạn thử file này xem có đc không nhé.

cup5000 · 24/10/13

ChanhTQ@ đã viết:
Vậy mình gợi í & bạn làm tiếp nha:

Dựa trên macro

PHP:

Option Explicit Sub Macro1() Dim Rng As Range, Sh As Worksheet Set Sh = ThisWorkbook.Worksheets("Raw data") Set Rng = [B2].CurrentRegion Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _ "BA1:BC2"), CopyToRange:=Sh.Range("BA5:CJ5"), Unique:=False End Sub

Bạn lập vòng lặp duyệt theo danh sách các tuần đã có;
Khi đó, bạn gởi vô [BA2] các mã tuần (W25...W38) & chép kết quả công thức từ [Bi3:CJ3] sang nơi cần hiển thị

Những mong là bạn sẽ thành công sau khi có gợi ý!

Xin cho hỏi là làm sao làm vòng lặp theo tuần vậy, mình suy nghĩ kg ra vì kg truyền biến dc với diều kiện lọc bạn đã fix trong ô rồi

cup5000 · 25/10/13

HIx- kg ra KQ

ChanhTQ@ đã viết:
Vậy mình gợi í & bạn làm tiếp nha:

Dựa trên macro

PHP:

Option Explicit Sub Macro1() Dim Rng As Range, Sh As Worksheet Set Sh = ThisWorkbook.Worksheets("Raw data") Set Rng = [B2].CurrentRegion Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _ "BA1:BC2"), CopyToRange:=Sh.Range("BA5:CJ5"), Unique:=False End Sub

Bạn lập vòng lặp duyệt theo danh sách các tuần đã có;
Khi đó, bạn gởi vô [BA2] các mã tuần (W25...W38) & chép kết quả công thức từ [Bi3:CJ3] sang nơi cần hiển thị

Những mong là bạn sẽ thành công sau khi có gợi ý!

Hix bạn, ơi, mình làm theo gần xong rồi nhưng có vấn đề nhỏ chút là liên kết dữ liệu giữa 2 sheets như hình 1 làm querry lúc ra lúc kg, nản lun. có cách nào liên kết dc kg bạn. (Hình 1)

Ah bạn gợi ý mình dùng vòng lập cho biến tuần, nhưng advance filter lại có vùng dk là ô trong excel, vậy làm sao mình có thể dùng vòng lập dc.? bạn gợi ý mình với. (Hình 2)

cup5000 · 25/10/13

mhung12005 đã viết:
Mình không rõ khi dữ liệu của bạn (1 côt nào đó) nhỏ hơn 4 dòng thì sẽ được tính như thế nào ?
Nếu dữ liệu luôn lớn hơn 4 dòng thì bạn thử file này xem có đc không nhé.

Thanks bạn, hixx những dữ liệu bé hơn 4 tuần thì những tuần kg có, mình tính là 0, thí du:mình chỉ có dữ liệu 2 tuần. thì W-4=0, W-3=0, W-2=0, W-1= hiệu hai tuần trên.

SA_DQ · 25/10/13

(TH 1):
Hix bạn, ơi, mình làm theo gần xong rồi nhưng có vấn đề nhỏ chút là liên kết dữ liệu giữa 2 sheets như hình 1 làm querry lúc ra lúc kg, nản lun. có cách nào liên kết dc kg bạn.

(TH 2):
Ah bạn gợi ý mình dùng vòng lập cho biến tuần, nhưng advance filter lại có vùng dk là ô trong excel, vậy làm sao mình có thể dùng vòng lập dc.? bạn gợi ý mình với.

TH 1: Mình còcn hưa hiểu làm sao mà bạn làm được vậy, thì làm sao có thể giúp được bạn đây;
Chuyện query này chắc b ạn fải nhờ tới Hai lúa MT thôi;

TH2:
Mỗi bước trong vòng lặp bạn fải thiết lập lại trị trong vùng điều kiện; Mà cụ thể là thay trị trong ô Sh.[BA2] bằng lần lượt các trị 2013_W35, 2013_W36, . . . , 2013_W39,. . .
Tiếp theo là lệnh lọc như bạn đã thấy

Chúc buổi sáng tốt lành & nhiều thành công!

dhn46 · 25/10/13

cup5000 đã viết:
Hix bạn, ơi, mình làm theo gần xong rồi nhưng có vấn đề nhỏ chút là liên kết dữ liệu giữa 2 sheets như hình 1 làm querry lúc ra lúc kg, nản lun. có cách nào liên kết dc kg bạn. (Hình 1)

Ah bạn gợi ý mình dùng vòng lập cho biến tuần, nhưng advance filter lại có vùng dk là ô trong excel, vậy làm sao mình có thể dùng vòng lập dc.? bạn gợi ý mình với. (Hình 2)

Bạn cần làm rõ 2 vấn đề sau:

1/ "Dòng nì minh copy manual, có cách nào copy dòng tiêu đề tự động kg, do hàng tuần dòng này sẽ thay đổi." => Bạn Copy ở đâu? Thay đổi ở đâu?

2/ "Muốn lọc ra giá trị từng tuần 1 cách tự động. Hiện tại chỉ input 1 lần Querry dc 1 TUẦN" => Vậy là như thế nào? Lọc 1 lần ra tất cả các tuần hay là ra làm sao, không hiểu? Khi lọc rồi thì sẽ lấy trường nào?

Dạng bài này xử lý ADO là rất hay đó.

cup5000 · 26/10/13

HYen17 đã viết:
TH 1: Mình còcn hưa hiểu làm sao mà bạn làm được vậy, thì làm sao có thể giúp được bạn đây;
Chuyện query này chắc b ạn fải nhờ tới Hai lúa MT thôi;

TH2:
Mỗi bước trong vòng lặp bạn fải thiết lập lại trị trong vùng điều kiện; Mà cụ thể là thay trị trong ô Sh.[BA2] bằng lần lượt các trị 2013_W35, 2013_W36, . . . , 2013_W39,. . .
Tiếp theo là lệnh lọc như bạn đã thấy

Chúc buổi sáng tốt lành & nhiều thành công!

Chào cuối tuần tốt lành, hi
Trường hợp 1, là mình muốn input dk lọc liệu vào sheet "summary" , vùng "A3:B10" rồi lọc dữ liệu ra. Nhưng kg dc, dữ liệu lọc ra là 00000000000000000. Bạn thử giúp mình với.

Ah minh có khó khăn sau đây:
+ Làm sao thay đổi giá trị B2 theo vòng lạâp như bạn nói, vẫn kg rõ lắm bạn ơi, ah mỗi lần copy liệu qua bảng summary cung phải thay dổi địa chỉ ô copy nữa kg là dữ liệu cứ trùng lập

Mã:

Sub querrydata()
Dim rawdata As Worksheet
Dim WIP As Worksheet
Dim FC As Range 'FC= filter condition
Dim summary As Worksheet
Dim data As Range
Dim result As Range


'---------------------
'---------------------
Set WIP = ThisWorkbook.Worksheets("Wip data")
Set rawdata = ThisWorkbook.Worksheets("Raw data")
Set summary = ThisWorkbook.Worksheets("Summary")
'---------------------
'---------------------








WIP.Activate


Range("b7").CurrentRegion.Clear
Set FC = [B2].CurrentRegion
FC.Activate
rawdata.Activate
Set data = [a1].CurrentRegion
data.Activate
data.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=FC, CopyToRange:=WIP.Range("B7"), Unique:=False


WIP.Activate
WIP.Range("b8").Copy
summary.Activate


Range("A13").PasteSpecial xlPasteValues
WIP.Activate
Set result = [J5].CurrentRegion
result.Activate
result.Copy
summary.Activate
Range("b13").PasteSpecial xlPasteValues




End Sub

Mình muốn lọc ra dữ liệu dạng nì (Xem hình)

cup5000 · 26/10/13

dhn46 đã viết:
Bạn cần làm rõ 2 vấn đề sau:

1/ "Dòng nì minh copy manual, có cách nào copy dòng tiêu đề tự động kg, do hàng tuần dòng này sẽ thay đổi." => Bạn Copy ở đâu? Thay đổi ở đâu?

2/ "Muốn lọc ra giá trị từng tuần 1 cách tự động. Hiện tại chỉ input 1 lần Querry dc 1 TUẦN" => Vậy là như thế nào? Lọc 1 lần ra tất cả các tuần hay là ra làm sao, không hiểu? Khi lọc rồi thì sẽ lấy trường nào?

Dạng bài này xử lý ADO là rất hay đó.

Hi chào bạn sáng thứ 7.
"Dòng nì minh copy manual, có cách nào copy dòng tiêu đề tự động kg, do hàng tuần dòng này sẽ thay đổi." ==> mình xử lý xong ùi/
"2/ "Muốn lọc ra giá trị từng tuần 1 cách tự động. Hiện tại chỉ input 1 lần Querry dc 1 TUẦN" => Vậy là như thế nào? Lọc 1 lần ra tất cả các tuần hay là ra làm sao, không hiểu? Khi lọc rồi thì sẽ lấy trường nào?"
==> là muốn lọc ra tương tự hình bài trên đoá bạn

Hai Lúa Miền Tây · 26/10/13

cup5000 đã viết:
Hi chào bạn sáng thứ 7.
"Dòng nì minh copy manual, có cách nào copy dòng tiêu đề tự động kg, do hàng tuần dòng này sẽ thay đổi." ==> mình xử lý xong ùi/
"2/ "Muốn lọc ra giá trị từng tuần 1 cách tự động. Hiện tại chỉ input 1 lần Querry dc 1 TUẦN" => Vậy là như thế nào? Lọc 1 lần ra tất cả các tuần hay là ra làm sao, không hiểu? Khi lọc rồi thì sẽ lấy trường nào?"
==> là muốn lọc ra tương tự hình bài trên đoá bạn

1./ Cái hình 'Dữ liệu từng tuần' của bạn có liên quan gì đến cái 'Data lọc ra dc' không? Hay là chỉ lấy duy nhất list tuần?
2./ 'Data loc ra dc' là kết quả thỏa điều kiện từ A3:B10, kết quả lọc ra bạn có cần sum lại hay không? Phần tên của cột điều kiện A3:A10 là cố định hay là thay đổi?

cup5000 · 26/10/13

Hai Lúa Miền Tây đã viết:
1./ Cái hình 'Dữ liệu từng tuần' của bạn có liên quan gì đến cái 'Data lọc ra dc' không? Hay là chỉ lấy duy nhất list tuần?
2./ 'Data loc ra dc' là kết quả thỏa điều kiện từ A3:B10, kết quả lọc ra bạn có cần sum lại hay không? Phần tên của cột điều kiện A3:A10 là cố định hay là thay đổi?

hi, chào buổi sáng
"Cái hình 'Dữ liệu từng tuần' của bạn có liên quan gì đến cái 'Data lọc ra dc' không? Hay là chỉ lấy duy nhất list tuần?"
==> la list tuần trong bảng rawdata đó bác. (Như hình "du lieu tung tuan")
'Data loc ra dc' là kết quả thỏa điều kiện từ A3:B10, kết quả lọc ra bạn có cần sum lại hay không? Phần tên của cột điều kiện A3:A10 là cố định hay là thay đổi?
Tên của cột dk chính là copy từ "Vùng dk lọc", nên sẽ cố định bác ơi.

Data lọc ra dc cần sum lai (như hình "Data loc dc").

Hai Lúa Miền Tây · 26/10/13

Tôi vẫn chưa hiểu cái list tuần đó sẽ lấy như thế nào nên chưa làm, về phần lọc bạn có thể sử dụng code sau:

[GPECODE=sql]Sub Loc_HLMT()
Dim cnn As Object, rst As Object
Dim x As Integer, strSQL As String, strDK As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
.Open
End With
x = 8
With Sheets("Raw data")
Do While .Cells(1, x + 1).Value <> ""
x = x + 1
strSQL = strSQL & "Sum([" & .Cells(1, x).Value & "]) as [Total " & .Cells(1, x).Value & "],"
Loop
strSQL = Left(strSQL, Len(strSQL) - 1)
End With
x = 2
With Sheets("summary")
Do While .Cells(x + 1, 1).Value <> ""
x = x + 1
strDK = strDK & "[" & .Cells(x, 1).Value & "] LIKE '" & _
IIf(Len(.Cells(x, 2).Value) = 0, "%", .Cells(x, 2).Value) & "' and "
Loop
strDK = Left(strDK, Len(strDK) - 4)
End With
With rst
.ActiveConnection = cnn
.Open "SELECT " & strSQL & " FROM (SELECT * FROM [Raw data$] WHERE " & strDK & ");"
End With
With Sheets("summary")
For x = 0 To rst.Fields.Count - 1
.Cells(12, x + 2) = rst.Fields(x).Name
Next
.[B13].CopyFromRecordset rst
End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing

End Sub

[/GPECODE]

SA_DQ · 26/10/13

Bạn xem file & đây là lần cuối . . . .

)(&&@@

Hai Lúa Miền Tây · 26/10/13

hihi, nếu như hiểu như bài của Bác Sa thì xin sửa code lại như sau:

Mã:

Sub Loc_HLMT()
Dim cnn As Object, rst As Object
Dim x As Integer, strSQL As String, strDK As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & ThisWorkbook.FullName & _
                        ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    .Open
End With
x = 8
With Sheets("Raw data")
    Do While .Cells(1, x + 1).Value <> ""
        x = x + 1
        strSQL = strSQL & "Sum([" & .Cells(1, x).Value & "]) as [_" & .Cells(1, x).Value & "],"
    Loop
    strSQL = Left(strSQL, Len(strSQL) - 1)
End With
x = 2
With Sheets("summary")
    Do While .Cells(x + 1, 1).Value <> ""
        x = x + 1
        strDK = strDK & "[" & .Cells(x, 1).Value & "] LIKE '" & _
                IIf(Len(.Cells(x, 2).Value) = 0, "%", .Cells(x, 2).Value) & "' and "
    Loop
    strDK = Left(strDK, Len(strDK) - 4)
End With
With rst
    .ActiveConnection = cnn
    .Open "SELECT RIGHT([Planned week],3) AS [Week], " & strSQL & _
          " FROM (SELECT * FROM [Raw data$] WHERE " & strDK & ")" & _
          " GROUP BY [Planned week];"
End With
With Sheets("summary")
    For x = 0 To rst.Fields.Count - 1
         .Cells(12, x + 1) = Replace(rst.Fields(x).Name, "_", "")
    Next
   .[A13].CopyFromRecordset rst
End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
 
End Sub

cup5000 · 26/10/13

hix đúng yêu cầu rồi, hix code khó hiểu quá, phải ngâm cứu.
Ah xin hỏi các bác 1 câu nữa, nếu muốn cho mitichoise trong ô dk thi lam thế nào.
Thi dzu mình có Type là "CKD", "SKD", "NOR" ==> làm thế nào để chọn cả CKD va SKD.

cup5000 · 26/10/13

Oh, mình nhập chữa *KD ra luon^

Hỏi về cách trích lọc dữ liệu phức tạp (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên mới

Biên Hòa, Đồng Nai

Thành viên mới

Biên Hòa, Đồng Nai

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên mới

0901452không62

File đính kèm

Thành viên tích cực

Thành viên mới

0901452không62

Thành viên mới

File đính kèm

Thành viên chậm chạm

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

/(hông là gì!

Hướng tới tương lai

Thành viên mới

File đính kèm

Thành viên mới

File đính kèm

❆❆❆❆❆❆❆❆

Thành viên mới

❆❆❆❆❆❆❆❆

/(hông là gì!

File đính kèm

❆❆❆❆❆❆❆❆

File đính kèm

Thành viên mới

Thành viên mới

Thời gian đếm ngược.