Cafe_Excel kỳ 11 - 30/8/15 tại TPHCM: ADO - Kết nối dữ liệu từ Excel (Tiếp theo) (2 người xem)

[OverAC]

Tổ chức cafe Excel lần 11 - TPHCM
Chủ đề: ADKết nốiO - dữ liệu từ Excel đến các dữ liệu nguồn - tiếp theo​

Do nội dung cafe kỳ 10, không đủ làm mong muốn tìm hiểu ADO của các Excel fan, BTC cafe tiếp tục nội dung ADO dành cho những người đã biết VBA.

Thời gian: 09h00 (sáng) ngày 30/8/2015
Địa điểm: 264A Nam Kỳ Khởi Nghĩa, Q.3, TP.HCM
Chủ trì thảo luận trong buổi cafe này:
- Hai Lúa Miền Tây
- OverAC
- Ptm0412

Đối tượng tham dự: Chúng tôi mong chào đón thành viên quan tâm tham dự:
- Người thường làm việc với dữ liệu lớn hoặc dữ liệu nguồn ngoài Excel
- Biết VBA và muốn nâng cao hiệu quả làm việc

Phí tham dự: 100.000 đồng/người bao gồm:
- Bất kể một loại nước uống nào có trong thực đơn của quán

Hình thức đăng ký:
1. Tại topic này. (vui lòng để lại thông tin để thuận tiện cho việc liên lạc: tên-email-số điện thoại…)
2. Hoặc qua email: hotro@giaiphapexcel.com
3. Hoặc qua số điện thoại: 0938 021 119 (Mộng Tiền)

Nếu bạn muốn thảo luận vấn đề của bạn trực tiếp tại buổi cafe, chúng tôi mong nhận trước file hoặc yêu cầu nội dung thảo luận cụ thể đến email hotro@giaiphapexcel.com để chúng tôi chuẩn bị.

Thân Ái
BTC Cafe Excel

 

[ptm0412]

Bài thực hành cho ngày mai. Code có sẵn, vấn đề là "nàm thao"

 

[ptm0412]

Vài điều chỉ vừa kịp nói nhưng chưa kịp làm:

1. Tạo 1 cột số:

rst.Open ("select color, sum(qty) as soluong, 34 as price from [Data$]"), cn


2. Tạo 1 cột tính toán:

rst.Open ("select color, sum(qty) as soluong, 34 as price, sum(qty) * 34 as amount from [Data$] group by color "), cn

3. Tạo 1 cột giá trị kèm điều kiện

rst.Open ("select color, sum(qty) as soluong, 34 as price, sum(qty) * 34 as amount, " & _
"IIf(amount>50000, 'A','B') " & _
"from [Data$] group by color "), cn

4. Tách 1 cột thành 4 cột theo điều kiện

rst.Open ("select color, iif(origin = 'CHINA', sum(qty), 0), " & _
"iif(origin = 'KOREA', sum(qty), 0), " & _
"iif(origin = 'VIETNAM', sum(qty), 0), " & _
"iif(origin = 'HONG KONG', sum(qty), 0) " & _
"from [Data$] group by color,origin"), cn


5. Select lồng, giống 4 nhưng bảo đảm group không sót:

rst.Open ("select Tmp.clr, sum(Tmp.cn),sum(Tmp.kor),sum(Tmp.vie), sum(Tmp.hkg) " & _
"from (select color as clr, iif(origin = 'CHINA', sum(qty), 0) as cn, " & _
"iif(origin = 'KOREA', sum(qty), 0) as kor, " & _
"iif(origin = 'VIETNAM', sum(qty), 0) as vie, " & _
"iif(origin = 'HONG KONG', sum(qty), 0) as hkg " & _
"from [Data$] group by color,origin) Tmp group by clr "), cn



Sử dụng file TestADO.xls của kỳ 10