Nhờ hiệu chỉnh điều kiện dữ liệu (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

HUYNHTIEN0202

Thành viên chính thức
Tham gia
22/8/14
Bài viết
92
Được thích
1
Chào các Anh
Hiện tại mình lọc dữ liệu hai điều kiện gồm SOSANPHAM và MASANPHAM
Trường hợp Nếu gõ điều kiện SOSANPHAM 10 thì lỗi còn gõ '10 thì Ok
Còn điều kiện MASANPHAM thì OK
Mình muốn gõ dữ liệu SOSANPHAM và MASANPHAM không cần bổ sung thêm dấu "'"
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM " & _
                      "HAVING SOSANPHAM LIKE ('" + .Range("B2") + "')OR MASOSANPHAM LIKE ('" + .Range("B2") + "')")
'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Cám ơn các anh nhiều.
 

File đính kèm

HUYNHTIEN0202 đã viết:
Chào các Anh
Hiện tại mình lọc dữ liệu hai điều kiện gồm SOSANPHAM và MASANPHAM
Trường hợp Nếu gõ điều kiện SOSANPHAM 10 thì lỗi còn gõ '10 thì Ok
Còn điều kiện MASANPHAM thì OK
Mình muốn gõ dữ liệu SOSANPHAM và MASANPHAM không cần bổ sung thêm dấu "'"
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM " & _
                      "HAVING SOSANPHAM LIKE ('" + .Range("B2") + "')OR MASOSANPHAM LIKE ('" + .Range("B2") + "')")
'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Cám ơn các anh nhiều.
Nhấp chuột vào đây để mở rộng...
Nối chuỗi ta dùng & và dùng having thường dùng để lọc với những hàm đi kèm group by: sum, min, max...
Ở đây ta dùng where
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "where SOSANPHAM LIKE '" & .Range("B2") & "' OR MASOSANPHAM LIKE '" & .Range("B2") & "'" & _
                      " Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")

'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
 
HUYNHTIEN0202 đã viết:
Chào các Anh
Hiện tại mình lọc dữ liệu hai điều kiện gồm SOSANPHAM và MASANPHAM
Trường hợp Nếu gõ điều kiện SOSANPHAM 10 thì lỗi còn gõ '10 thì Ok
Còn điều kiện MASANPHAM thì OK
Mình muốn gõ dữ liệu SOSANPHAM và MASANPHAM không cần bổ sung thêm dấu "'"
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM " & _
                      "HAVING SOSANPHAM LIKE ('" + .Range("B2") + "')OR MASOSANPHAM LIKE ('" + .Range("B2") + "')")
'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Cám ơn các anh nhiều.
Nhấp chuột vào đây để mở rộng...
Cái này hay quá (Mai phải tìm học mới được:p)
 
HUYNHTIEN0202 đã viết:
Chào các Anh
Hiện tại mình lọc dữ liệu hai điều kiện gồm SOSANPHAM và MASANPHAM
Trường hợp Nếu gõ điều kiện SOSANPHAM 10 thì lỗi còn gõ '10 thì Ok
Còn điều kiện MASANPHAM thì OK
Mình muốn gõ dữ liệu SOSANPHAM và MASANPHAM không cần bổ sung thêm dấu "'"
.....................................................................
Cám ơn các anh nhiều.
Nhấp chuột vào đây để mở rộng...
Chẳng hiểu bạn muốn làm cái gì? Nếu dựa vào danh mục ở sheet DATA để chọn và nhập liệu vào Sheet2 thì nên dùng UserForm với 1 ListBox thì sẽ chọn được nhiều loại sản phẩm để nhập liệu cùng 1 lúc.
 
quanluu1989 đã viết:
Nối chuỗi ta dùng & và dùng having thường dùng để lọc với những hàm đi kèm group by: sum, min, max...
Ở đây ta dùng where
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "where SOSANPHAM LIKE '" & .Range("B2") & "' OR MASOSANPHAM LIKE '" & .Range("B2") & "'" & _
                      " Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")

'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
quanluu1989 đã viết:
Nối chuỗi ta dùng & và dùng having thường dùng để lọc với những hàm đi kèm group by: sum, min, max...
Ở đây ta dùng where
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "where SOSANPHAM LIKE '" & .Range("B2") & "' OR MASOSANPHAM LIKE '" & .Range("B2") & "'" & _
                      " Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")

'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn nhiều.
 
be09 đã viết:
Chẳng hiểu bạn muốn làm cái gì? Nếu dựa vào danh mục ở sheet DATA để chọn và nhập liệu vào Sheet2 thì nên dùng UserForm với 1 ListBox thì sẽ chọn được nhiều loại sản phẩm để nhập liệu cùng 1 lúc.
Nhấp chuột vào đây để mở rộng...
Cám ơn Anh đã góp ý, thực tế dữ liệu góc của mình nằm SQL Server mình muốn đưa ra ví dụ tạm để học hỏi thêm.
 
HUYNHTIEN0202 đã viết:
Cám ơn Anh đã góp ý, thực tế dữ liệu góc của mình nằm SQL Server mình muốn đưa ra ví dụ tạm để học hỏi thêm.
Nhấp chuột vào đây để mở rộng...
Nếu muốn sử dụng những cái có sẳn thì nên tìm hiểu về PivotTable (dùng tổng hợp, phân tích dữ liệu) và Advanced Filter (dùng lọc và tách dữ liệu, sẽ rất hữu ích cho công việc hàng ngày.
 
quanluu1989 đã viết:
Nối chuỗi ta dùng & và dùng having thường dùng để lọc với những hàm đi kèm group by: sum, min, max...
Ở đây ta dùng where
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "where SOSANPHAM LIKE '" & .Range("B2") & "' OR MASOSANPHAM LIKE '" & .Range("B2") & "'" & _
                      " Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")

'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

quanluu1989 đã viết:
Nối chuỗi ta dùng & và dùng having thường dùng để lọc với những hàm đi kèm group by: sum, min, max...
Ở đây ta dùng where
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "where SOSANPHAM LIKE '" & .Range("B2") & "' OR MASOSANPHAM LIKE '" & .Range("B2") & "'" & _
                      " Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")

'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Chào bạn
Sẵn tiện cho mình hỏi thêm bạn,
Mình muốn sữa đổi điều kiện trong đoạn code sau:
Thay thế điều kiện
[" & ThisWorkbook.FullName & "].[Sheet2$G1:G3]
Thành điều kiện sau để khi cần bổ sung thêm điều kiện không cần sữa code.
With Sheet2
.Range("G1", .[G3].End(xlDown)).Value
End With
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "WHERE SOSANPHAM IN (SELECT SOSANPHAM FROM [" & ThisWorkbook.FullName & "].[Sheet2$G1:G3]) " & _
                      "Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")
'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub{/code]
 

File đính kèm

Lần chỉnh sửa cuối:
HUYNHTIEN0202 đã viết:
Chào bạn
Trường hợp mình để điều kiện dấu & hoặc + điều cho ra kết quả

Chào bạn
Sẵn tiện cho mình hỏi thêm bạn,
Mình muốn sữa đổi điều kiện trong đoạn code sau:
Thay thế điều kiện
[" & ThisWorkbook.FullName & "].[Sheet2$G1:G3]
Thành điều kiện sau để khi cần bổ sung thêm điều kiện không cần sữa code.
With Sheet2
.Range("G1", .[G3].End(xlDown)).Value
End With
Mã: 
Private Sub CommandButton1_Click()
Dim v As String, Cnn As Object, lrs As Object
Application.ScreenUpdating = False
    Set Cnn = CreateObject("ADODB.Connection")
    v = Application.Version
    With Sheet2
     .Range("A5:D5000").ClearContents
    Cnn.Open ("Provider=Microsoft." & IIf(v <> "8.0", "ACE.OLEDB.12.0", "Jet.OLEDB.4.0") & _
    ";Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel " & IIf(v <> "8.0", "12.0", "8.0"))
'---------------------------------------------------------------------------------------------------------------
         Set lrs = Cnn.Execute("SELECT SOSANPHAM, MASOSANPHAM, TENSANPHAM,SUM(SOLUONG) " & _
                      "FROM [DATA$] " & _
                      "WHERE SOSANPHAM IN (SELECT SOSANPHAM FROM [" & ThisWorkbook.FullName & "].[Sheet2$G1:G3]) " & _
                      "Group by SOSANPHAM, MASOSANPHAM, TENSANPHAM ")
'---------------------------------------------------------------------------------------------------------------
    .Range("A5").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub{/code]
Nhấp chuột vào đây để mở rộng...
sửa thành
"WHERE SOSANPHAM IN (SELECT SOSANPHAM FROM [Sheet2$G1:G" & .[G3].End(xlDown)).Value & "]) " & _
 
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

00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup (1 người xem)
Trả lời
3
Đọc
110
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
22
Đọc
429
nguyendang95
N
G
Xin Code xóa Module.
Trả lời
7
Đọc
205
VetMini
V
S
Mở 2 cửa sổ riêng biệt
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
134
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
    • Thích
Trả lời
0
Đọc
914
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
109
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
782
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
210
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
0
Đọc
133
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo (1 người xem)
Trả lời
1
Đọc
118
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel (1 người xem)
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (2 người xem)
Trả lời
14
Đọc
211
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
705
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục (1 người xem)
Trả lời
3
Đọc
218
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô (1 người xem)
Trả lời
7
Đọc
213
Gà Công Nghệ
Gà Công Nghệ
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
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom