Tìm lỗi sai trong macro lọc dữ liệu (1 người xem)

  • Thread starter Thread starter ditimdl
  • Ngày gửi Ngày gửi
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)
ditimdl

ditimdl

Thành viên thường trực
Tham gia
11/10/06
Bài viết
378
Được thích
107
Giới tính
Nam
Nghề nghiệp
Pharmacist
Các bạn xem trong file đính kèm giúp mình xem macro sai ở chổ nào mà khi lọc nó không ra đúng với kết quả so với điều kiện lọc AF.
 

File đính kèm

Bạn đổi điều kiện từ dạng ngày/tháng/năm thành tháng/ngày/năm theo đúng dữ liệu thì mới được
>=6/1/2012 và <=6/10/2012
 
Cái này mình biết nhưng mình đã format dữ liệu theo định dạng dd/mm/yy và cả trong hệ thống mình cũng đã thay đổi theo tương tự nhưng nó vẫn không hiểu? Hay là đối với điều kiện lọc phải nhập theo định dạng mm/dd/yyyy?
 
Nếu muốn chắc chắn thì dùng công thức sau cho điều kiện lọc:
=">=" & DATE(2012, 6, 1) và
="<=" & DATE(2012, 6, 10)
 
hoangvuluan đã viết:
Nếu muốn chắc chắn thì dùng công thức sau cho điều kiện lọc:
=">=" & DATE(2012, 6, 1) và
="<=" & DATE(2012, 6, 10)
Nhấp chuột vào đây để mở rộng...
Cái này thì chắc như bắp rồi :)
Cho mình hỏi khi chạy sub lọc, nếu số bản ghi = 0 thì dừng lại các quá trình sau đó thì phải thêm như thế nào?
Cám ơn bạn đã hổ trợ rất nhiều!
 
Tôi thêm 1 số ý vào code của bạn:
PHP: 
Sub Macro1()
'
' Macro1 Macro
'
'
With Application
.ScreenUpdating = False
.EnableEvents = False
    Sheets("Sheet2").Select
    Rows("6:6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("A5:C2000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("E2:G3"), Unique:=False
    Range("A5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    If Selection.Rows.Count = 1 Then GoTo endSub
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A5").Select
endSub:
    Sheet1.ShowAllData
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
 
Mã: 
Sub Macro1()
'
' Macro1 Macro
'
'
With Application
.ScreenUpdating = False
.EnableEvents = False
    Sheets("Sheet2").Select
    Rows("6:6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("A5:C2000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("E2:G3"), Unique:=False
    Range("A5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    If Selection.Rows.Count = 1 Then GoTo endSub
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A5").Select
endSub:
    Sheet1.ShowAllData
.EnableEvents = True
.ScreenUpdating = True
End With
Sheets("Sheet2").Select
Range("A6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A2:C2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "Báo cáo"
    Range("A3").Select
End Sub
Không theo như ý muốn, sau khi lọc mình tiến hành kẻ khung... nhưng bản ghi = 0 thì nó vẫn tiến hành những công việc sau đó.
Bạn xem mình thêm vào sai ở đâu?
 
Mã: 
Sub Macro1()
'
' Macro1 Macro
'
'
With Application
.ScreenUpdating = False
.EnableEvents = False
    Sheets("Sheet2").Select
    Rows("6:6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("A5:C2000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("E2:G3"), Unique:=False
    Range("A5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    If Selection.Rows.Count = 1 Then GoTo endSub
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A5").Select

Sheets("Sheet2").Select
Range("A6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A2:C2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "Báo cáo"
    Range("A3").Select
endSub:
    Sheet1.ShowAllData
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Tôi đã chèn thêm 1 lệnh nhảy (goto) khi không có dữ liệu thỏa điều kiện, nhưng bạn máy móc nối thêm vào dưới đoạn nhảy cho nên nó cứ làm tiếp. Bạn dùng lại cái mà tôi đã sửa ở trên.
 
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

N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
10
Đọc
5K
tle2003
T
C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt (1 người xem)
Trả lời
4
Đọc
147
ongke0711
ongke0711
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. (2 người xem)
    • Thích
2
Trả lời
28
Đọc
7K
Hoàng Tuấn 868
H
G
Xin Code xóa Module. (1 người xem)
Trả lời
8
Đọc
279
huhumalu
H
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
3
Đọc
149
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
22
Đọc
547
nguyendang95
N
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 (1 người xem)
    • 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
141
lamvu0677
L
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (7 người xem)
    • Thích
Trả lời
0
Đọc
2K
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
125
khkkh
K
K
Xin dax tính tỷ trọng doanh thu (1 người xem)
Trả lời
18
Đọc
799
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
229
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
148
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
139
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • 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.
Trả lời
14
Đọc
226
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
712
thuytrangbp28
T
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
244
Hoàng Tuấn 868
H
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