Nhờ hướng dẫn (gợi ý) giải quyết vấn đề bằng VBA

Liên hệ QC
Hai Lúa Miền Tây đã viết:
Hoàn toàn có thể lấy được Thầy à, ở trên là em lấy toàn bộ bảng, nếu Thầy muốn lấy cột nào thì chỉ Select cột đó là OK
Ví dụ:

Dùng GroupBy (Cột NCC):

Mã: 
lsSQL = "select [NCC] from [ThongTin$] group by [NCC]"

Dùng distinct (Cột TEN_NCC):

Mã: 
lsSQL = "select distinct [TEN_NCC] from [ThongTin$]"

* Thầy muốn cột nào thì chọn tiêu đề của cột đó, muốn chon hết thì thay = dấu sao "*"
Nhấp chuột vào đây để mở rộng...
Ah, hổng phải vậy!
Ý tôi là vẫn lấy toàn bộ bảng tính nhưng chỉ Unique 1 cột thôi, các cột khác sẽ "ăn theo" ---> code trên là Unique tất tần tật mà
(Hôm này mới biết select * là cái gì! Cứ tưởng * là dấu nhân...)
 
ndu96081631 đã viết:
Ah, hổng phải vậy!
Ý tôi là vẫn lấy toàn bộ bảng tính nhưng chỉ Unique 1 cột thôi, các cột khác sẽ "ăn theo" ---> code trên là Unique tất tần tật mà
(Hôm này mới biết select * là cái gì! Cứ tưởng * là dấu nhân...)
Nhấp chuột vào đây để mở rộng...
Phải chịu cực select cột thôi Thầy à.
*/ Ta tiếp tục nhé, với dữ liệu ở sheet Data, ta dùng GroupBy như trên để tổng hợp dữ liệu theo mã hàng, kết quả cho ra là sheet Temp.
 

File đính kèm

Em đang "tầm sư học đạo" và mới tập tọe học về ADO, tham gia trả lời trong topic này còn có nhiều điều cần phải học hỏi. Các bác nào thấy sai thì sửa giùm em để em tiến bộ hơn ạ:
Em cảm ơn ạ!


Mã: 
Private Sub CommandButton3_Click()
Dim arrValue As Variant
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State = 1 Then cnn.Close
Moketnoi
lsSQL = "SELECT [NCC], [Ten_NCC], Sum([so tien]) AS [Tong Tien] " & _
"FROM [data$] " & _
"GROUP BY [NCC], [Ten_NCC];"
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
Sheets("Temp").Range("A2").CopyFromRecordset rst
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Sheet4.Select
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
xuan.nguyen82 đã viết:
Em đang "tầm sư học đạo" và mới tập tọe học về ADO, tham gia trả lời trong topic này còn có nhiều điều cần phải học hỏi. Các bác nào thấy sai thì sửa giùm em để em tiến bộ hơn ạ:
Em cảm ơn ạ!


Mã: 
Private Sub CommandButton3_Click()
Dim arrValue As Variant
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State = 1 Then cnn.Close
Moketnoi
lsSQL = "SELECT [NCC], [Ten_NCC], Sum([so tien]) AS [Tong Tien] " & _
"FROM [data$] " & _
"GROUP BY [NCC], [Ten_NCC];"
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
Sheets("Temp").Range("A2").CopyFromRecordset rst
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Sheet4.Select
End Sub
Nhấp chuột vào đây để mở rộng...
Với trường hợp trên, nếu chỉ cần lọc theo NCC thôi, kg cần theo Ten_NCC thì sửa code thế nào.
Còn có cần thiết Sum([so tien]) AS [Tong Tien]?
Tôi bỏ mà cũng chạy.
Cám ơn XuanNguyen nhiều, đúng là cao thủ ADO, chắc cũng siêu Acc.
To: HLMT
Nếu thuật toán ADO trên so với dùng Dic để lấy DM duy nhất và tính tổng thì cái nào nhanh hơn?
 
Lần chỉnh sửa cuối:
xuan.nguyen82 đã viết:
Em đang "tầm sư học đạo" và mới tập tọe học về ADO, tham gia trả lời trong topic này còn có nhiều điều cần phải học hỏi. Các bác nào thấy sai thì sửa giùm em để em tiến bộ hơn ạ:
Em cảm ơn ạ!


Mã: 
Private Sub CommandButton3_Click()
Dim arrValue As Variant
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State = 1 Then cnn.Close
Moketnoi
lsSQL = "SELECT [NCC], [Ten_NCC], Sum([so tien]) AS [Tong Tien] " & _
"FROM [data$] " & _
"GROUP BY [NCC], [Ten_NCC];"
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
Sheets("Temp").Range("A2").CopyFromRecordset rst
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Sheet4.Select
End Sub
Nhấp chuột vào đây để mở rộng...
Đúng theo yêu cầu đề bài, XN vừa làm thơ hay vừa viết code giỏi.

ThuNghi đã viết:
To: HLMT
Nếu thuật toán ADO trên so với dùng Dic để lấy DM duy nhất và tính tổng thì cái nào nhanh hơn?
Nhấp chuột vào đây để mở rộng...
Cái này em chưa thử, ở đây em muối nói về ADO thôi anh ạ.

*./ Cũng dữ liệu là sheet Data, yêu cầu lọc và tổng hợp dữ liệu với cột NCC là "XN", Kết quả đưa ra ở sheet Temp.
 
Lần chỉnh sửa cuối:
Hai Lúa Miền Tây đã viết:
Đúng theo yêu cầu đề bài, XN vừa làm thơ hay vừa viết code giỏi.

*./ Cũng dữ liệu là sheet Data, yêu cầu lọc và tổng hợp dữ liệu với cột NCC là "XN", Kết quả đưa ra ở sheet Temp.
Nhấp chuột vào đây để mở rộng...
Cho góp vui. tham khảo ADO hay ghê, nhớ đề tài này lâu rồi nay mới xem lại. Quên tuốt.
PHP: 
Sub LocADO_02()
Dim sTxT$
Dim arrValue As Variant
sTxT = "XN"
Dim lsSQL As String: Dim rst As New ADODB.Recordset
  If cnn.State = 1 Then cnn.Close
    Moketnoi
    lsSQL = "SELECT [NCC],  [Ten_NCC], [sotien] FROM [data$]"
    lsSQL = lsSQL & "where [NCC]  like '" & sTxT & "'"
    rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
    arrValue = rst.GetRows()
  With Sheet4
    .[A2].Resize(rst.RecordCount, 3) = Application.Transpose(arrValue)
  End With
 rst.Close
 Set rst = Nothing
 cnn.Close
 Set cnn = Nothing
Erase arrValue
End Sub
 
ThuNghi đã viết:
Với trường hợp trên, nếu chỉ cần lọc theo NCC thôi, kg cần theo Ten_NCC thì sửa code thế nào.
Còn có cần thiết Sum([so tien]) AS [Tong Tien]?
Tôi bỏ mà cũng chạy.
Cám ơn XuanNguyen nhiều, đúng là cao thủ ADO, chắc cũng siêu Acc.
To: HLMT
Nếu thuật toán ADO trên so với dùng Dic để lấy DM duy nhất và tính tổng thì cái nào nhanh hơn?
Nhấp chuột vào đây để mở rộng...


Hic, em hỏng phải cao thủ hay thấp thủ đâu, em phải cảm ơn GPE nhiều lắm lắm, em học được kiến thức mọi mặt, có nhiều bạn tốt, có nhiều "sư phụ", có nhiều người để mà...thương mến, hihi.
Mà em là dân HR anh ạ...

AS [Tong Tien] Không cần cũng được, cái này là gán tên cột [SumOfso tien] thành [Tong Tien], nhưng sau này mình muốn lấy tên cột?
Còn anh cần mã NCC thôi thì bỏ cái [TEN_NCC] đi
lsSQL = "SELECT [NCC], Sum([so tien]) AS [Tong Tien] "
Phần Group By chỉ cần
"GROUP BY [NCC];"
là đủ
 
xuan.nguyen82 đã viết:
Hic, em hỏng phải cao thủ hay thấp thủ đâu, em phải cảm ơn GPE nhiều lắm lắm, em học được kiến thức mọi mặt, có nhiều bạn tốt, có nhiều "sư phụ", có nhiều người để mà...thương mến, hihi.
Mà em là dân HR anh ạ...

AS [Tong Tien] Không cần cũng được, cái này là gán tên cột [SumOfso tien] thành [Tong Tien], nhưng sau này mình muốn lấy tên cột?
Còn anh cần mã NCC thôi thì bỏ cái [TEN_NCC] đi
lsSQL = "SELECT [NCC], Sum([so tien]) AS [Tong Tien] "
Phần Group By chỉ cần
"GROUP BY [NCC];"
là đủ
Nhấp chuột vào đây để mở rộng...
Bây giờ nâng cao lên nhé, vẫn dùng ADO.
Từ sh data liệt kê sang sh TMP theo từng NCC và preview (xem trước).
Nếu theo thuật toán từng làm thì như sau:
1/ Lấy DM NCC
2/ Duyệt qua NCC để lấy Data.
Kg biết ADO sẽ làm thế nào. Có thể vận dụng để InPhieuLuong.
 
ThuNghi đã viết:
Bây giờ nâng cao lên nhé, vẫn dùng ADO.
Từ sh data liệt kê sang sh TMP theo từng NCC và preview (xem trước).
Nếu theo thuật toán từng làm thì như sau:
1/ Lấy DM NCC
2/ Duyệt qua NCC để lấy Data.
Kg biết ADO sẽ làm thế nào. Có thể vận dụng để InPhieuLuong.
Nhấp chuột vào đây để mở rộng...
Hoàn toàn có thể được anh à: Lấy dữ liệu duy nhất của cột NCC đưa vào mãng, duyệt qua từng nhà cung cấp để làm điều kiện lọc.

Mã: 
Private Sub cmdXem_Click()
On Error GoTo Loi
    Dim lsSQL As String, arr As Variant
    Dim r, c As Integer
    Dim rst As New ADODB.Recordset
    Unload NHAPLIEU
    If cnn.State = 1 Then cnn.Close
    Moketnoi
    With rst
        lsSQL = "SELECT distinct [NCC] from [data$]"
        .Open lsSQL, cnn, adOpenStatic, adLockReadOnly
        arr = .GetRows()
        .Close
        For c = LBound(arr, 2) To UBound(arr, 2)
            For r = LBound(arr, 1) To UBound(arr, 1)
                Sheet4.Range("A2:D65000").ClearContents
                lsSQL = "SELECT [ngay],[ncc],[Ten_Ncc],[so tien] " & _
                        "from [data$] " & _
                        "where [NCC] like'" & arr(r, c) & "'"
                        
                .Open lsSQL, cnn, adOpenStatic, adLockReadOnly
                 Sheet4.Range("A2").CopyFromRecordset rst
                .Close
                Sheet4.PrintPreview
            Next
        Next
    End With
    Set rst = Nothing
    Exit Sub
Loi:
    MsgBox Err.Description
    
End Sub
 

File đính kèm

Ta tiếp tục nhé:
Cũng dữ liệu ở bài #29 làm sao ta lọc ra dữ liệu của mã HLMT (Bao gồm cả HLMT,HLMT1...) và ngày phát sinh từ ngày 01/07/2012 đến ngày 14/07/2012.
 
PHP: 
arrValue = rst.GetRows()
HK ơi, cho a hỏi, khi lấy từ recordset sang ArrValue, thì có thông số nào từ GetRows để cho ta biết tên Field (tên cột) cụ thể như NCC.
Thay vì
FieldName=rst(i).name (i=1,2,... số field.
Có thể dùng
FieldName=ArrValue(.....)
Nghĩa là Rec lấy luôn tên tiêu đề khi gán sang Arr.
Cám ơn.
 
ThuNghi đã viết:
PHP: 
arrValue = rst.GetRows()
HK ơi, cho a hỏi, khi lấy từ recordset sang ArrValue, thì có thông số nào từ GetRows để cho ta biết tên Field (tên cột) cụ thể như NCC.
Thay vì
FieldName=rst(i).name (i=1,2,... số field.
Có thể dùng
FieldName=ArrValue(.....)
Nghĩa là Rec lấy luôn tên tiêu đề khi gán sang Arr.
Cám ơn.
Nhấp chuột vào đây để mở rộng...
Anh thử dùng vòng lặp duyệt qua tên trường rồi đưa tên trường đó vào mãng.
 
Hai Lúa Miền Tây đã viết:
Ta tiếp tục nhé:
Cũng dữ liệu ở bài #29 làm sao ta lọc ra dữ liệu của mã HLMT (Bao gồm cả HLMT,HLMT1...) và ngày phát sinh từ ngày 01/07/2012 đến ngày 14/07/2012.
Nhấp chuột vào đây để mở rộng...
Anh dùng between thì được nhưng triển khai sang Ngay<=eDate and >=fDate thì báo lỗi.
Nhờ HL xem giúp.
PHP: 
Sub LocADO_03()
Dim iR&, iC&
Dim sTxT$
Dim fDate$: fDate = "01/07/2012"
Dim eDate$: eDate = "14/07/2012"
Dim sArr, rArr
sTxT = "HLMT"
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State = 1 Then cnn.Close
Moketnoi
lsSQL = "SELECT [NCC],  [Ten_NCC], [sotien] FROM [data$]"
lsSQL = lsSQL & "where left([NCC],4)  like '" & sTxT & "'"
'lsSQL = lsSQL & "and [Ngay] >=" & fDate & " "
'lsSQL = lsSQL & "and [Ngay] <=" & eDate & " "
lsSQL = lsSQL & "and [Ngay] BETWEEN #01/07/2012# and #14/07/2012#"
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
sArr = rst.GetRows()
If rst.RecordCount Then
  ReDim rArr(1 To UBound(sArr, 2) + 1, 1 To UBound(sArr) + 1)
  For iR = 0 To UBound(sArr, 2)
    For iC = 0 To UBound(sArr)
      rArr(iR + 1, iC + 1) = sArr(iC, iR)
    Next iC
  Next iR
Else
  Exit Sub
End If
With Sheet4
  .[A2].Resize(1000, 3).ClearContents
  .[A2].Resize(rst.RecordCount, 3) = rArr
End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
Erase sArr, rArr
End Sub
 
đúng rồi anh à, phần sotien anh tham chiếu bị sai: phải là [so tien]
 
Hai Lúa Miền Tây đã viết:
đúng rồi anh à, phần sotien anh tham chiếu bị sai: phải là [so tien]
Nhấp chuột vào đây để mở rộng...
Không phải vậy. Đã sử field name sotien rồi.
Muốn thay thế dòng between mà cứ báo lỗi EOF...
HL test giúp. Bỏ dòng between và thay dòng and >....
PHP: 
Sub LocADO_03()
Dim iR&, iC&
Dim sTxT$
Dim fDate$: fDate = "01/07/2012"
Dim eDate$: eDate = "14/07/2012"
Dim sArr, rArr
sTxT = "HLMT"
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State = 1 Then cnn.Close
Moketnoi
lsSQL = "SELECT [NCC],  [Ten_NCC], [sotien] FROM [data$]"
lsSQL = lsSQL & "where left([NCC],4)  like '" & sTxT & "'"
lsSQL = lsSQL & "and [Ngay] >=" & fDate & " "
lsSQL = lsSQL & "and [Ngay] <=" & eDate & " "
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
sArr = rst.GetRows()
If rst.RecordCount Then
  ReDim rArr(1 To UBound(sArr, 2) + 1, 1 To UBound(sArr) + 1)
  For iR = 0 To UBound(sArr, 2)
    For iC = 0 To UBound(sArr)
      rArr(iR + 1, iC + 1) = sArr(iC, iR)
    Next iC
  Next iR
Else
  Exit Sub
End If
With Sheet4
  .[A2].Resize(1000, 3).ClearContents
  .[A2].Resize(rst.RecordCount, 3) = rArr
End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
ErasesArr, rArr
End Sub
Hình như nó sai ở chỗ kiểu ngày mà chưa tìm ra.
 
Lần chỉnh sửa cuối:
ThuNghi đã viết:
Không phải vậy. Đã sử field name sotien rồi.
Muốn thay thế dòng between mà cứ báo lỗi EOF...
HL test giúp. Bỏ dòng between và thay dòng and >....
PHP: 
Sub LocADO_03()
Dim iR&, iC&
Dim sTxT$
Dim fDate$: fDate = "01/07/2012"
Dim eDate$: eDate = "14/07/2012"
Dim sArr, rArr
sTxT = "HLMT"
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State = 1 Then cnn.Close
Moketnoi
lsSQL = "SELECT [NCC],  [Ten_NCC], [sotien] FROM [data$]"
lsSQL = lsSQL & "where left([NCC],4)  like '" & sTxT & "'"
lsSQL = lsSQL & "and [Ngay] >=" & fDate & " "
lsSQL = lsSQL & "and [Ngay] <=" & eDate & " "
rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
sArr = rst.GetRows()
If rst.RecordCount Then
  ReDim rArr(1 To UBound(sArr, 2) + 1, 1 To UBound(sArr) + 1)
  For iR = 0 To UBound(sArr, 2)
    For iC = 0 To UBound(sArr)
      rArr(iR + 1, iC + 1) = sArr(iC, iR)
    Next iC
  Next iR
Else
  Exit Sub
End If
With Sheet4
  .[A2].Resize(1000, 3).ClearContents
  .[A2].Resize(rst.RecordCount, 3) = rArr
End With
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
ErasesArr, rArr
End Sub
Nhấp chuột vào đây để mở rộng...


Cho em "bon chen" tý ạ.

Anh cho thêm dấu # vào điều kiện ngày:

lsSQL = lsSQL & "and [Ngay] >=#" & fDate & "#"
lsSQL = lsSQL & "and [Ngay] <=#" & eDate & "#"
 
xuan.nguyen82 đã viết:
Cho em "bon chen" tý ạ.

Anh cho thêm dấu # vào điều kiện ngày:

lsSQL = lsSQL & "and [Ngay] >=#" & fDate & "#"
lsSQL = lsSQL & "and [Ngay] <=#" & eDate & "#"
Nhấp chuột vào đây để mở rộng...
XN nhanh tay thiệt, chưa kịp trả lời là đã có đáp án.

Ta tiếp tục:
*./ Cũng dữ liệu trên làm sao ta lấy được 2 số tiền là cao nhất.
 
xuan.nguyen82 đã viết:
Cho em "bon chen" tý ạ.

Anh cho thêm dấu # vào điều kiện ngày:

lsSQL = lsSQL & "and [Ngay] >=#" & fDate & "#"
lsSQL = lsSQL & "and [Ngay] <=#" & eDate & "#"
Nhấp chuột vào đây để mở rộng...
Cám ơn Xuân nhiều. OK rồi.
Cái vụ SQL này nhức đầu mấy cái dấu,vì kg qua bài bản nên làm kg bài bản.
Muốn làm để triển khai cho dễ.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
52
Đọc
103K
khanhvinhdai1
K
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
5
Đọc
72
ptm0412
ptm0412
Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
57
vanle33
vanle33
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
20
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
115
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
75
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
130
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
121
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
122
VetMini
V
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
407
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
552
htin1997
htin1997
tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
2
Đọc
56
Nhattanktnn
Nhattanktnn
S
  • Question Question
Điều chỉnh kích thước dòng tự động theo trang in
Trả lời
5
Đọc
143
HUONGHCKT
H
A
Tạo vé Loto bằng Excel
2
Trả lời
20
Đọc
23K
Tuấn tata
Tuấn tata
Nauduong
Cách chuyển định dạng từ PDF sang Image
Trả lời
9
Đọc
266
Châu Bá Thông
Châu Bá Thông
minhduongct
  • Question Question
Viết code VBA thay cho dùng hàm vlookup
Trả lời
6
Đọc
1K
VetMini
V
N
Thử viết code lập trình đa luồng bằng TwinBasic và khả năng ứng dụng vào COM add-in chạy trong Excel
    • Thích
Trả lời
0
Đọc
179
nguyendang95
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom