Làm cách nào khi bấm ô A3 bất kỳ(ở tất cả các sheet) thì chạy code (1 người xem)

[Son-Thuy]

Nhờ các bạn chỉ giùm cách đặt đường link như sau:
Tôi có 1 macro1
Trong file có 3 sheet là 1; 2; 3
Tôi muốn khi chọn ô A3 và tác động bằng cách gì đó ở bất kỳ sheet nào thì sẽ chạy code macro1
Cảm ơn các bạn chia sẻ!

 

[phulien1902]

Nhờ các bạn chỉ giùm cách đặt đường link như sau:
Tôi có 1 macro1
Trong file có 3 sheet là 1; 2; 3
Tôi muốn khi chọn ô A3 và tác động bằng cách gì đó ở bất kỳ sheet nào thì sẽ chạy code macro1
Cảm ơn các bạn chia sẻ!

Bạn thử 1 cách

 

[Son-Thuy]

Bạn thử 1 cách

Cảm ơn bạn, như vậy mỗi sheet ta có 1 code sự kiện, có cách nào gom các code sự kiện thành 1 code và để ở Workbook được không nhỉ?

 

[huuthang_bd]

Bạn copy đoạn code này vào module ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address(0, 0) = "A3" Then Macro1
End Sub

 

[Son-Thuy]

Bạn copy đoạn code này vào module ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address(0, 0) = "A3" Then Macro1
End Sub

Các bạn cho hỏi thêm 2 trường hợp:
Trường hợp 1: Cho chạy Macro1 ở tất cả các sheet, trừ sheet TongHop và sheet PhanTich
Trường hợp 2: Chỉ cho chạy Macro1 ở tất cả các sheet có tên sheet bắt đầu bằng chữ TV, ví dụ: như các sheet TVA; TVB, ...
Thì code phải làm thế nào, cảm ơn các bạn đã quan tâm!

 

[befaint]

Lại có người xón xón.. sao không dặn hết luôn một lượt ở bài đầu cho rồi. @@

 

[Son-Thuy]

Lại có người xón xón.. sao không dặn hết luôn một lượt ở bài đầu cho rồi. @@

Sau khi áp dụng thì bật ra ý tưởng bạn ơi!

 

[thuyyeu99]

Nghiên cứu đi chỉ thêm điều kiện SH <> 2 shet kia, left(tv....) thì chạy code, trong diễn đàn này có nhiều đó

 

[huuthang_bd]

Các bạn cho hỏi thêm 2 trường hợp:
Trường hợp 1: Cho chạy Macro1 ở tất cả các sheet, trừ sheet TongHop và sheet PhanTich
Trường hợp 2: Chỉ cho chạy Macro1 ở tất cả các sheet có tên sheet bắt đầu bằng chữ TV, ví dụ: như các sheet TVA; TVB, ...
Thì code phải làm thế nào, cảm ơn các bạn đã quan tâm!

Trường hợp 1: If Sh.Name = "TongHop" Or Sh.Name = "PhanTich" Then Exit sub
Trường hợp 2: If Not Sh.Name Like "TV*" Then Exit Sub
Thêm vào ngay dưới dòng Private Sub...

 

[VetMini]

Lại có người xón xón.. sao không dặn hết luôn một lượt ở bài đầu cho rồi. @@

Sao lại trách ngừoi ta mà không nghĩ tại mình sốt sắng quá. Ở đây ngừoi ta đã tạo thành thói quen có cái gì trong đầu là lo hỏi liền, không chờ suy nghĩ. Nếu quý vị ép ngừoi ta chịu động não thì:
1. cách trình bày đã rõ ràng hơn, tránh tình trạng 10 bài hết 9 phải giải thích lại, có thớt đến mấy lần mới trình bày xong.
2. vấn đề đầy đủ hơn; tránh việc 10 bài hết 9 "thêm cho em chút nữa..."
3. thực tế hơn; tức là xài được, chứ không phải loại "sáng kiến" đến lúc áp dụng mới thấy rác rưởi.

Và thực tế chứng minh lời tôi vẫn cảnh báo:

Sau khi áp dụng thì bật ra ý tưởng bạn ơi!