Sub AutoFilter_Table()'AutoFilters on Tables work the same wayDim lo As ListObject 'Excel Table

Sub AutoFilter_Table()

'AutoFilters on Tables work the same way.

Dim lo As ListObject 'Excel Table

'Set the ListObject (Table) variable

Set lo = Sheet1.ListObjects(1)

'AutoFilter is member of Range object

'The parent of the Range object is the List Object

lo.Range.AutoFilter

End Sub

cho em hỏi tại sao khi chạy dòng lệnh này báo lỗi : subscript out of range

12 câu trả lời

587 lượt xem

vỗ tay

Nguyễn Tuấn Anh. 16:01 - Jan 14, 2021

Chào bạn bạn có thể đính kèm thêm file của bạn nữa không?

vỗ tay

Nguyễn Tuấn Anh. 08:01 - Jan 15, 2021

alo

vỗ tay

Nguyễn Tuấn Anh. 09:01 - Jan 15, 2021

Khi chạy lệnh với đối tượng là Table (ở lệnh Set Io = Sheet1.ListObjects(1) ) thì bạn không viết lệnh này ở dạng range thông thường được nữa => Lệnh lo.Range.AutoFilter sẽ bị lỗi.

Bạn nên dùng dưới dạng bảng thông thường trong excel, không phải dạng Table chuẩn (insert > table). 2 dạng này khác nhau nên cách lập trình vba cũng khác.

vỗ tay

Nguyễn Tuấn Anh. 13:01 - Jan 20, 2021

vâng em cám ơn

vỗ tay

Nguyễn Tuấn Anh. 13:01 - Jan 20, 2021

Set C1 = ActiveSheet.Rows(15).RowDifferences(Comparison:=ActiveSheet.Range("D15"))

C1.Select

Sau khi thực hiện lệnh trên giờ em muốn hiển thị từng ô ngoại trừ ô không được select bằng lệnh MsgBox

For Each C1 In Rg_selec

MsgBox C1.Value

Next C1.Next

nhưng em chưa làm được. hỗ trợ giúp em với

vỗ tay

Nguyễn Tuấn Anh. 15:01 - Jan 20, 2021

Mục đích của bạn là xác định các ô ngoại trừ ô đang được chọn?

Ví dụ: Vùng D1:D20 và trong vùng này bạn đang chọn ở ô D15

Bây giờ viết code để điền số 1 vào các ô từ D1:D20 ngoại trừ ô D15

thì có thể viết:

1. Xác định ô đang chọn:

Dim dong_chon as long
dong_chon = ActiveCell.Row

2. Vòng lặp điền giá trị vào vùng ô:

Dim i as long
For i = 1 to 20
If i <> dong_chon then
Range("D" & i).Value = 1
End If
Next i

vỗ tay