Xin giúp code tự chạy Macro khi vào sheet

tqt8688

Thành viên mới
Tham gia ngày
8 Tháng mười 2017
Bài viết
14
Được thích
1
Điểm
0
Tuổi
48
Mong các bạn chỉ giáo,
Mình vừa ghi xong 1 Macro.
Tuy nhiên mình muốn xin thêm 1 đoạn code chèn vào macro này.
Mục đích khi mở sheet ra (từ sheet khác bấm vào sheet này ) để xem thi nó tự chạy Macro.
Mong các bạn giúp

Sub Filter1_Click()
'
' Filter1_Click Macro
' Loc 1
'

'
ActiveSheet.Range("$A$5:$I$1315").AutoFilter Field:=9, Criteria1:="1"
End Sub
 

PacificPR

Thành viên tích cực
Tham gia ngày
12 Tháng tư 2017
Bài viết
1,252
Được thích
1,919
Điểm
360
Nơi ở
Cái Bang
Mong các bạn chỉ giáo,
Mình vừa ghi xong 1 Macro.
Tuy nhiên mình muốn xin thêm 1 đoạn code chèn vào macro này.
Mục đích khi mở sheet ra (từ sheet khác bấm vào sheet này ) để xem thi nó tự chạy Macro.
Mong các bạn giúp

Sub Filter1_Click()
'
' Filter1_Click Macro
' Loc 1
'

'
ActiveSheet.Range("$A$5:$I$1315").AutoFilter Field:=9, Criteria1:="1"
End Sub
Bạn thử gắn nó vào sự kiện Worksheet_Activate xem sao
 

PacificPR

Thành viên tích cực
Tham gia ngày
12 Tháng tư 2017
Bài viết
1,252
Được thích
1,919
Điểm
360
Nơi ở
Cái Bang
Mong bạn chỉ giúp cách làm nhé.
Cám ơn bạn
Bạn muốn Sheets nào đó khi chuyển đến nó chay Code thì bạn Click chuột phải vào Sheet đó --> View Code ---> Copy đoạn code
Mã:
Private Sub Worksheet_Activate()   
    Call Filter1_Click   
End Sub
 

tqt8688

Thành viên mới
Tham gia ngày
8 Tháng mười 2017
Bài viết
14
Được thích
1
Điểm
0
Tuổi
48
Cám ơn bạn nhiều mình làm được rồi.

Mình vừa thử thêm đoạn code này Ko chạy
Private Sub Worksheet_Activate()
'

'
Sheets("TH_AGR").Select
Selection.AutoFilter Field:=7, Criteria1:="1"
Range("$A$5:$I$1315").Select
End Sub
 

PacificPR

Thành viên tích cực
Tham gia ngày
12 Tháng tư 2017
Bài viết
1,252
Được thích
1,919
Điểm
360
Nơi ở
Cái Bang
Cám ơn bạn nhiều mình làm được rồi.

Mình vừa thử thêm đoạn code này Ko chạy
Private Sub Worksheet_Activate()
'

'
Sheets("TH_AGR").Select
Selection.AutoFilter Field:=7, Criteria1:="1"
Range("$A$5:$I$1315").Select
End Sub
Cái Code mới này nhìn nó bị sao sao ấy :D
 

tqt8688

Thành viên mới
Tham gia ngày
8 Tháng mười 2017
Bài viết
14
Được thích
1
Điểm
0
Tuổi
48
Mình dùng Office 365.
Tại sao sau khi minh lưu mở lại ko thấy Macro đâu nhỉ bạn
 

tqt8688

Thành viên mới
Tham gia ngày
8 Tháng mười 2017
Bài viết
14
Được thích
1
Điểm
0
Tuổi
48
Ồ mình làm được rồi. Khi lưu phải chọn kiểu file xlsm.

Tuy nhiên mình vừa Protech sheet thì macro không chạy. Nếu bỏ Protech sheet thì vẫn chạy .
Vậy phải làm sao bạn
 

PacificPR

Thành viên tích cực
Tham gia ngày
12 Tháng tư 2017
Bài viết
1,252
Được thích
1,919
Điểm
360
Nơi ở
Cái Bang
Vậy thì làm theo kiểu khi chạy code mở khoá chạý xong thì khoá lại
 

Nguyễn Ái Quốc

Thành viên mới
Tham gia ngày
9 Tháng tám 2018
Bài viết
1
Được thích
1
Điểm
13
Tuổi
24
Bạn muốn Sheets nào đó khi chuyển đến nó chay Code thì bạn Click chuột phải vào Sheet đó --> View Code ---> Copy đoạn code
Mã:
Private Sub Worksheet_Activate()  
    Call Filter1_Click  
End Sub
mình có đoan code này h gán code của bạn sao. bạn chỉ rõ hơn dc không?

Sub RESET()
'
' RESET Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
ActiveSheet.Range("$A$7:$L$891").AutoFilter Field:=4, Criteria1:= _
"Ban Ch? huy Quân s? huy?n"
End Sub
 

codoccusipt55

Thành viên mới
Tham gia ngày
29 Tháng một 2010
Bài viết
1
Được thích
0
Điểm
363
mình có đoan code này h gán code của bạn sao. bạn chỉ rõ hơn dc không?

Sub RESET()
'
' RESET Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
ActiveSheet.Range("$A$7:$L$891").AutoFilter Field:=4, Criteria1:= _
"Ban Ch? huy Quân s? huy?n"
End Sub
bạn chú ý nội dung ngwowifta hướng dẫn đi.
thay cái tên sub kích hoạt bằng tên sub của bạn là được. chúc bạn thành công
End Sub
 
Top Bottom