sửa code chạy tự động (1 người xem)

[khonghoithinguhocdungchem]

em có code này mong mọi người góp ý sao cho nó chạy mà không cần phải chuyển sheet mới chạy, ko phải tạo nút ạ
tức là tự động nó chạy mà không phải làm gì. (Chuyển sheet, F5, Enter, tạo nút)

Private Sub Worksheet_Activate()
Sheet6.Cells.Clear
Sheet5.Range("A2:A65000").AdvancedFilter 2, , [a5], True
Sheet6.Range("A6:A" & [a65000].End(3).Row).Sort [a5], 2
Sheet6.Range("A6:a" & [a65000].End(3).Row - 1).Sort [a5], 1
End Sub

 

[giaiphap]

em có code này mong mọi người góp ý sao cho nó chạy mà không cần phải chuyển sheet mới chạy, ko phải tạo nút ạ
tức là tự động nó chạy mà không phải làm gì. (Chuyển sheet, F5, Enter, tạo nút)

Private Sub Worksheet_Activate()
Sheet6.Cells.Clear
Sheet5.Range("A2:A65000").AdvancedFilter 2, , [a5], True
Sheet6.Range("A6:A" & [a65000].End(3).Row).Sort [a5], 2
Sheet6.Range("A6:a" & [a65000].End(3).Row - 1).Sort [a5], 1
End Sub

Bạn nói như vậy cũng không đúng, nó chỉ chạy khi có một điều kiện gì chớ chẳng lẻ nó chạy hoài, bạn không làm gì cả nó cũng chạy thì làm sao bạn thao tác được trên bảng tính (Nó lo chạy không, chạy không có đường ra).

 

[VetMini]

Chủ thớt nuôi một con chó và muốn nó tự động sủa đêm ngày, không cần phải gặp người lạ.

 

[khonghoithinguhocdungchem]

thế thì chưa hiểu mình rồi, nếu để vì sheet này mình để ẩn nên khi chạy không thể chuyển sheet qua lại giữa 2 sheet này, liệu có cách nào mà chuyển sheet khác vd sheet thứ 3 chẳng hạn mà nó sẽ chuyển cái đó không

 

[langtuchungtinh360]

thế thì chưa hiểu mình rồi, nếu để vì sheet này mình để ẩn nên khi chạy không thể chuyển sheet qua lại giữa 2 sheet này, liệu có cách nào mà chuyển sheet khác vd sheet thứ 3 chẳng hạn mà nó sẽ chuyển cái đó không

chịu thua bạn luôn. theo mình biết thì có 3 cách để code chạy tự động
cách 1 thì như #1 bạn đã làm
cách 2 thì khi dữ liệu trang tính có sự thay đổi

Private Sub Worksheet_Change(ByVal Target As Range)
'......code.........
End Sub

cách 3 thì click chuột vào bất kỳ ô nào thì nó sẽ chạy

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'......code.........
end sub

bạn có thể viết code trong Module sau đó dùng lệnh Call để chạy code thôi

 

[Kiều Mạnh]

em có code này mong mọi người góp ý sao cho nó chạy mà không cần phải chuyển sheet mới chạy, ko phải tạo nút ạ
tức là tự động nó chạy mà không phải làm gì. (Chuyển sheet, F5, Enter, tạo nút)

Private Sub Worksheet_Activate()
Sheet6.Cells.Clear
Sheet5.Range("A2:A65000").AdvancedFilter 2, , [a5], True
Sheet6.Range("A6:A" & [a65000].End(3).Row).Sort [a5], 2
Sheet6.Range("A6:a" & [a65000].End(3).Row - 1).Sort [a5], 1
End Sub

Muốn gì qua đây mà hỏi tiếp nè có một việc cỏn con mà hỏi nhiều chỗ vậy
http://www.giaiphapexcel.com/forum/showthread.php?109100-Giúp-lọc-dữ-liệu&p=682084#post682084

http://www.giaiphapexcel.com/forum/...g-ạ-lọc-những-dữ-liệu-bị-trùng-và-không-trùng

http://www.giaiphapexcel.com/forum/...Lọc-dữ-liệu-bị-trùng-nhau&p=681462#post681462

 

[khonghoithinguhocdungchem]

xin lỗi bác kieu manh giờ em muốn xóa B12 đến B36 ở sheet3 thì sửa câu lệnh như thế nào ạ chứ không phải xóa hết ạk(câu lệnh sheet3.cells.clear ấy ạ)
private Sub Worksheet_Activate()Sheet3.Cells.Clear
Sheet1.Range("a2:a65000").AdvancedFilter 2, , [b11], True
Sheet3.Range("B11:B" & [b65000].End(3).Row).Sort [b11], 2
Sheet3.Range("B11:b" & [b65000].End(3).Row - 1).Sort [b11], 1
End Sub

 

[langtuchungtinh360]

xin lỗi bác kieu manh giờ em muốn xóa B12 đến B36 ở sheet3 thì sửa câu lệnh như thế nào ạ chứ không phải xóa hết ạk(câu lệnh sheet3.cells.clear ấy ạ)
private Sub Worksheet_Activate()Sheet3.Cells.Clear
Sheet1.Range("a2:a65000").AdvancedFilter 2, , [b11], True
Sheet3.Range("B11:B" & [b65000].End(3).Row).Sort [b11], 2
Sheet3.Range("B11:b" & [b65000].End(3).Row - 1).Sort [b11], 1
End Sub

Sheet3.Range("B12:B36").ClearContents

 

[khonghoithinguhocdungchem]

báo lỗi thế là sao ạ, ai giúp em tí được không ạ, báo lỗi ở sheet3 ạ

 

[khonghoithinguhocdungchem]

thanks bác nhiều nhé nhưng thay đổi sheet thì báo lỗi này ở dòng chữ đỏ là do đâu bác kieu manh hpkhuong
Private Sub Worksheet_Activate()
Sheet80.Range("B12:B36").ClearContents
Sheet59.Range("A3:A65000").AdvancedFilter 2, , [B12], Unique:=True
Sheet80.Range("B12:B" & [B65000].End(3).Row).Sort [B11], 2
Sheet80.Range("B12:B" & [B65000].End(3).Row - 1).Sort [B11], 1
End Sub

 

[Kiều Mạnh]

thanks bác nhiều nhé nhưng thay đổi sheet thì báo lỗi này ở dòng chữ đỏ là do đâu bác kieu manhhpkhuong
Private Sub Worksheet_Activate()
Sheet80.Range("B12:B36").ClearContents
Sheet59.Range("A3:A65000").AdvancedFilter 2, , [B12], Unique:=True
Sheet80.Range("B12:B" & [B65000].End(3).Row).Sort [B11], 2
Sheet80.Range("B12:B" & [B65000].End(3).Row - 1).Sort [B11], 1
End Sub

xin đừng la tên mình trên này nữa nha......sợ phát khiếp rồi ......chạy mau