Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho
tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng,
chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo
nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất
cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Sub so_luong_tieu_chuan() Dim c As Long, d As Long c = CLng(Range("K1").Value) d = CLng(Range("K2").Value) ActiveSheet.Range("$B$1:$D$13").AutoFilter Field:=3, Criteria1:=">=" & a, _ Operator:=xlAnd, Criteria2:="<=" & b End Sub
vỗ tay
Bùi Vũ Thành16:07 - Jul 15, 2020
Mình muốn xóa bỏ các dòng thỏa mãn điều kiện lọc thì làm như thế nào nhỉ?
vỗ tay
Bùi Vũ Thành08:07 - Jul 16, 2020
Chào bạn Nguyễn Đức Dũng để xóa dữ liệu thỏa mãn điều kiện bạn làm theo cách sau: B1: Tìm dòng cuối chứa dữ liệu B2: Thực hiện vòng lặp ngược từ cuối lên đầu B3 : kiểm tra điều kiện và thực hiện xóa Code mẫu Option Explicit
Sub Xoadongcodieukien() Dim dc As Long, i As Long dc = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row For i = dc To 1 Step -1 If (Sheet1.Range("A" & i)) = 1 Then Sheet1.Rows(i).Delete End If Next i End Sub
vỗ tay
Bùi Vũ Thành18:07 - Jul 16, 2020
Cảm ơn bạn nhé, khi điều kiện thỏa mãn thì xóa dòng, khi điều kiện không thỏa mãn thì thoát luôn lệnh if thì làm ntn nhỉ? Mình cho chạy thử thì nó có chạy nhưng chạy lâu quá mới thoát
vỗ tay
Bùi Vũ Thành20:07 - Jul 16, 2020
Đoạn mã @Tuấn Ba gợi ý có nhược điểm là phải đếm ngược đến 1, mình muốn dừng lại ngay khi hàm if không thỏa mãn thì làm thế nào nhỉ?
vỗ tay
Bùi Vũ Thành08:07 - Jul 17, 2020
@Chào Nguyễn Đức Dũng vòng lặp phải chạy từ cuối lên đầu để tìm dữ liệu vào xóa bạn nhé, nếu chạy từ đầu đến cuối thì xóa dòng xong ô sẽ bị lệnh dẫn đến xóa sai chệch